Télécharger dtmatz.eso

Retour à la liste

Numérotation des lignes :

  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.  
  47.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales