Esope source files

   1 : C DTMATT    SOURCE    CHAT      05/01/12    22:57:48     5004           
   2 :       SUBROUTINE DTMATT(IRET)                                                   
   3 : C                                                                               
   4 : C    DESTRUCTION D UN OBJET ATTACHE                                             
   5 : C                                                                               
   6 : C    M.PETIT 17/3/88                                                            
   7 : C                                                                               
   8 :       IMPLICIT INTEGER(I-N)
   9 : -INC SMATTAC                                                                    
  10 : C                                                                               
  11 :       MATTAC=IRET                                                               
  12 :       SEGACT MATTAC                                                             
  13 :       DO 1 I=1,LISATT(/1)                                                       
  14 :       MSOUMA=LISATT(I)                                                          
  15 :       SEGACT MSOUMA                                                             
  16 :       DO 2 J=1,IATREL(/1)                                                       
  17 :       MJONCT=IATREL(J)                                                          
  18 :       SEGSUP MJONCT                                                             
  19 :   2   CONTINUE                                                                  
  20 :       IF(IGEOCH.EQ.0) GO TO 11                                                  
  21 :       MGEOCH=IGEOCH                                                             
  22 :       SEGSUP MGEOCH                                                             
  23 :   11  CONTINUE                                                                  
  24 :       IF(IPHYCH.EQ.0) GO TO 1                                                   
  25 :       MPHYCH=IPHYCH                                                             
  26 :       SEGSUP MPHYCH                                                             
  27 :   1   CONTINUE                                                                  
  28 :       RETURN                                                                    
  29 :       END                                                                       
  30 :