libsim Versione 7.2.6
|
◆ 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 !< variable to be checked
242LOGICAL,INTENT(out) :: optio_log !< equal to \a var if present, otherwise equal to .false.
243
244if (present(var))then
245 optio_log=var
246else
247 optio_log=.false.
248end if
249
|