libsim Versione 7.2.4

◆ soptio_d()

elemental subroutine soptio_d ( double precision, intent(in), optional var,
double precision, intent(out) optio_d )

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

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

Definizione alla linea 211 del file optional_values.f90.

212DOUBLE PRECISION,INTENT(in),OPTIONAL :: var
213DOUBLE PRECISION,INTENT(out) :: optio_d
214
215if (present(var))then
216 optio_d=var
217else
218 optio_d=rdmiss
219end if
220

Generated with Doxygen.