libsim Versione 7.2.6
|
◆ soptio_r()
Set the output value to input, if input is present, otherwise set it to missing value.
Definizione alla linea 197 del file optional_values.f90. 198REAL,INTENT(in),OPTIONAL :: var !< variable to be checked
199REAL,INTENT(out) :: optio_r !< equal to \a var if present, otherwise equal to the corresponding missing value
200
201if (present(var))then
202 optio_r=var
203else
204 optio_r=rmiss
205end if
206
|