set_value Subroutine

  1. read_bc.f90
  2. read_bc
  3. set_value

private subroutine set_value(fixed_var, fix_val, inf_val, count, ios)

Set particular value to the Fixed_var variable

Arguments

Type IntentOptional AttributesName
real(kind=wp), intent(out), dimension(:):: fixed_var
real(kind=wp), intent(in) :: fix_val
real(kind=wp), intent(in) :: inf_val
integer, intent(in) :: count
integer, intent(in) :: ios

Called by

proc~~set_value~~CalledByGraph proc~set_value set_value proc~fill_fixed_values fill_fixed_values proc~fill_fixed_values->proc~set_value proc~get_fixed_values get_fixed_values proc~get_fixed_values->proc~set_value proc~read_fixed_values read_fixed_values proc~read_fixed_values->proc~fill_fixed_values proc~read_fixed_values->proc~get_fixed_values proc~setup_bc setup_bc proc~setup_bc->proc~read_fixed_values proc~setup_solver setup_solver proc~setup_solver->proc~setup_bc proc~start_run start_run proc~start_run->proc~setup_solver program~main main program~main->proc~start_run

Contents

Source Code

set_value

Source Code

    subroutine set_value(fixed_var, fix_val, inf_val, count, ios)
      !< Set particular value to the Fixed_var variable
      implicit none
      integer, intent(in) :: ios
      integer, intent(in) :: count
      real(wp)   , intent(in) :: fix_val
      real(wp)   , intent(in) :: inf_val
      real(wp)   , intent(out), dimension(:) :: fixed_var
      if(ios==0)then
        fixed_var(count) = fix_val
      else 
        fixed_var(count) = inf_val
      end if
    end subroutine set_value