ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/group/trunk/mdtools/md_code/generic_list_functions.i90
(Generate patch)

Comparing trunk/mdtools/md_code/generic_list_functions.i90 (file contents):
Revision 259 by chuckv, Thu Jan 30 20:03:37 2003 UTC vs.
Revision 260 by chuckv, Fri Jan 31 21:04:27 2003 UTC

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

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines