libsim Versione 7.2.1
|
◆ optio_d()
Return the optional value if present, otherwise return missing value.
Definizione alla linea 111 del file optional_values.f90. 112DOUBLE PRECISION,INTENT(in),OPTIONAL :: var
113
114if (present(var))then
115 optio_d=var
116else
117 optio_d=rdmiss
118end if
119
|