libsim Versione 7.2.6
|
◆ optio_c()
Return the optional value if present, otherwise return missing value. Unfortunately elemental is not possible here.
Definizione alla linea 124 del file optional_values.f90. 125CHARACTER (len=*),INTENT(in),OPTIONAL :: var !< variable to be checked
126INTEGER,INTENT(in) :: len !< length of the result
127
128CHARACTER(len=len) :: char
129
130if (present(var))then
131 char=var
132else
133 char=cmiss
134end if
135
|