Télécharger la plaquette Cast3M


fr en

Télécharger dtmodl.eso

Retour à la liste

Numérotation des lignes : 

dtmodl

  1. C DTMODL    SOURCE    CB215821  24/04/12    21:15:38     11897          
  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 PPARAM
  17. -INC SMMODEL
  18. *
  19.       MMODEL=IPMODL
  20.       SEGACT MMODEL
  21.       NSOUS=KMODEL(/1)
  22. *
  23.       DO 100 ISOUS=1,NSOUS
  24.         IMODEL=KMODEL(ISOUS)
  25.         SEGSUP IMODEL
  26.  100  CONTINUE
  27.       SEGSUP MMODEL
  28. *
  29.       RETURN
  30.       END
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  

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