C COPIE8    SOURCE    PV        09/03/12    21:18:19     6325           
      SUBROUTINE COPIE8 (IPOIN1,IPOIN2)                                         
************************************************************************        
*                                                                               
*                             C O P I E 8                                       
*                             -----------                                       
*                                                                               
* FONCTION:                                                                     
* ---------                                                                     
*                                                                               
*     CREER UNE COPIE D'UN OBJET DE TYPE "MCHAML".                              
*                                                                               
* MODE D'APPEL:                                                                 
* -------------                                                                 
*                                                                               
*     CALL COPIE8 (IPOIN1,IPOIN2)                                               
*                                                                               
* PARAMETRES:  (E)=ENTREE   (S)=SORTIE                                          
* -----------                                                                   
*                                                                               
*     IPOIN1  ENTIER    (E)  POINTEUR DE L'OBJET A COPIER.                      
*     IPOIN2  ENTIER    (S)  POINTEUR DE LA COPIE.                              
*                                                                               
* LANGAGE:                                                                      
* --------                                                                      
*                                                                               
*     ESOPE + FORTRAN77                                                         
*                                                                               
************************************************************************        
*                                                                               
      IMPLICIT INTEGER(I-N)
-INC SMCHAML                                                                    
*                                                                               
      MCHEL1 = IPOIN1                                                           
      SEGACT MCHEL1
      SEGINI,MCHELM=MCHEL1                                                      
      SEGDES MCHEL1
      IPOIN2 = MCHELM                                                           
      NSOUS = IMACHE(/1)                                                        
*                                                                               
      DO 100 IA=1,NSOUS                                                         
         MCHAM1=ICHAML(IA)                                                      
         SEGACT MCHAM1
         SEGINI,MCHAML=MCHAM1                                                   
         SEGDES MCHAM1
         ICHAML(IA)=MCHAML                                                      
         DO 110 ICOMP=1,IELVAL(/1)                                              
            MELVA1 = IELVAL(ICOMP)                                              
            SEGACT MELVA1
            SEGINI,MELVAL=MELVA1                                                
            SEGDES MELVA1
            IELVAL(ICOMP) = MELVAL                                              
            SEGDES MELVAL                                                       
  110    CONTINUE                                                               
         SEGDES MCHAML                                                          
  100 CONTINUE                                                                  
*                                                                               
      SEGDES MCHELM                                                             
*                                                                               
      END