libsim Versione 7.2.6
|
◆ soptio_s()
Set the output value to input, if input is present, otherwise set it to missing value.
Definizione alla linea 169 del file optional_values.f90. 170INTEGER(kind=int_s),INTENT(in),OPTIONAL :: var !< variable to be checked
171INTEGER(kind=int_s),INTENT(out) :: optio_s !< equal to \a var if present, otherwise equal to the corresponding missing value
172
173if (present(var))then
174 optio_s=var
175else
176 optio_s=ismiss
177end if
178
|