Skip to content
Snippets Groups Projects
Commit 3ded38d7 authored by Douglas Guptill's avatar Douglas Guptill
Browse files

change variable types to match usage

parent 53b94128
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 2 additions and 1 deletion
create_surfaces.f90
+ 2
− 1
View file @ 3ded38d7
...@@ -48,10 +48,11 @@ integer :: seed, indix,err ...@@ -48,10 +48,11 @@ integer :: seed, indix,err
integer :: ntmax,nhmax,npmax,nmax,nmode,nvmax,nnpnmax integer :: ntmax,nhmax,npmax,nmax,nmode,nvmax,nnpnmax
integer :: nh,nohalt_hull,loc,nnn,nnlist,ntrilist integer :: nh,nohalt_hull,loc,nnn,nnlist,ntrilist
integer :: dmode,nt,nbmax,it,nhull,icircles,irect 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 :: vis_tlist,vis_elist,add_tlist,nb
integer,dimension(:,:),allocatable :: vertices,neighbour integer,dimension(:,:),allocatable :: vertices,neighbour
integer,dimension(:,:),allocatable :: nn 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 :: 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 :: x1,x2,x3,y1,y2,y3,z1,z2,z3,xne,yne,zne,xyzn
double precision :: delta,eps,epsil,xtemp,ytemp double precision :: delta,eps,epsil,xtemp,ytemp
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment