C VALCHE    SOURCE    FANDEUR   10/08/31    21:19:57     6734           
                                                                        
      SUBROUTINE VALCHE (IPTVAL,NCOMP,IPMINT,IPPORE)                    
                                                                        
*_______________________________________________________________________
*                                                                       
*   PASSAGE DES VALEURS D'UN MCHAML AUX NOEUDS SUR UN AUTRE SUPPORT     
*                                                                       
*   IPTVAL   POINTEUR SUR UN SEGMENT MPTVAL CONTENANT LES MELVALS A     
*            RECALCULER                                                 
*                                                                       
*   NCOMP    NOMBRE DE COMPOSANTES QUE L'ON SOUHAITE RECALCULER         
*                                                                       
*   IPMINT  POINTEUR SUR LE SEGMENT D'INTEGRATION DU SUPPORT OU L'ON    
*           SOUHAITE PROJETER LES MELVAL                                
*                                                                       
* IPPORE est =0 s'il faut prendre toutes les fonctions de formes        
*         sinon précise lesquelles premieres il faut prendre            
*                                                                       
*   REMARQUE 1 :  LES MELVAL RECALCULES SONT REMIS DANS LE SEGMENT      
*                 MPTVAL (ON DESACTIVE ICI LES MELVALS ORIGINELS).      
*                 IL NE FAUT PAS OUBLIER DE SUPRIMER LES MELVALS        
*                 RECALCULES APRES UTILISATION.                         
*                                                                       
*   REMARQUE 2 :  LE POINTEUR IPMINT DOIT ETRE ACTIF EN ENTREE DE       
*                 VALCHE ET SON ETAT N'EST PAS MODIFIE EN SORTIE.       
*                                                                       
*   CAMPENON JM LE 02/91                                                
*                                                                       
*_______________________________________________________________________
                                                                        
      IMPLICIT INTEGER(I-N)                                             
                                                                        
-INC CCOPTIO                                                            
                                                                        
      SEGMENT MPTVAL                                                    
        INTEGER IPOS(NS)    ,NSOF(NS)                                   
        INTEGER      IVAL(NCOSOU)                                       
        CHARACTER*16 TYVAL(NCOSOU)                                      
      ENDSEGMENT                                                        
                                                                        
      MPTVAL=IPTVAL                                                     
      DO 1 ICOMP=1,NCOMP                                                
         IPMELV=IVAL(ICOMP)                                             
         IF (IPMELV.NE.0) THEN                                          
            CALL CHAME3(IPMELV,IPMINT,IPRES,IPPORE)                     
            IF(IERR.NE.0)RETURN                                         
            IVAL(ICOMP)=IPRES                                           
         ENDIF                                                          
 1    CONTINUE                                                          
                                                                        
      RETURN                                                            
      END