|
◆ eh_setval()
subroutine, public err_handling::eh_setval |
( |
logical, intent(in), optional |
fatal, |
|
|
integer, intent(in), optional |
verbose, |
|
|
logical, intent(in), optional |
to_stderr, |
|
|
logical, intent(in), optional |
to_stdout, |
|
|
integer, intent(in), optional |
to_unit |
|
) |
| |
- Parametri
-
[in] | fatal | specifica se gli errori devono interrompere il programma (.TRUE.) o meno (.FALSE.) |
[in] | to_stderr | set output to stderr |
[in] | to_stdout | set output to stdout |
[in] | verbose | specifica il livello di "disturbo" tollerato dall'utente, i messaggi con un livello di disturbo superiore non saranno stampati |
[in] | to_unit | specifica l'unità su cui stampare i messaggi di errore, il default è standard error, è consigliato usare i valori definiti dal modulo io_units |
Definizione alla linea 147 del file err_handling.f90.
148 LOGICAL, OPTIONAL, INTENT(in) :: fatal
149 LOGICAL, OPTIONAL, INTENT(in) :: to_stderr
150 LOGICAL, OPTIONAL, INTENT(in) :: to_stdout
151 INTEGER, OPTIONAL, INTENT(in) :: verbose
152 INTEGER, OPTIONAL, INTENT(in) :: to_unit
154 IF ( PRESENT(fatal)) eh_fatal = fatal
155 IF ( PRESENT(verbose)) eh_verbose = max(verbose,0)
156 IF ( PRESENT(to_stderr)) THEN
158 eh_unit = stderr_unit
160 eh_unit = stdout_unit
163 IF ( PRESENT(to_stdout)) THEN
165 eh_unit = stdout_unit
167 eh_unit = stderr_unit
170 IF ( PRESENT(to_unit)) eh_unit = to_unit
|