libsim Versione 7.2.4

◆ raise_error()

subroutine, public 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]msgmessaggio di errore
[in]iervalcodice di errore opzionale
[out]iercodice di errore opzionale restituito in uscita

Definizione alla linea 102 del file err_handling.f90.

103CHARACTER (len=*), OPTIONAL, INTENT(in) :: msg !< messaggio di errore
104INTEGER, OPTIONAL, INTENT(in) :: ierval
105INTEGER, OPTIONAL, INTENT(out) :: ier
106
107IF (PRESENT(msg)) CALL output_message('Error: ', msg, eh_verbose_err, ierval)
108IF (eh_fatal) THEN
109 IF (PRESENT(ierval)) CALL exit(abs(ierval))
110 CALL exit(1)
111ENDIF
112IF (PRESENT(ier) .AND. PRESENT(ierval)) ier = ierval
113

Generated with Doxygen.