C DTMVAL SOURCE CB215821 19/07/30 21:15:51 10273 SUBROUTINE DTMVAL(MPTVOL,MODES) * *---------------------------------------------------------------* * 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 * *---------------------------------------------------------------* IMPLICIT INTEGER(I-N) -INC SMCHAML -INC PPARAM -INC CCOPTIO SEGMENT,MPTVAL INTEGER IPOS(NS) ,NSOF(NS) INTEGER IVAL(NCOSOU) CHARACTER*16 TYVAL(NCOSOU) ENDSEGMENT * IF (MPTVOL .EQ. 0 .OR. MODES.NE.3) RETURN MPTVAL=MPTVOL LONG=IVAL(/1) IF (MODES .EQ.1) THEN DO 11 IO=1,LONG IF (IVAL(IO).NE.0) THEN MELVAL=IVAL(IO) SEGDES,MELVAL END IF 11 CONTINUE SEGSUP,MPTVAL * segdes mptval ELSE IF (MODES .EQ.2) THEN DO 21 IO=1,LONG IF (IVAL(IO).NE.0) THEN MELVAL=IVAL(IO) SEGDES,MELVAL END IF 21 CONTINUE SEGSUP,MPTVAL ELSE IF (MODES .EQ. 3)THEN DO 31 IO=1,LONG IF (IVAL(IO).NE.0) THEN MELVAL=IVAL(IO) SEGSUP,MELVAL * segdes melval END IF 31 CONTINUE SEGSUP,MPTVAL * segdes mptval ELSE INTERR(1)=MODES CALL ERREUR (555) END IF END