anchor.diff:         !! Loop over other columns
          fill_counter = 0
          DO II = 1, num_local_pivots
  -          pi_i = local_pivots(II)
  -          local_pi_i = pi_i - AMat%start_column + 1
  +          local_pi_i = local_pivots(II)
             !! Insert Into L
             Aval = a_buf(II)
             insert_value = inverse_factor * (Aval - dot_values(II))
  
positive.code:     REAL(NTREAL), DIMENSION(:), ALLOCATABLE :: a_buf
      INTEGER :: II, JJ, local_JJ, local_II
      INTEGER :: local_pi_i, local_pi_j
      INTEGER :: num_val
      REAL(NTREAL) :: Aval, insert_value, inverse_factor
      REAL(NTREAL), DIMENSION(:), ALLOCATABLE :: dot_values
      INTEGER, DIMENSION(:), ALLOCATABLE :: diag_correction_index
  
negative.code:     ALLOCATE(index_l(sparse_a%rows, sparse_a%columns))
      ALLOCATE(values_l(sparse_a%rows, sparse_a%columns))
      values_per_column_l = 0
      ALLOCATE(a_buf(sparse_a%columns))
  
      !! Allocate space for a received column
  