Esope source files

   1 : C DTCHAM    SOURCE    PV        13/04/08    21:15:03     7750           
   2 :       SUBROUTINE DTCHAM(IRET)                                                   
   3 : *-----------------------------------------------------------------------        
   4 : *     DESTRUCTION D'UN NOUVEAU CHAMELEM ( MCHAML )                              
   5 : *-----------------------------------------------------------------------        
   6 :       IMPLICIT INTEGER(I-N)
   7 : -INC SMCHAML                                                                    
   8 :       MCHELM=IRET                                                               
   9 :       SEGACT MCHELM                                                             
  10 :       DO 100 IA=1,IMACHE(/1)                                                    
  11 :       MCHAML=ICHAML(IA)                                                         
  12 :       SEGACT MCHAML                                                             
  13 :       DO 200 IB=1,IELVAL(/1)                                                    
  14 :       MELVAL=IELVAL(IB)                                                         
  15 :       SEGSUP MELVAL                                                             
  16 :   200 CONTINUE                                                                  
  17 :       n2 = 0
  18 :       segadj mchaml
  19 : **    SEGSUP MCHAML
  20 :   100 CONTINUE                                                                  
  21 :       l1=0
  22 :       n1=0
  23 :       n3=0
  24 :       segadj mchelm
  25 : ***   SEGSUP MCHELM
  26 : ***   IRET=0
  27 :       RETURN                                                                    
  28 :       END                                                                       
  29 :  
  30 :  
  31 :  
  32 :