C CHAME3    SOURCE    FANDEUR   10/08/31    21:15:50     6734           

      SUBROUTINE CHAME3(IPMELV,IPMINT,IPRES,IPORE)

*_______________________________________________________________________
*                                                                       
*   CALCUL DES MELVALS AU SUPPORT DE IPMINT                             
*   IDENTIQUE A VALMEL AVEC EN SUPPLEMENT IPORE                         
*                                                                       
*   IPMELV  POINTEUR SUR UN SEGMENT MELVAL A RECALCULER                 
*           (SUPPOSE ACTIF)                                             
*                                                                       
*   IPMINT  POINTEUR SUR LE SEGMENT D'INTEGRATION DU SUPPORT OU L'ON    
*           SOUHAITE PROJETER LE MELVAL                                 
*           LE POINTEUR IPMINT DOIT ETRE ACTIF EN ENTREE DE CHAME3      
*           ET SON ETAT N'EST PAS MODIFIE DANS CHAME3.                  
*                                                                       
*   IPRES   POINTEUR SUR LE MELVAL RESULTAT                             
*           (ACTIF EN SORTIE)                                           
*                                                                       
*   IPORE   0 SAUF POUR MILIEU POREUX ( NBRE DE NOEUDS )                
*                                                                       
*   CAMPENON JM LE 02/91                                                
*                                                                       
*_______________________________________________________________________
*                                                                       
      IMPLICIT INTEGER(I-N)                                             
      IMPLICIT REAL*8(A-H,O-Z)                                          
*                                                                       
-INC CCOPTIO                                                            
-INC SMCHAML                                                            
-INC SMINTE                                                             
*                                                                       
      MELVAL=IPMELV                                                     
      N1PTEL=VELCHE(/1)                                                 
      N2PTEL=IELCHE(/1)                                                 
      IF(N2PTEL.NE.0)THEN                                               
        IF(N2PTEL.EQ.1)THEN                                             
          SEGINI,MELVA1=MELVAL                                          
          IPRES=MELVA1                                                  
          RETURN                                                        
        ELSE                                                            
          MOTERR(1:8)=' '                                               
          CALL ERREUR(124)                                              
          IPRES=IPMELV                                                  
          RETURN                                                        
        ENDIF                                                           
      ELSE                                                              
*                                                                       
        IF (N1PTEL.EQ.1) THEN                                           
          SEGINI,MELVA1=MELVAL                                          
          IPRES=MELVA1                                                  
          RETURN                                                        
        ELSE                                                            
*                                                                       
*     ON RECUPERE LE NOMBRE DE POINTS SUPPORT                           
*                                                                       
         MINTE=IPMINT                                                   
C**      SEGACT MINTE                       <- Actif en ENTREE          
         NBPGAU=SHPTOT(/3)                                              
         IF(IPORE.EQ.0) THEN                                            
           NBNO  =SHPTOT(/2)                                            
         ELSE                                                           
           NBNO  =IPORE                                                 
         ENDIF                                                          
*                                                                       
         N1PTEL=NBPGAU                                                  
         N1EL=VELCHE(/2)                                                
         N2PTEL=0                                                       
         N2EL  =0                                                       
         SEGINI MELVA1                                                  
         IPRES=MELVA1                                                   
         DO 1 IB=1,N1EL                                                 
            DO 2 IGAU=1,NBPGAU                                          
               DO 3 INBNO=1,NBNO                                        
                  IGMN=MIN(VELCHE(/1),INBNO)                            
                  MELVA1.VELCHE(IGAU,IB)=MELVA1.VELCHE(IGAU,IB)+        
     &                      VELCHE(IGMN,IB)*SHPTOT(1,INBNO,IGAU)        
 3             CONTINUE                                                 
 2          CONTINUE                                                    
 1       CONTINUE                                                       
        ENDIF                                                           
      ENDIF                                                             
*                                                                       
C**   SEGDES MELVAL                         <- Actif en SORTIE          
C**   SEGDES MINTE                          <- Actif en SORTIE          
*                                                                       
      RETURN                                                            
      END