libsim  Versione7.2.1

◆ soptio_b()

elemental subroutine soptio_b ( integer(kind=int_b), intent(in), optional  var,
integer(kind=int_b), intent(out)  optio_b 
)

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

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

Definizione alla linea 156 del file optional_values.f90.

156 INTEGER(kind=int_b),INTENT(in),OPTIONAL :: var
157 INTEGER(kind=int_b),INTENT(out) :: optio_b
158 
159 if (present(var))then
160  optio_b=var
161 else
162  optio_b=ibmiss
163 end if
164 

Generated with Doxygen.