From 03f170aa9795a6d8294a13b1ac181ea31d6ffd31 Mon Sep 17 00:00:00 2001
From: Dave Whipp <dwhipp@dal.ca>
Date: Wed, 25 May 2011 19:51:55 +0000
Subject: [PATCH] Added initial allocation of ov%octree

---
 src/define_bc_nest.f90 | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/define_bc_nest.f90 b/src/define_bc_nest.f90
index bcec335b..b5bd4655 100644
--- a/src/define_bc_nest.f90
+++ b/src/define_bc_nest.f90
@@ -48,7 +48,7 @@ type (nest_info) nest
 !(((((((((((((((( declaration of the subroutine internal variables )))))))))))))
 !------------------------------------------------------------------------------|
 
-type (octreev) ovls
+type (octreev) :: ovls
 integer :: i,j,k,nface,nlsf,np,kfixls,matnum,err
 logical :: is_plas
 double precision :: eps,xls,yls,zls,s,crit,e2d,evisc,dilatr,xlsf,current_time
@@ -59,6 +59,9 @@ double precision :: eps,xls,yls,zls,s,crit,e2d,evisc,dilatr,xlsf,current_time
 eps=1.d-10
 
 ovls%noctree=params%noctreemax
+allocate (ov%octree(ov%noctree),stat=err)
+!if (params%debug.gt.1) call heap (threadinfo,'ov%octree','main',size(ov%octree),'int',+1)
+
 ! Read in coarse model octree; needs to be stored in params @ end of step
 open (9,file=trim(nest%lsoutfile),status='old',form='unformatted')
 read (9) ovls%octree(3),&
-- 
GitLab