| # | 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 |