Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(CONF_PAR_REAL), | intent(inout) | :: | this | |||
real(kind=real_8), | intent(in), | optional | :: | real_val |
SUBROUTINE set_conf_par_real(this, real_val)
CLASS(CONF_PAR_REAL), INTENT(INOUT) :: this
REAL(KIND=real_8), INTENT(IN), OPTIONAL :: real_val
IF (PRESENT(real_val)) THEN
this%val = real_val
this%source = 'U'
END IF
END SUBROUTINE set_conf_par_real