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 :
© Cast3M 2003 - All rights reserved.
Disclaimer