libsim  Versione 7.2.4

◆ soptio_l()

elemental subroutine soptio_l ( integer(kind=int_l), intent(in), optional  var,
integer(kind=int_l), intent(out)  optio_l 
)

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

Parametri
[in]varvariable to be checked
[out]optio_lequal to var if present, otherwise equal to the corresponding missing value

Definizione alla linea 183 del file optional_values.f90.

184 INTEGER(kind=int_l),INTENT(in),OPTIONAL :: var
185 INTEGER(kind=int_l),INTENT(out) :: optio_l
186 
187 if (present(var))then
188  optio_l=var
189 else
190  optio_l=ilmiss
191 end if
192 

Generated with Doxygen.