|
◆ 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 148 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
|