libsim  Versione 7.2.1

◆ soptio_r()

elemental subroutine, public optional_values::soptio_r ( real, intent(in), optional  var,
real, intent(out)  optio_r 
)

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

Parametri
[in]varvariable to be checked
[out]optio_requal to var if present, otherwise equal to the corresponding missing value

Definizione alla linea 197 del file optional_values.f90.

198 REAL,INTENT(in),OPTIONAL :: var
199 REAL,INTENT(out) :: optio_r
200 
201 if (present(var))then
202  optio_r=var
203 else
204  optio_r=rmiss
205 end if
206 

Generated with Doxygen.