71 |
|
|
72 |
|
status = 0 |
73 |
|
list_size = size(ident) |
74 |
< |
write(*,*) "Creating identPtrList for size: ", list_size |
74 |
> |
|
75 |
|
!! Allocate space for pointer list. |
76 |
|
if (.not. associated(identPtrList)) then |
77 |
|
allocate(identPtrList(list_size),stat=alloc_stat) |
79 |
|
status = -1 |
80 |
|
return |
81 |
|
end if |
82 |
< |
write(*,*) "Successfully allocated new list" |
82 |
> |
|
83 |
|
else if ( list_size > size(identPtrList)) then |
84 |
|
!! We've already allocated this list and need to make it bigger |
85 |
< |
write(*,*) "Warning reallocating identPointerList" |
85 |
> |
|
86 |
|
deallocate(identPtrList) |
87 |
|
allocate(identPtrList(list_size),stat=alloc_stat) |
88 |
|
if (alloc_stat /= 0) then |
99 |
|
|
100 |
|
do i = 1, list_size |
101 |
|
this_ident = ident(i) |
102 |
< |
write(*,*) "Finding atype for ident ", this_ident |
102 |
> |
|
103 |
|
call find_atype(this_ident,this_list,tmpPtr) |
104 |
|
!! If we can't find the atype corresponding to the ident, return w/ error. |
105 |
|
if (.not. associated(tmpPtr)) then |
106 |
|
status = -1 |
107 |
– |
|
107 |
|
write(*,*) "Could not find an atype for ident ", this_ident |
108 |
|
return |
109 |
|
end if |