libsim Versione 7.2.1
|
◆ soptio_b()
Set the output value to input, if input is present, otherwise set it to missing value.
Definizione alla linea 155 del file optional_values.f90. 156INTEGER(kind=int_b),INTENT(in),OPTIONAL :: var
157INTEGER(kind=int_b),INTENT(out) :: optio_b
158
159if (present(var))then
160 optio_b=var
161else
162 optio_b=ibmiss
163end if
164
|