bc_data_get_2d Function

public elemental function bc_data_get_2d(n_bc, x1, qt) result(val)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n_bc
double precision, intent(in) :: x1
double precision, intent(in) :: qt

Return Value double precision


Calls

proc~~bc_data_get_2d~~CallsGraph proc~bc_data_get_2d bc_data_get_2d proc~lt2_get_col LT2_get_col proc~bc_data_get_2d->proc~lt2_get_col proc~lt_get_col LT_get_col proc~bc_data_get_2d->proc~lt_get_col proc~lt2_get_col_at_loc LT2_get_col_at_loc proc~lt2_get_col->proc~lt2_get_col_at_loc proc~lt2_get_loc LT2_get_loc proc~lt2_get_col->proc~lt2_get_loc proc~lt_get_col_at_loc LT_get_col_at_loc proc~lt_get_col->proc~lt_get_col_at_loc proc~lt_get_loc LT_get_loc proc~lt_get_col->proc~lt_get_loc

Source Code

  elemental function bc_data_get_2d(n_bc, x1, qt) result(val)
    integer, intent(in)          :: n_bc
    double precision, intent(in) :: x1, qt
    double precision             :: val

    if (bc_data_time_varying) then
       val = LT2_get_col(lt_2d(n_bc), 1, x1, qt)
    else
       val = LT_get_col(lt_1d(n_bc), 1, x1)
    end if
  end function bc_data_get_2d