Esope source files

   1 : C DTSHAM    SOURCE    PV        09/03/12    21:19:32     6325           
   2 : *$$$$ DTSHAM
   3 :       SUBROUTINE DTSHAM(IRET)
   4 : *---------------------------------------------------------------*
   5 : *     DESTRUCTION D'UN NOUVEAU SOUS-CHAMELEM ( SEGMENT MCHAML ) *
   6 : *                                                               *
   7 : *     PP 16/8/91                                                *
   8 : *---------------------------------------------------------------*
   9 :       IMPLICIT INTEGER(I-N)
  10 : -INC SMCHAML
  11 :       MCHAML=IRET
  12 :       SEGACT MCHAML
  13 :       DO 200 IB=1,IELVAL(/1)
  14 :       MELVAL=IELVAL(IB)
  15 :       SEGSUP MELVAL
  16 :   200 CONTINUE
  17 :       SEGSUP MCHAML
  18 :       IRET=0
  19 :       RETURN
  20 :       END
  21 :  
  22 :  
  23 :