| 3 |
|
|
| 4 |
|
|
| 5 |
|
!! generic routine to add an atype to a list |
| 6 |
< |
subroutine add_atype(this_node,head,tail,status) |
| 6 |
> |
subroutine add_item(this_node,head,tail,status) |
| 7 |
|
!! atype node to be added to a list |
| 8 |
|
type (generic_atype), pointer :: this_node |
| 9 |
|
!! list to which atype is added, if null, we allocate a new list |
| 33 |
|
tail => this_node |
| 34 |
|
|
| 35 |
|
endif |
| 36 |
< |
end subroutine add_atype |
| 36 |
> |
end subroutine add_item |
| 37 |
|
|
| 38 |
< |
subroutine find_atype(ident,this_list, atype) |
| 38 |
> |
subroutine find_item(ident,this_list, atype) |
| 39 |
|
integer, intent(in) :: ident |
| 40 |
|
type (generic_atype), pointer :: this_list |
| 41 |
|
type (generic_atype), pointer :: atype |
| 56 |
|
temp => temp%next |
| 57 |
|
end do |
| 58 |
|
|
| 59 |
< |
end subroutine find_atype |
| 59 |
> |
end subroutine find_item |
| 60 |
|
|
| 61 |
|
subroutine create_identPtrList(ident,this_list,identPtrList,status) |
| 62 |
|
use definitions |
