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

Write to standard output instead of standard error

parent e38b77a2
No related branches found
No related tags found
No related merge requests found
program test_overlap
use, intrinsic:: ISO_FORTRAN_ENV
! Libraries:
use jumble, only: get_command_arg_dyn, read_opcol, new_unit, ediff1d, assert
use shapelib_03, only: dbf_read_attribute_03
......@@ -34,8 +32,8 @@ program test_overlap
call config_graph(rank = 0)
! main_nml:
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