Skip to content
Snippets Groups Projects
Commit 7456239a authored by GUEZ Lionel's avatar GUEZ Lionel
Browse files

Write to standard output instead of standard error

See commit f5e0f59e.
parent 7fc5d495
No related branches found
No related tags found
No related merge requests found
program test_mean_speed
use, intrinsic:: ISO_FORTRAN_ENV
! Libraries:
use gpc_f, only: shp_read_pol, polygon
use jumble, only: get_command_arg_dyn
......@@ -38,8 +36,8 @@ program test_mean_speed
!---------------------------------------------------------------------
call get_command_arg_dyn(1, contour_filename, "Required argument: shapefile")
write(unit = error_unit, nml = main_nml)
write(unit = error_unit, fmt = *) "Enter namelist main_nml."
write(unit = *, nml = main_nml)
print *, "Enter namelist main_nml."
read(unit = *, nml = main_nml)
write(unit = *, nml = main_nml)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment