Esope source files

   1 : C COPIE8    SOURCE    PV        09/03/12    21:18:19     6325           
   2 :       SUBROUTINE COPIE8 (IPOIN1,IPOIN2)                                         
   3 : ************************************************************************        
   4 : *                                                                               
   5 : *                             C O P I E 8                                       
   6 : *                             -----------                                       
   7 : *                                                                               
   8 : * FONCTION:                                                                     
   9 : * ---------                                                                     
  10 : *                                                                               
  11 : *     CREER UNE COPIE D'UN OBJET DE TYPE "MCHAML".                              
  12 : *                                                                               
  13 : * MODE D'APPEL:                                                                 
  14 : * -------------                                                                 
  15 : *                                                                               
  15 : *     CALL COPIE8 (IPOIN1,IPOIN2)                                               
  16 : *                                                                               
  17 : * PARAMETRES:  (E)=ENTREE   (S)=SORTIE                                          
  18 : * -----------                                                                   
  19 : *                                                                               
  20 : *     IPOIN1  ENTIER    (E)  POINTEUR DE L'OBJET A COPIER.                      
  21 : *     IPOIN2  ENTIER    (S)  POINTEUR DE LA COPIE.                              
  22 : *                                                                               
  23 : * LANGAGE:                                                                      
  24 : * --------                                                                      
  25 : *                                                                               
  26 : *     ESOPE + FORTRAN77                                                         
  27 : *                                                                               
  28 : ************************************************************************        
  29 : *                                                                               
  30 :       IMPLICIT INTEGER(I-N)
  31 : -INC SMCHAML                                                                    
  32 : *                                                                               
  33 :       MCHEL1 = IPOIN1                                                           
  34 :       SEGACT MCHEL1
  35 :       SEGINI,MCHELM=MCHEL1                                                      
  36 :       SEGDES MCHEL1
  37 :       IPOIN2 = MCHELM                                                           
  38 :       NSOUS = IMACHE(/1)                                                        
  39 : *                                                                               
  40 :       DO 100 IA=1,NSOUS                                                         
  41 :          MCHAM1=ICHAML(IA)                                                      
  42 :          SEGACT MCHAM1
  43 :          SEGINI,MCHAML=MCHAM1                                                   
  44 :          SEGDES MCHAM1
  45 :          ICHAML(IA)=MCHAML                                                      
  46 :          DO 110 ICOMP=1,IELVAL(/1)                                              
  47 :             MELVA1 = IELVAL(ICOMP)                                              
  48 :             SEGACT MELVA1
  49 :             SEGINI,MELVAL=MELVA1                                                
  50 :             SEGDES MELVA1
  51 :             IELVAL(ICOMP) = MELVAL                                              
  52 :             SEGDES MELVAL                                                       
  53 :   110    CONTINUE                                                               
  54 :          SEGDES MCHAML                                                          
  55 :   100 CONTINUE                                                                  
  56 : *                                                                               
  57 :       SEGDES MCHELM                                                             
  58 : *                                                                               
  59 :       END                                                                       
  60 :  
  61 :  
  62 :  
  63 :