Tweaked prompt formatting

src/VTK/post.f90

@@ -140,10 +140,9 @@ write(*,'(a,a8,a)') '!              DOUAR-WSMP version post-processor version ',
 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'
-write (*,'(a)') 'the working directory. The default value is "OUT" (i.e., "../OUT")'
-write (*,'(a)') 'Output directory: '
+write (*,'(a)') '1. Please enter the directory name containing DOUAR output.'
+write (*,'(a)') '   NOTE: The directory name should be relative to one level above the working'
+write (*,'(a)') '   directory. The default value is "OUT" (i.e., "../OUT")'
 read (*,'(a)') dir
 ndir=len_trim(dir)
 if (ndir.eq.0) then
@@ -152,7 +151,7 @@ if (ndir.eq.0) then
 endif
 
 write (*,*) ''
-write (*,'(a)') 'Output time step: '
+write (*,'(a)') '2. Please enter the output time step.'
 read*,nstep
 write (c4,'(i4)') nstep
 if (nstep.lt.1000) c4(1:1)='0'
@@ -160,25 +159,26 @@ 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)'
+write (*,'(a)') '3. Is the output file a debug file? ("y" or "n")'
 read (*,'(a)') cs
 select case (cs)
-case ('y')
-   write (*,'(a)') 'Debug file grid iteration number: '
+case ('y','Y','yes','Yes')
+   write (*,'(a)') '3a. Please enter the debug file grid iteration number: '
    read*,iter
    write (cc4,'(i4)') iter
    if (iter.lt.1000) cc4(1:1)='0'
    if (iter.lt.100) cc4(1:2)='00'
    if (iter.lt.10) cc4(1:3)='000'
-case ('n')
+case ('n','N','no','No')
    write (*,'(a)') 'Output file is not a debug file.'
 case default 
    write (*,'(a)') 'Error: Response must be either "y" or "n". Please rerun the post-processor.'
+   write (*,'(a)') 'Exiting...'
    stop
 end select
 
 write (*,*) ''
-write (*,'(a)') 'Is this a nested model? (y or n)'
+write (*,'(a)') '4. Is this a nested model? ("y" or "n")'
 read (*,'(a)') nestin
 select case (trim(nestin))
 case ('y','Y','yes','Yes')
@@ -186,7 +186,8 @@ case ('y','Y','yes','Yes')
 case ('n','N','no','No')
    nest=.false.
 case default 
-   write (*,'(a)') 'Error: Response must be either "y" or "n"'
+   write (*,'(a)') 'Error: Response must be either "y" or "n". Please rerun the post-processor.'
+   write (*,'(a)') 'Exiting...'
    stop
 end select