libsim Versione 7.1.11
|
◆ optio_l()
Return the optional value if present, otherwise return missing value.
Definizione alla linea 87 del file optional_values.f90. 88INTEGER(kind=int_l),INTENT(in),OPTIONAL :: var
89
90if (present(var))then
91 optio_l=var
92else
93 optio_l=ilmiss
94end if
95
|