Télécharger dtmatt.eso

Retour à la liste

Numérotation des lignes :

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

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