Esope source files

   1 : C DTCHEL    SOURCE    PV        13/04/08    21:15:11     7750           
   2 :       SUBROUTINE DTCHEL(IPCHEL)                                                 
   3 : ************************************************************************        
   4 : *                                                                               
   5 : *                             D T C H E L                                       
   6 : *                             -----------                                       
   7 : *                                                                               
   8 : * FONCTION:                                                                     
   9 : * ---------                                                                     
  10 : *                                                                               
  11 : *     DESTRUCTION D'UN OBJET DE TYPE "CHAMELEM"                                 
  12 : *                                                                               
  13 : * MODULES UTILISES:                                                             
  14 : * -----------------                                                             
  15 : *                                                                               
  16 :       IMPLICIT INTEGER(I-N)
  17 : -INC SMCHAML                                                                    
  18 : *                                                                               
  19 : * PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)          
  20 : * -----------                                                                   
  21 : *                                                                               
  22 : *     IPCHEL (E/S)  POINTEUR SUR LE CHAMELEM                                    
  23 : *                                                                               
  24 : * AUTEUR, DATE DE CREATION:                                                     
  25 : * -------------------------                                                     
  26 : *                                                                               
  27 : *     DENIS ROBERT,LE 02/02/88.                                                 
  28 : *                                                                               
  29 : * LANGAGE:                                                                      
  30 : * --------                                                                      
  31 : *                                                                               
  32 : *     ESOPE + FORTRAN77                                                         
  33 : *                                                                               
  34 : ************************************************************************        
  35 :       MCHELM=IPCHEL                                                             
  36 :       SEGACT,MCHELM                                                             
  37 :       I1=IMACHE(/1)                                                             
  38 :       DO 1 I=1,I1                                                               
  39 :          MCHAML=ICHAML(I)                                                       
  40 :          SEGACT,MCHAML                                                          
  41 :          I2=IELVAL(/1)                                                          
  42 :          DO 2 J=1,I2                                                            
  43 :             MELVAL=IELVAL(J)                                                    
  44 :             SEGSUP,MELVAL                                                       
  45 :  2          CONTINUE                                                            
  46 : *        END DO                                                                 
  47 :          N2=0
  48 :          segadj mchaml
  49 : ***      SEGSUP,MCHAML
  50 :  1       CONTINUE                                                               
  51 : *     END DO                                                                    
  52 :       L1=0
  53 :       N1=0
  54 :       N3=0
  55 :       segadj mchelm
  56 : ***   SEGSUP,MCHELM
  57 :       IPCHEL=0                                                                  
  58 : *                                                                               
  59 :       END                                                                       
  60 :  
  61 :  
  62 :  
  63 :