libsim  Versione 7.1.8

◆ 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]fatalspecifica se gli errori devono interrompere il programma (.TRUE.) o meno (.FALSE.)
[in]to_stderrset output to stderr
[in]to_stdoutset output to stdout
[in]verbosespecifica il livello di "disturbo" tollerato dall'utente, i messaggi con un livello di disturbo superiore non saranno stampati
[in]to_unitspecifica 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
153 
154 IF (PRESENT(fatal)) eh_fatal = fatal
155 IF (PRESENT(verbose)) eh_verbose = max(verbose,0)
156 IF (PRESENT(to_stderr)) THEN
157  IF (to_stderr) THEN
158  eh_unit = stderr_unit
159  ELSE
160  eh_unit = stdout_unit
161  ENDIF
162 ENDIF
163 IF (PRESENT(to_stdout)) THEN
164  IF (to_stdout) THEN
165  eh_unit = stdout_unit
166  ELSE
167  eh_unit = stderr_unit
168  ENDIF
169 ENDIF
170 IF (PRESENT(to_unit)) eh_unit = to_unit
171 

Generated with Doxygen.