Minor formatting update

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