libsim Versione 7.2.1

◆ soptio_log()

elemental subroutine, public soptio_log ( logical, intent(in), optional  var,
logical, intent(out)  optio_log 
)

Set the output value to input, if input is present, otherwise set it to .FALSE.

Parametri
[in]varvariable to be checked
[out]optio_logequal to var if present, otherwise equal to .false.

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

Generated with Doxygen.