anchor.diff:    double precision               :: P_new(0:max_dim,3),P_center(3),fact_p,pp
     double precision               :: Q_new(0:max_dim,3),Q_center(3),fact_q,qq
     integer                        :: iorder_p(3), iorder_q(3)
  -  logical                        :: do_p, do_q, do_r
  -  
  +  double precision               :: ao_bielec_integral_schwartz_accel
  +  
  +   if (ao_prim_num(i) * ao_prim_num(j) * ao_prim_num(k) * ao_prim_num(l) > 1024 ) then
  +     ao_bielec_integral = ao_bielec_integral_schwartz_accel(i,j,k,l)
  +     return
  +   endif
  +
     PROVIDE all_utils
     
     dim1 = n_pt_max_integrals
  
positive.code:                 I_power(2),J_power(2),K_power(2),L_power(2),         &
                  I_power(3),J_power(3),K_power(3),L_power(3))
              ao_bielec_integral +=  coef4 * integral
  !            if (abs(integral) < thresh) then
  !              exit
  !            endif
              do_r = .True.
              do_q = .True.
              do_p = .True.
            enddo ! s
          enddo  ! r
        enddo   ! q
      enddo    ! p
      
    endif
    
  end
  
  
negative.code:   
    !DEC$ FORCEINLINE
    call multiply_poly(Ix_pol,n_Ix,Iy_pol,n_Iy,d_poly,n_pt_tmp)
    if (n_pt_tmp == -1) then
      return
    endif
    n_pt_out = n_pt_tmp+n_Iz
    do i=0,n_pt_out
      d1(i)=0.d0
  