diff --git a/create_surfaces.f90 b/create_surfaces.f90
index 9e0f6582c59adf215d009ae47bb5c35994b840d1..f2b2da41e41ee028a0bbfc4a1b138fbfb05ba029 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