46 |
|
if (.not. associated(this_list)) return |
47 |
|
|
48 |
|
temp => this_list |
49 |
< |
|
49 |
> |
|
50 |
|
do while (associated(temp)) |
51 |
|
if (temp%atype_ident == ident) then |
52 |
|
atype => temp |
53 |
|
exit |
54 |
|
endif |
55 |
+ |
|
56 |
|
temp => temp%next |
57 |
|
end do |
58 |
|
|
59 |
|
end subroutine find_atype |
60 |
|
|
61 |
|
subroutine create_identPtrList(ident,this_list,identPtrList,status) |
62 |
+ |
use definitions |
63 |
|
integer, dimension(:) :: ident |
64 |
|
type(generic_atype), pointer :: this_list |
65 |
|
type(generic_atype), pointer :: tmpPtr |
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) |