libsim Versione 7.2.4
|
◆ soptio_c()
Set the output value to input, if input is present, otherwise set it to missing value.
Definizione alla linea 226 del file optional_values.f90. 227CHARACTER (len=*),INTENT(in),OPTIONAL :: var !< variable to be checked
228CHARACTER (len=*),INTENT(out) :: optio_c !< equal to \a var if present, otherwise equal to the corresponding missing value
229
230if (present(var))then
231 optio_c=var
232else
233 optio_c=cmiss
234end if
235
|