Esope source files

   1 : C DTMATZ    SOURCE    CHAT      09/09/21    21:16:38     6511           
   2 :           
   3 :       SUBROUTINE DTMATz(IRET,ktrace,msorse)                                                   
   4 : C                                                                               
   5 : C    DESTRUCTION D UN OBJET ATTACHE                                             
   6 : C                                                                               
   7 : C    M.PETIT 17/3/88                                                            
   8 : C                                                                               
   9 :       IMPLICIT INTEGER(I-N)
  10 : -INC SMATTAC
  11 : -INC CCOPTIO
  12 :       character*6 msorse                                                                    
  13 : C                                                                               
  14 :       MATTAC=IRET                                                               
  15 :       SEGACT MATTAC                                                             
  16 :       DO 1 I=1,LISATT(/1)                                                       
  17 :       MSOUMA=LISATT(I)                                                          
  18 :       SEGACT MSOUMA                                                             
  19 :       DO 2 J=1,IATREL(/1)                                                       
  20 :       MJONCT=IATREL(J) 
  21 :       if( ktrace.eq.mjonct)  then
  22 :         ktrace=-ktrace
  23 :         msorse='MJONCT'
  24 :       endif                        
  25 :       SEGSUP MJONCT                                                             
  26 :   2   CONTINUE                                                                  
  27 :       IF(IGEOCH.EQ.0) GO TO 11                                                  
  28 :       MGEOCH=IGEOCH 
  29 :       if( ktrace.eq.mgeoch) then
  30 :         ktrace=-ktrace
  31 :         msorse='MGEOCH'
  32 :       endif                             
  33 :       SEGSUP MGEOCH                                                             
  34 :   11  CONTINUE                                                                  
  35 :       IF(IPHYCH.EQ.0) GO TO 1                                                   
  36 :       MPHYCH=IPHYCH
  37 :       if( ktrace.eq.mphych) then
  38 :         ktrace=-ktrace
  39 :         msorse='MPHYCH'
  40 :       endif                                   
  41 :       SEGSUP MPHYCH                                                             
  42 :   1   CONTINUE                                                                  
  43 :       RETURN                                                                             
  44 :       END                                                                       
  45 :  
  46 :