Added declaration of integer err; fixed read of lsoutfile

src/define_bc_nest.f90

@@ -49,7 +49,7 @@ type (nest_info) nest
 !------------------------------------------------------------------------------|
 
 type (octreev) ovls
-integer :: i,nface,nlsf,np,kfixls,matnum
+integer :: i,nface,nlsf,np,kfixls,matnum,err
 logical :: is_plas
 double precision :: eps,xls,yls,zls,s,crit,e2d,evisc,dilatr
 
@@ -60,7 +60,7 @@ eps=1.d-10
 
 ovls%noctree=params%noctreemax
 ! Read in coarse model octree; needs to be stored in params @ end of step
-open (9,file=trim(params%lsoutfile),status='old',form='unformatted')
+open (9,file=trim(nest%lsoutfile),status='old',form='unformatted')
 read (9) ovls%octree(3),&
          ovls%nnode,    &
          ovls%nleaves,  &