libsim  Versione7.2.6

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

Definizione alla linea 103 del file err_handling.f90.

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

Generated with Doxygen.