libsim Versione 7.2.1

◆ soptio_c()

elemental subroutine, public soptio_c ( character (len=*), intent(in), optional  var,
character (len=*), intent(out)  optio_c 
)

Set the output value to input, if input is present, otherwise set it to missing value.

Parametri
[in]varvariable to be checked
[out]optio_cequal to var if present, otherwise equal to the corresponding 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

Generated with Doxygen.