jac_store_col Subroutine

private pure subroutine jac_store_col(ab_loc, j_col, col, kl_loc, ku_loc, diag_row_loc, n)

Store one Jacobian column into band storage AB(diag_row_loc+i-j, j) = J(i,j). Works for both the custom (diag_row_loc = ku+1) and LAPACK (diag_row_loc = kl+ku+1) storage layouts.

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(inout) :: ab_loc(:,:)
integer, intent(in) :: j_col
real(kind=wp), intent(in) :: col(n)
integer, intent(in) :: kl_loc
integer, intent(in) :: ku_loc
integer, intent(in) :: diag_row_loc
integer, intent(in) :: n