libsim  Versione 7.2.1

◆ raise_fatal_error()

subroutine, public err_handling::raise_fatal_error ( character (len=*), intent(in), optional  msg,
integer, intent(in), optional  ierval 
)

Stampa il messaggio di errore fornito (e il suo eventuale numero) ed esce.

Il messaggio veine stampato incondizionatamente (cioè indipendentemente dalle impostazioni del livello massimo di disturbo tollerabile) e l'esecuzione del programma si interrompe incondizionatamente.

Parametri
[in]msgmessaggio di errore
[in]iervalcodice di errore opzionale

Definizione alla linea 87 del file err_handling.f90.

88 CHARACTER (len=*), OPTIONAL, INTENT(in) :: msg !< messaggio di errore
89 INTEGER, OPTIONAL, INTENT(in) :: ierval
90 
91 IF (PRESENT(msg)) CALL output_message('Fatal error: ', msg, -1, ierval)
92 IF (PRESENT(ierval)) CALL exit(abs(ierval))
93 CALL exit(1)
94 

Generated with Doxygen.