|
◆ raise_error()
subroutine, public err_handling::raise_error |
( |
character (len=*), intent(in), optional |
msg, |
|
|
integer, intent(in), optional |
ierval, |
|
|
integer, intent(out), optional |
ier |
|
) |
| |
Stampa il messaggio di errore fornito (e il suo eventuale numero).
Se specificato in configurazione (vedi eh_setval), il programma si interrompe ed esce con codice di errore di sistema ierval (se fornito). - Parametri
-
[in] | msg | messaggio di errore |
[in] | ierval | codice di errore opzionale |
[out] | ier | codice di errore opzionale restituito in uscita |
Definizione alla linea 102 del file err_handling.f90.
104 INTEGER, OPTIONAL, INTENT(in) :: ierval
105 INTEGER, OPTIONAL, INTENT(out) :: ier
107 IF ( PRESENT(msg)) CALL output_message( 'Error: ', msg, eh_verbose_err, ierval
109 IF ( PRESENT(ierval)) CALL exit(abs(ierval))
112 IF ( PRESENT(ier) .AND. PRESENT(ierval)) ier = ierval
|