libsim Versione 7.1.11
|
◆ optio_b()
Return the optional value if present, otherwise return missing value.
Definizione alla linea 51 del file optional_values.f90. 52INTEGER(kind=int_b),INTENT(in),OPTIONAL :: var
53
54if (present(var))then
55 optio_b=var
56else
57 optio_b=ibmiss
58end if
59
|