libsim Versione 7.2.0

◆ raise_warning()

subroutine, public 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.

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

Generated with Doxygen.