libsim Versione 7.2.6
|
◆ raise_error()
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).
Definizione alla linea 102 del file err_handling.f90. 103CHARACTER (len=*), OPTIONAL, INTENT(in) :: msg !< messaggio di errore
104INTEGER, OPTIONAL, INTENT(in) :: ierval !< codice di errore opzionale
105INTEGER, OPTIONAL, INTENT(out) :: ier !< codice di errore opzionale restituito in uscita
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
|