31
32
33
36
37
38
39#include "implicit_f.inc"
40
41
42
43 TYPE (SET_) :: CLAUSE
44
45
46
47 clause%NB_NODE= 0
48 clause%NB_PART= 0
49 clause%NB_SOLID= 0
50 clause%NB_QUAD= 0
51 clause%NB_SH4N= 0
52 clause%NB_SH3N= 0
53 clause%NB_TRIA= 0 ! clause nb of trias
54 clause%NB_BEAM= 0
55 clause%NB_TRUSS= 0
56 clause%NB_SPRING= 0
57 clause%NB_SURF_SEG= 0
58 clause%NB_LINE_SEG= 0
59 clause%NB_RBODY= 0
60 clause%NB_SPHCEL= 0
61 clause%EXT_ALL = 0
62
63 clause%NB_ELLIPSE= 0
64 clause%ELLIPSE_IAD_BUFR= 0
65 clause%ELLIPSE_ID_MADYMO=0
66 clause%ELLIPSE_N=0
67 clause%ELLIPSE_XC=0
68 clause%ELLIPSE_YC=0
69 clause%ELLIPSE_ZC=0
70 clause%ELLIPSE_A=0
71 clause%ELLIPSE_B=0
72 clause%ELLIPSE_C=0
73
74 clause%NB_PLANE= 0
75 clause%PLANE_IAD_BUFR= 0
76 clause%PLANE_XM=0
77 clause%PLANE_YM=0
78 clause%PLANE_ZM=0
79 clause%PLANE_XM1=0
80 clause%PLANE_YM1=0
81 clause%PLANE_ZM1=0
82
83 clause%NB_NODENS= 0
84
85 IF(ALLOCATED( clause%NODE )) DEALLOCATE( clause%NODE )
86 IF(ALLOCATED( clause%PART )) DEALLOCATE( clause%PART )
87 IF(ALLOCATED( clause%SOLID )) DEALLOCATE( clause%SOLID )
88 IF(ALLOCATED( clause%QUAD )) DEALLOCATE( clause%QUAD )
89 IF(ALLOCATED( clause%SH4N )) DEALLOCATE( clause%SH4N )
90 IF(ALLOCATED( clause%SH3N )) DEALLOCATE( clause%SH3N )
91 IF(ALLOCATED( clause%TRIA )) DEALLOCATE( clause%TRIA )
92 IF(ALLOCATED( clause%BEAM )) DEALLOCATE( clause%BEAM )
93 IF(ALLOCATED( clause%TRUSS )) DEALLOCATE( clause%TRUSS )
94 IF(ALLOCATED( clause%SPRING )) DEALLOCATE( clause%SPRING )
95 IF(ALLOCATED( clause%SURF_NODES )) DEALLOCATE( clause%SURF_NODES )
96 IF(ALLOCATED( clause%SURF_ELTYP )) DEALLOCATE( clause%SURF_ELTYP )
97 IF(ALLOCATED( clause%SURF_ELEM )) DEALLOCATE( clause%SURF_ELEM )
98 IF(ALLOCATED( clause%LINE_NODES )) DEALLOCATE( clause%LINE_NODES )
99 IF(ALLOCATED( clause%LINE_ELTYP )) DEALLOCATE( clause%LINE_ELTYP )
100 IF(ALLOCATED( clause%LINE_ELEM )) DEALLOCATE( clause%LINE_ELEM )
101 IF(ALLOCATED( clause%RBODY )) DEALLOCATE( clause%RBODY )
102 IF(ALLOCATED( clause%ELLIPSE_SKEW )) DEALLOCATE( clause%ELLIPSE_SKEW )
103 IF(ALLOCATED( clause%NODENS )) DEALLOCATE( clause%NODENS )
104 IF(ALLOCATED( clause%SPHCEL )) DEALLOCATE( clause%SPHCEL )
105
106 RETURN
1.15.0