libsim Versione 7.2.0
|
◆ optio_i()
Return the optional value if present, otherwise return missing value.
Definizione alla linea 75 del file optional_values.f90. 76INTEGER(kind=int_l),INTENT(in),OPTIONAL :: var
77
78if (present(var))then
79 optio_i=var
80else
81 optio_i=imiss
82end if
83
|