From 3ded38d79b77f31bcfc14b217876467995d9765c Mon Sep 17 00:00:00 2001
From: Douglas Guptill <douglas.guptill@dal.ca>
Date: Wed, 10 Jun 2009 15:20:42 +0000
Subject: [PATCH] change variable types to match usage

---
 create_surfaces.f90 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/create_surfaces.f90 b/create_surfaces.f90
index 9e0f6582..f2b2da41 100644
--- a/create_surfaces.f90
+++ b/create_surfaces.f90
@@ -48,10 +48,11 @@ integer :: seed, indix,err
 integer :: ntmax,nhmax,npmax,nmax,nmode,nvmax,nnpnmax
 integer :: nh,nohalt_hull,loc,nnn,nnlist,ntrilist
 integer :: dmode,nt,nbmax,it,nhull,icircles,irect
-integer,dimension(:),  allocatable :: hulltriangles,lt_work,ln_work
+integer,dimension(:),  allocatable :: hulltriangles
 integer,dimension(:),  allocatable :: vis_tlist,vis_elist,add_tlist,nb
 integer,dimension(:,:),allocatable :: vertices,neighbour
 integer,dimension(:,:),allocatable :: nn
+logical*1,dimension(:),allocatable :: lt_work,ln_work
 double precision :: sp01,sp02,sp03,sp04,sp05,sp06,sp07,sp08,sp09,sp10
 double precision :: x1,x2,x3,y1,y2,y3,z1,z2,z3,xne,yne,zne,xyzn
 double precision :: delta,eps,epsil,xtemp,ytemp
-- 
GitLab