libsim  Versione 7.2.1

◆ raise_warning()

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

Stampa il messaggio di avviso fornito (e il suo eventuale numero).

Parametri
[in]msgmessaggio di avviso
[in]iervalcodice di errore opzionale
[out]iercodice di errore opzionale restituito in uscita

Definizione alla linea 118 del file err_handling.f90.

119 CHARACTER (len=*), INTENT(in) :: msg !< messaggio di avviso
120 INTEGER, OPTIONAL, INTENT(in) :: ierval
121 INTEGER, OPTIONAL, INTENT(out) :: ier
122 
123 CALL output_message('Per favore, non usare la raise_warning nei tuoi programmi, e` obsoleta: ', msg, eh_verbose_warn, ierval)
124 IF (PRESENT(ier) .AND. PRESENT(ierval)) ier = ierval
125 

Generated with Doxygen.