From efbfd1ea9837adccc8311b7afb593bd99bd33d4c Mon Sep 17 00:00:00 2001 From: Douglas Guptill <douglas.guptill@dal.ca> Date: Mon, 27 Jul 2009 17:01:19 +0000 Subject: [PATCH] typo --- define_ov.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/define_ov.f90 b/define_ov.f90 index 4eb44ecd..0904036c 100644 --- a/define_ov.f90 +++ b/define_ov.f90 @@ -88,7 +88,7 @@ if (params%irestart.eq.0) then call octree_find_node_connectivity (ov%octree,ov%noctree,ov%icon, & ov%nleaves,ov%x,ov%y,ov%z,ov%nnode) ! ov%nnode has been changed by octree_find_node_connectivity, so re-size x, y, z - call octreev_shrink_xyz(osolve, threadinfo) + call octreev_shrink_xyz(ov, threadinfo) ! now that ov%nnode is known we can allocate the others allocate (ov%unode(ov%nnode),stat=threadinfo%err) ; call heap (threadinfo,'ov%unode','define_ov',size(ov%unode),'dp',+1) -- GitLab