C DTMVAL    SOURCE    OF166741  25/02/21    21:15:58     12166          
*
*---------------------------------------------------------------*
*     utilitaire de desactivation/destruction associe au        *
*                segment "MPTVAL"                               *
*                                                               *
*     MPTVOL: pointeur sur un segment MPTVAL (actif)            *
*     MODES : mode de desactivation des segments pointes par    *
*             IVAL  ==> 1 = SEGDES                              *
*                   ==> 2 = SEGDES                              *
*                   ==> 3 = SEGSUP                              *
*                                                               *
*     PP 16/8/91                                                *
*     CLB 11/02/92                                              *
*---------------------------------------------------------------*
      SUBROUTINE DTMVAL(MPTVOL,MODES)

      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)

-INC PPARAM
-INC CCOPTIO

-INC SMCHAML

-INC TMPTVAL

      IF (MPTVOL .EQ. 0 .OR. MODES.NE.3) RETURN

      MPTVAL=MPTVOL
      LONG=IVAL(/1)
      IF (MODES .EQ.1) THEN
        DO 11 IO=1,LONG
          MELVAL=IVAL(IO)
          IF (MELVAL.NE.0) SEGDES,MELVAL
 11     CONTINUE
*        segdes mptval
        SEGSUP,MPTVAL
      ELSE IF (MODES .EQ.2) THEN
        DO 21 IO=1,LONG
          MELVAL=IVAL(IO)
          IF (MELVAL.NE.0) SEGDES,MELVAL
 21     CONTINUE
        SEGSUP,MPTVAL
      ELSE IF (MODES .EQ. 3)THEN
        DO 31 IO=1,LONG
          MELVAL=IVAL(IO)
*          if (melval.ne.0) segdes melval
          IF (MELVAL.NE.0) SEGSUP,MELVAL
 31     CONTINUE
*        segdes mptval
        SEGSUP,MPTVAL
      ELSE
        INTERR(1)=MODES
        CALL ERREUR (555)
      END IF

c      RETURN
      END