Télécharger dtmodl.eso

Retour à la liste

Numérotation des lignes :

  1. C DTMODL SOURCE CHAT 11/03/16 21:19:21 6902
  2. SUBROUTINE DTMODL(IPMODL)
  3. *
  4. IMPLICIT INTEGER(I-N)
  5. IMPLICIT REAL*8(A-H,O-Z)
  6. *--------------------------------------------------------------------*
  7. * *
  8. * Destruction d'un objet MMODEL *
  9. * *
  10. * Entr{es: *
  11. * *
  12. * IPMODL Pointeur sur un objet MMODEL *
  13. * *
  14. *--------------------------------------------------------------------*
  15. *
  16. -INC SMMODEL
  17. *
  18. MMODEL=IPMODL
  19. SEGACT MMODEL
  20. NSOUS=KMODEL(/1)
  21. *
  22. DO 100 ISOUS=1,NSOUS
  23. IMODEL=KMODEL(ISOUS)
  24. SEGSUP IMODEL
  25. 100 CONTINUE
  26. SEGSUP MMODEL
  27. *
  28. RETURN
  29. END
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  

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