libsim Versione 7.2.0
|
◆ optio_r()
Return the optional value if present, otherwise return missing value.
Definizione alla linea 99 del file optional_values.f90. 100REAL,INTENT(in),OPTIONAL :: var
101
102if (present(var))then
103 optio_r=var
104else
105 optio_r=rmiss
106end if
107
|