Tweaked output

src/VTK/input_of_outputs.txt

-! DOUAR post-processor input file version listed below
-0.2a
+0.2a    ! Post-processor input file version (MUST BE 8 CHARACTERS; PAD WITH SPACES) 
 0  ! output u scalar field 
 0  ! output v scalar field 
 0  ! output w scalar field 

src/VTK/post.f90

@@ -219,7 +219,7 @@ if (vernum /= input_vernum) then
   stop
 endif
 write(*,'(a)') '--------------------------------------------------------------------------'
-read(77,*) output_u_field 
+read(77,*) output_u_field
 read(77,*) output_v_field 
 read(77,*) output_w_field
 read(77,*) output_velo_vect 
@@ -250,36 +250,36 @@ read(77,*) output_rivers
 read(77,*) output_regular
 read(77,*) output_zisodisp
 
-write(*,'(a)') 'output u      field       ->',(output_u_field==1)
-write(*,'(a)') 'output v      field       ->',(output_v_field==1)
-write(*,'(a)') 'output w      field       ->',(output_w_field==1)
-write(*,'(a)') 'output velo   vectors     ->',(output_velo_vect==1) 
-write(*,'(a)') 'output preiso velo vectors->',(output_preiso_velo_vect==1) 
-write(*,'(a)') 'output iso velo vectors   ->',(output_preiso_velo_vect==1) 
-write(*,'(a)') 'output disp   field       ->',(output_disp_field==1)
-write(*,'(a)') 'output node press field   ->',(output_press_fieldn==1) 
-write(*,'(a)') 'output raw press field    ->',(output_press_fielde==1) 
-write(*,'(a)') 'output smooth press field ->',(output_smooth_press_fielde==1)
-write(*,'(a)') 'output countnode field    ->',(output_countnode_field==1)
-write(*,'(a)') 'output temp   field       ->',(output_temp_field==1)
-write(*,'(a)') 'output elem material #    ->',(output_elem_matnum==1)
-write(*,'(a)') 'output elemental e2d field->',(output_e2d_fielde==1) 
-write(*,'(a)') 'output nodal e2d field    ->',(output_e2d_fieldn==1)
-write(*,'(a)') 'output elem eff viscosity ->',(output_eviscosity_fielde==1) 
-write(*,'(a)') 'output element is plastic ->',(output_is_plastic_fielde==1)
-write(*,'(a)') 'output element yield ratio->',(output_yield_ratio_fielde==1)
-write(*,'(a)') 'output elem friction angle->',(output_frict_angle_fielde==1)
-write(*,'(a)') 'output element dilat rate ->',(output_dilatr_fielde==1) 
-write(*,'(a)') 'output crit   field       ->',(output_crit_field==1)
-write(*,'(a)') 'output strain field       ->',(output_strain_field==1)
-write(*,'(a)') 'output lsf    field       ->',(output_lsf_field==1)
-write(*,'(a)') 'output surfaces icon      ->',(output_surface_icon==1)
-write(*,'(a)') 'output strain tensor      ->',(output_strain_tensor==1)
-write(*,'(a)') 'output principal stresses ->',(output_ps==1)
-write(*,'(a)') 'output elemental fields   ->',(output_cubes==1)
-write(*,'(a)') 'output rivers             ->',(output_rivers==1)
-write(*,'(a)') 'output regular            ->',(output_regular==1)
-write(*,'(a)') 'output zisodisp           ->',(output_zisodisp==1)
+write(*,'(a,l)') 'output u      field       ->',(output_u_field==1)
+write(*,'(a,l)') 'output v      field       ->',(output_v_field==1)
+write(*,'(a,l)') 'output w      field       ->',(output_w_field==1)
+write(*,'(a,l)') 'output velo   vectors     ->',(output_velo_vect==1) 
+write(*,'(a,l)') 'output preiso velo vectors->',(output_preiso_velo_vect==1) 
+write(*,'(a,l)') 'output iso velo vectors   ->',(output_preiso_velo_vect==1) 
+write(*,'(a,l)') 'output disp   field       ->',(output_disp_field==1)
+write(*,'(a,l)') 'output node press field   ->',(output_press_fieldn==1) 
+write(*,'(a,l)') 'output raw press field    ->',(output_press_fielde==1) 
+write(*,'(a,l)') 'output smooth press field ->',(output_smooth_press_fielde==1)
+write(*,'(a,l)') 'output countnode field    ->',(output_countnode_field==1)
+write(*,'(a,l)') 'output temp   field       ->',(output_temp_field==1)
+write(*,'(a,l)') 'output elem material #    ->',(output_elem_matnum==1)
+write(*,'(a,l)') 'output elemental e2d field->',(output_e2d_fielde==1) 
+write(*,'(a,l)') 'output nodal e2d field    ->',(output_e2d_fieldn==1)
+write(*,'(a,l)') 'output elem eff viscosity ->',(output_eviscosity_fielde==1) 
+write(*,'(a,l)') 'output element is plastic ->',(output_is_plastic_fielde==1)
+write(*,'(a,l)') 'output element yield ratio->',(output_yield_ratio_fielde==1)
+write(*,'(a,l)') 'output elem friction angle->',(output_frict_angle_fielde==1)
+write(*,'(a,l)') 'output element dilat rate ->',(output_dilatr_fielde==1) 
+write(*,'(a,l)') 'output crit   field       ->',(output_crit_field==1)
+write(*,'(a,l)') 'output strain field       ->',(output_strain_field==1)
+write(*,'(a,l)') 'output lsf    field       ->',(output_lsf_field==1)
+write(*,'(a,l)') 'output surfaces icon      ->',(output_surface_icon==1)
+write(*,'(a,l)') 'output strain tensor      ->',(output_strain_tensor==1)
+write(*,'(a,l)') 'output principal stresses ->',(output_ps==1)
+write(*,'(a,l)') 'output elemental fields   ->',(output_cubes==1)
+write(*,'(a,l)') 'output rivers             ->',(output_rivers==1)
+write(*,'(a,l)') 'output regular            ->',(output_regular==1)
+write(*,'(a,l)') 'output zisodisp           ->',(output_zisodisp==1)
 write(*,'(a)') '--------------------------------------------------------------------------'
 
 !==============================================================================!