Esope source files

   1 : C VALMEL    SOURCE    FANDEUR   10/08/31    21:19:58     6734           
   2 :       SUBROUTINE VALMEL (IPMELV,IPMINT,IPRES)                                   
   3 : *______________________________________________________________________         
   4 : *                                                                               
   5 : *   CALCUL DES MELVALS AU SUPPORT DE IPMINT                                     
   6 : *                                                                               
   7 : *   IPMELV  POINTEUR SUR UN SEGMENT MELVAL A RECALCULER                         
   8 : *           (SUPPOSE ACTIF)                                                     
   9 : *                                                                               
  10 : *   IPMINT  POINTEUR SUR LE SEGMENT D'INTEGRATION DU SUPPORT OU L'ON            
  11 : *           SOUHAITE PROJETER LE MELVAL                                         
  12 : *           (SUPPOSE ACTIF EN ENTREE ET EN SORTIE SANS CHANGMENT)               
  13 : *                                                                               
  14 : *   IPRES   POINTEUR SUR LE MELVAL RESULTAT                                     
  15 : *                                                                               
  16 : *   CAMPENON JM LE 02/91                                                        
  17 : *                                                                               
  18 : *_____________________________________________________________________          
  19 : *                                                                               
  20 :       IMPLICIT INTEGER(I-N)
  21 :       IMPLICIT REAL*8(A-H,O-Z)
  22 : 
  23 : -INC CCOPTIO                                                                    
  24 : -INC SMCHAML                                                                    
  25 : -INC SMINTE                                                                     
  26 : *                                                                               
  27 :       MELVAL=IPMELV                                                             
  28 :       N1PTEL=VELCHE(/1)                                                         
  29 :       N2PTEL=IELCHE(/1)
  30 :       IF(N2PTEL.NE.0)THEN
  31 :         IF(N2PTEL.EQ.1)THEN
  32 :           SEGINI,MELVA1=MELVAL                                                  
  33 :           IPRES=MELVA1                                                          
  34 :           RETURN                                                                
  35 :         ELSE
  36 :           MOTERR(1:8)=' ' 
  36 :           CALL ERREUR(124)
  37 :           IPRES=IPMELV
  38 :           RETURN
  39 :         ENDIF
  40 :       ELSE   
  41 : *                                                                               
  42 :         IF (N1PTEL.EQ.1) THEN                                                   
  43 :           SEGINI,MELVA1=MELVAL                                                  
  44 :           IPRES=MELVA1                                                          
  45 :           RETURN                                                                
  46 :         ELSE                                                                    
  47 : *                                                                               
  48 : *     ON RECUPERE LE NOMBRE DE POINT SUPPORT                                    
  49 : *                                                                               
  50 :          MINTE=IPMINT                                                           
  51 : C*       SEGACT MINTE                  <- ACTIF EN ENTREE                       
  52 :          NBPGAU=SHPTOT(/3)                                                      
  53 :          NBNO  =SHPTOT(/2)                                                      
  54 : *                                                                               
  55 :          N1PTEL=NBPGAU                                                          
  56 :          N1EL=VELCHE(/2)                                                        
  57 :          N2PTEL=0                                                               
  58 :          N2EL  =0                                                               
  59 :          SEGINI MELVA1                                                          
  60 :          IPRES=MELVA1                                                           
  61 :          DO 1 IB=1,N1EL                                                         
  62 :             DO 2 IGAU=1,NBPGAU                                                  
  63 :                DO 3 INBNO=1,NBNO                                                
  64 :                   IGMN=MIN(VELCHE(/1),INBNO)                                    
  65 :                   MELVA1.VELCHE(IGAU,IB)=MELVA1.VELCHE(IGAU,IB)+                
  66 :      &                      VELCHE(IGMN,IB)*SHPTOT(1,INBNO,IGAU)                
  67 :  3             CONTINUE                                                         
  68 :  2          CONTINUE                                                            
  69 :  1       CONTINUE                                                               
  70 :         ENDIF                                                                     
  71 :       ENDIF                                                                     
  72 : *                                                                               
  73 :       SEGDES MELVAL                                                             
  74 : C*    SEGDES MINTE                  <- ACTIF EN SORTIE (NON MODIFIE)            
  75 : 
  76 :       RETURN                                                                    
  77 :       END                                                                       
  78 : 
  79 :