fix print options

This commit is contained in:
edoapra 2023-02-28 19:08:57 -08:00
parent 8260ff11f7
commit 962d019ba5
No known key found for this signature in database
GPG key ID: 48E12DA1EDE9E1B0

View file

@ -1156,8 +1156,8 @@ c
D call errquit(' rtdb_delete failed',0,RTDB_ERR)
call dft_sethfx(rtdb)
dft_guesshfx=.true.
call util_print_get_level(level_org)
call util_print_set_level(10)
endif
call util_print_get_level(level_org)
call util_print_set_level(10)
return
end