From 33e08d4032df2911df1b1f80f39f709baada1bbe Mon Sep 17 00:00:00 2001
From: Dave Whipp <dwhipp@dal.ca>
Date: Wed, 18 Jan 2012 20:21:02 +0000
Subject: [PATCH] Minor formatting update
---
src/VTK/post.f90 | 16 +++++++++-------
1 file changed, 9 insertions(+), 7 deletions(-)
diff --git a/src/VTK/post.f90 b/src/VTK/post.f90
index a140c563..d1424995 100644
--- a/src/VTK/post.f90
+++ b/src/VTK/post.f90
@@ -96,7 +96,7 @@ logical,dimension(:),allocatable::influid,do_it,subset_leaves,instrain
logical :: nest
character clsf*3,c4*4,cc4*4,dir*128
-character cs,nestin,dumpc
+character cs,nestin
character*8 vernum,input_vernum,output_vernum
double precision :: eps,dil,current_time,activation_time,zmin,xx,yy,zz,maxe2d,dist
@@ -139,10 +139,10 @@ write (*,'(a)') '!
write(*,'(a,a8,a)') '! DOUAR-WSMP version post-processor version ', vernum,' |'
write (*,'(a)') '!------------------------------------------------------------------------------|'
write (*,'(a)') '!------------------------------------------------------------------------------|'
-
+write (*,*) ''
write (*,'(a)') 'Enter directory name containing DOUAR output.'
-write (*,'(a)') 'NOTE: The Directory name should be relative to the directory one level above the'
-write (*,'(a)') 'working directory. The default value is "OUT" (i.e., "../OUT")'
+write (*,'(a)') 'NOTE: The Directory name should be relative to the directory one level above'
+write (*,'(a)') 'the working directory. The default value is "OUT" (i.e., "../OUT")'
write (*,'(a)') 'Output directory: '
read (*,'(a)') dir
ndir=len_trim(dir)
@@ -151,6 +151,7 @@ if (ndir.eq.0) then
dir(1:ndir)='OUT'
endif
+write (*,*) ''
write (*,'(a)') 'Output time step: '
read*,nstep
write (c4,'(i4)') nstep
@@ -158,6 +159,7 @@ if (nstep.lt.1000) c4(1:1)='0'
if (nstep.lt.100) c4(1:2)='00'
if (nstep.lt.10) c4(1:3)='000'
+write (*,*) ''
write (*,'(a)') 'Is the output a debug file? (y or n)'
read (*,'(a)') cs
select case (cs)
@@ -175,6 +177,7 @@ case default
stop
end select
+write (*,*) ''
write (*,'(a)') 'Is this a nested model? (y or n)'
read (*,'(a)') nestin
select case (trim(nestin))
@@ -198,15 +201,14 @@ write(*,'(a)') '------------------- VTK file production in progress ------------
write(*,'(a)') '--------------------------------------------------------------------------'
write(*,'(a)') '--------------------------------------------------------------------------'
if (cs=='y') then
- write(*,*) 'Processing output file ', '../'//dir(1:ndir)//'/time_'//c4//'_'//cc4//'.bin'
+ write(*,'(a,a,a,a,a,a,a,a,a)') 'Processing output file ', '../'//dir(1:ndir)//'/time_'//c4//'_'//cc4//'.bin'
open(unit=7,file='../'//dir(1:ndir)//'/time_'//c4//'_'//cc4//'.bin',status='old',form='unformatted')
else
- write(*,*) 'Processing output file ', '../'//dir(1:ndir)//'/time_'//c4//'.bin'
+ write(*,'(a,a,a,a,a,a,a)') 'Processing output file ', '../'//dir(1:ndir)//'/time_'//c4//'.bin'
open(unit=7,file='../'//dir(1:ndir)//'/time_'//c4//'.bin',status='old',form='unformatted')
end if
write(*,'(a)') '--------------------------------------------------------------------------'
open(unit=77,file='input_of_outputs.txt',status='old')
-read(77,*) dumpc
read(77,*) input_vernum
write(*,'(a,a)') 'Post-processor input file version ', input_vernum
if (vernum /= input_vernum) then
--
GitLab