libsim  Versione7.2.3

◆ soptio_s()

elemental subroutine, public optional_values::soptio_s ( integer(kind=int_s), intent(in), optional  var,
integer(kind=int_s), intent(out)  optio_s 
)

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

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

Definizione alla linea 170 del file optional_values.f90.

170 INTEGER(kind=int_s),INTENT(in),OPTIONAL :: var
171 INTEGER(kind=int_s),INTENT(out) :: optio_s
172 
173 if (present(var))then
174  optio_s=var
175 else
176  optio_s=ismiss
177 end if
178 

Generated with Doxygen.