libsim Versione 7.2.4

◆ soptio_s()

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

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

Generated with Doxygen.