Esope source files

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