libsim Versione 7.2.6
|
◆ print_info()
Stampa il messaggio informativo fornito (e il suo eventuale numero).
Definizione alla linea 130 del file err_handling.f90. 131CHARACTER (len=*), INTENT(in) :: msg !< messaggio di avviso
132INTEGER, OPTIONAL, INTENT(in) :: verblev !< livello di "disturbo" associato al messagio, più è alto e maggiore è la possibilità che l'utente non lo legga
133
134INTEGER :: lverblev
135
136IF (PRESENT(verblev)) THEN
137 lverblev = verblev
138ELSE
139 lverblev = eh_verbose_info
140ENDIF
141
142CALL output_message('Per favore, non usare la print_info nei tuoi programmi, e` obsoleta: ', msg, lverblev)
143
|