--- trunk/mdtools/md_code/generic_list_functions.i90 2003/01/30 20:03:37 254 +++ trunk/mdtools/md_code/generic_list_functions.i90 2003/01/31 21:04:27 260 @@ -74,6 +74,7 @@ subroutine create_identPtrList(ident,this_list,identPt status = 0 list_size = size(ident) + !! Allocate space for pointer list. if (.not. associated(identPtrList)) then allocate(identPtrList(list_size),stat=alloc_stat)