C DTMVAL    SOURCE    CHAT      09/09/09    21:15:00     6496           
      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 CCOPTIO                                                                    
      SEGMENT,MPTVAL                                                            
        INTEGER IPOS(NS)    ,NSOF(NS)                                           
        INTEGER      IVAL(NCOSOU)                                               
        CHARACTER*16 TYVAL(NCOSOU)                                              
      ENDSEGMENT                                                                
*                                                                               
      IF (MPTVOL .NE. 0) THEN                                                   
         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 IF                                                                    
      RETURN                                                                    
      END