From 8c14f71ae22f287078a16aa20ac63bc9bbab97a7 Mon Sep 17 00:00:00 2001
From: Dave Whipp <dwhipp@dal.ca>
Date: Tue, 14 Jun 2011 13:36:50 +0000
Subject: [PATCH] Declared previously undeclarred variables/types
---
src/stitch_nest.f90 | 38 ++++++++++++++++++++++++++++----------
1 file changed, 28 insertions(+), 10 deletions(-)
diff --git a/src/stitch_nest.f90 b/src/stitch_nest.f90
index 212fe74f..1253b6e0 100644
--- a/src/stitch_nest.f90
+++ b/src/stitch_nest.f90
@@ -13,28 +13,46 @@ use threads
implicit none
! Variable type declaration
+character (len=4) :: cistep,cnnest
+
+double precision :: current_time,inc,step,total
+
+integer :: i,istep,material0,nnest
+
+type (box),dimension(:),allocatable :: boxes
type (cloud),dimension(:),allocatable :: ss_cl
type (cloud) :: ls_cl
+type (cross_section),dimension(:),allocatable :: sections
+type (face),dimension(6) :: cube_faces
+type (material),dimension(:),allocatable::mat
+type (nest_info) nest
type (octreev),dimension(:),allocatable :: ss_ov
type (octreev) ls_ov
type (parameters) :: params
type (sheet),dimension(:),allocatable :: ls_surf,ls_surf0,ss_surf,ss_surf0
-
-integer :: i,nnest,istep
-
-character (len=4) :: cistep
+type (thread) :: threadinfo
+type (ziso) zi
!-------------------------------------------------------------------------------
write (*,*) 'Program started'
-! Read current time step from command line
-call getarg (1,istep)
-call getarg (2,nnest)
+! Init some variables
+current_time=0.d0
+inc=0.d0
+step=0.d0
+total=0.d0
+! Read/echo current time step and # of nests from command line
+call getarg (1,cistep)
+call getarg (2,cnnest)
write (*,*) 'Received command line arguments:'
-write (*,*) 'istep = ',istep
-write (*,*) 'nnest = ',nnest
+write (*,*) 'istep = ',trim(cistep)
+write (*,*) 'nnest = ',trim(cnnest)
+
+! Convert character values to integers
+write (istep,'(i)') cistep
+write (nnest,'(i)') cnnest
! Read the coarse model input file
params%infile=trim('input_ls.txt')
@@ -63,7 +81,7 @@ do i = 1,nnest
! Change params%infile
enddo
-deallocate()
+deallocate(ls_surf,ls_surf0)
! Sign off
write (*,*) 'Program execution complete'
--
GitLab