bc_data_get_3d Function

public elemental function bc_data_get_3d(n_bc, x1, x2, qt) result(val)

Arguments

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

Return Value double precision


Calls

proc~~bc_data_get_3d~~CallsGraph proc~bc_data_get_3d bc_data_get_3d proc~lt2_get_col LT2_get_col proc~bc_data_get_3d->proc~lt2_get_col proc~lt3_get_col LT3_get_col proc~bc_data_get_3d->proc~lt3_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~lt3_get_col_at_loc LT3_get_col_at_loc proc~lt3_get_col->proc~lt3_get_col_at_loc proc~lt3_get_loc LT3_get_loc proc~lt3_get_col->proc~lt3_get_loc

Called by

proc~~bc_data_get_3d~~CalledByGraph proc~bc_data_get_3d bc_data_get_3d proc~bc_data_set bc_data_set proc~bc_data_set->proc~bc_data_get_3d

Source Code

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

    if (bc_data_time_varying) then
       val = LT3_get_col(lt_3d(n_bc), 1, x1, x2, qt)
    else
       val = LT2_get_col(lt_2d(n_bc), 1, x1, x2)
    end if
  end function bc_data_get_3d