libsim Versione 7.2.1
|
◆ soptio_log()
Set the output value to input, if input is present, otherwise set it to
Definizione alla linea 240 del file optional_values.f90. 241LOGICAL,INTENT(in),OPTIONAL :: var
242LOGICAL,INTENT(out) :: optio_log
243
244if (present(var))then
245 optio_log=var
246else
247 optio_log=.false.
248end if
249
|