libsim Versione 7.2.1
|
◆ optio_log()
Return the optional value if present, otherwise return
Definizione alla linea 139 del file optional_values.f90. 140LOGICAL,INTENT(in),OPTIONAL :: var
141
142if (present(var))then
143 optio_log=var
144else
145 optio_log=.false.
146end if
147
|