libsim Versione 7.2.1
|
◆ optio_s()
Return the optional value if present, otherwise return missing value.
Definizione alla linea 63 del file optional_values.f90. 64INTEGER(kind=int_s),INTENT(in),OPTIONAL :: var
65
66if (present(var))then
67 optio_s=var
68else
69 optio_s=ismiss
70end if
71
|