# | Line 74 | Line 74 | subroutine create_identPtrList(ident,this_list,identPt | |
---|---|---|
74 | status = 0 | |
75 | list_size = size(ident) | |
76 | ||
77 | + | |
78 | !! Allocate space for pointer list. | |
79 | if (.not. associated(identPtrList)) then | |
80 | allocate(identPtrList(list_size),stat=alloc_stat) |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |