libsim Versione 7.2.6
|
◆ raise_warning()
Stampa il messaggio di avviso fornito (e il suo eventuale numero).
Definizione alla linea 118 del file err_handling.f90. 119CHARACTER (len=*), INTENT(in) :: msg !< messaggio di avviso
120INTEGER, OPTIONAL, INTENT(in) :: ierval !< codice di errore opzionale
121INTEGER, OPTIONAL, INTENT(out) :: ier !< codice di errore opzionale restituito in uscita
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
|