Sources Esope | Cast3M

dtsham
C DTSHAM    SOURCE    PV        09/03/12    21:19:32     6325
*$$$$ DTSHAM
      SUBROUTINE DTSHAM(IRET)
*---------------------------------------------------------------*
*     DESTRUCTION D'UN NOUVEAU SOUS-CHAMELEM ( SEGMENT MCHAML ) *
*                                                               *
*     PP 16/8/91                                                *
*---------------------------------------------------------------*
      IMPLICIT INTEGER(I-N)
-INC SMCHAML
      MCHAML=IRET
      SEGACT MCHAML
      DO 200 IB=1,IELVAL(/1)
      MELVAL=IELVAL(IB)
      SEGSUP MELVAL
  200 CONTINUE
      SEGSUP MCHAML
      IRET=0
      RETURN
      END