libsim Versione 7.2.6
|
◆ eh_setval()
Definizione alla linea 147 del file err_handling.f90. 148LOGICAL, OPTIONAL, INTENT(in) :: fatal !< specifica se gli errori devono interrompere il programma (\a .TRUE.) o meno (\a .FALSE.)
149LOGICAL, OPTIONAL, INTENT(in) :: to_stderr !< set output to stderr
150LOGICAL, OPTIONAL, INTENT(in) :: to_stdout !< set output to stdout
151INTEGER, OPTIONAL, INTENT(in) :: verbose !< specifica il livello di "disturbo" tollerato dall'utente, i messaggi con un livello di disturbo superiore non saranno stampati
152INTEGER, OPTIONAL, INTENT(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
153
154IF (PRESENT(fatal)) eh_fatal = fatal
155IF (PRESENT(verbose)) eh_verbose = max(verbose,0)
156IF (PRESENT(to_stderr)) THEN
157 IF (to_stderr) THEN
158 eh_unit = stderr_unit
159 ELSE
160 eh_unit = stdout_unit
161 ENDIF
162ENDIF
163IF (PRESENT(to_stdout)) THEN
164 IF (to_stdout) THEN
165 eh_unit = stdout_unit
166 ELSE
167 eh_unit = stderr_unit
168 ENDIF
169ENDIF
170IF (PRESENT(to_unit)) eh_unit = to_unit
171
|