anchor.diff:      call bielec_integrals_index(k,i,l,i,hash(i))
     enddo
     
  -  if (key_kind == 8) then
  +  if (integral_kind == 8) then
       call map_get_many(map, hash, out_val, sze)
     else
       call map_get_many(map, hash, tmp_val, sze)
  
positive.code:     call bielec_integrals_index(i,j,k,l,hash(i))
    enddo
    
    if (key_kind == 8) then
      call map_get_many(map, hash, out_val, sze)
    else
      call map_get_many(map, hash, tmp_val, sze)
  
negative.code:     call bielec_integrals_index(k,i,i,l,hash(i))
    enddo
    
    if (integral_kind == 8) then
      call map_get_many(map, hash, out_val, sze)
    else
      call map_get_many(map, hash, tmp_val, sze)
  