# | Line 50 | Line 50 | module atype_module | |
---|---|---|
50 | type (Vector), pointer, public :: atypes => null() | |
51 | ||
52 | public :: new_atype | |
53 | + | public :: delete_atypes |
54 | ||
55 | contains | |
56 | ||
# | Line 94 | Line 95 | contains | |
95 | call setElementProperty(atypes, me, "is_FLARB", is_FLARB) | |
96 | ||
97 | end subroutine new_atype | |
98 | + | |
99 | + | subroutine delete_atypes() |
100 | + | atypes => destroy(atypes) |
101 | + | end subroutine delete_atypes |
102 | ||
103 | end module atype_module | |
104 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |