set_conf_par_real Subroutine

private subroutine set_conf_par_real(this, real_val)

Arguments

Type IntentOptional Attributes Name
class(CONF_PAR_REAL), intent(inout) :: this
real(kind=real_8), intent(in), optional :: real_val

Contents

Source Code

set_conf_par_real

Source Code

   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