libsim  Versione 7.2.4

◆ soptio_c()

elemental subroutine, public optional_values::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.

227 CHARACTER (len=*),INTENT(in),OPTIONAL :: var !< variable to be checked
228 CHARACTER (len=*),INTENT(out) :: optio_c !< equal to \a var if present, otherwise equal to the corresponding missing value
229 
230 if (present(var))then
231  optio_c=var
232 else
233  optio_c=cmiss
234 end if
235 

Generated with Doxygen.