libsim Versione 7.2.6
|
◆ soptio_l()
Set the output value to input, if input is present, otherwise set it to missing value.
Definizione alla linea 183 del file optional_values.f90. 184INTEGER(kind=int_l),INTENT(in),OPTIONAL :: var !< variable to be checked
185INTEGER(kind=int_l),INTENT(out) :: optio_l !< equal to \a var if present, otherwise equal to the corresponding missing value
186
187if (present(var))then
188 optio_l=var
189else
190 optio_l=ilmiss
191end if
192
|