libsim  Versione7.2.3

◆ soptio_log()

elemental subroutine 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 241 del file optional_values.f90.

241 LOGICAL,INTENT(in),OPTIONAL :: var
242 LOGICAL,INTENT(out) :: optio_log
243 
244 if (present(var))then
245  optio_log=var
246 else
247  optio_log=.false.
248 end if
249 

Generated with Doxygen.