libsim  Versione7.2.3

◆ soptio_d()

elemental subroutine soptio_d ( double precision, intent(in), optional  var,
double precision, intent(out)  optio_d 
)

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

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

Definizione alla linea 212 del file optional_values.f90.

212 DOUBLE PRECISION,INTENT(in),OPTIONAL :: var
213 DOUBLE PRECISION,INTENT(out) :: optio_d
214 
215 if (present(var))then
216  optio_d=var
217 else
218  optio_d=rdmiss
219 end if
220 

Generated with Doxygen.