libsim Versione 7.2.0
|
◆ eh_setval()
Definizione alla linea 147 del file err_handling.f90. 148LOGICAL, OPTIONAL, INTENT(in) :: fatal
149LOGICAL, OPTIONAL, INTENT(in) :: to_stderr
150LOGICAL, OPTIONAL, INTENT(in) :: to_stdout
151INTEGER, OPTIONAL, INTENT(in) :: verbose
152INTEGER, OPTIONAL, INTENT(in) :: to_unit
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
|