anchor.diff:  
       int=int+f_k
   
  -    f_k = f_k*(a**2*(2*(k+1)+n+l-1)) / (2*(k+1)*(2*(n+k+1)+1)*2*gam)
  +    f_k = f_k*(a*a*dble(k+k+2+n+l-1)) / (dble((k+k+2)*(2*(n+k+1)+1)*2)*gam)
   
       if(dabs(int-intold).lt.1d-15)then
         done=.true.
  
positive.code:       else
  
          !Compute the s_q+1_0
          s_q_0=s_q_0*(2.d0*q+nlm+1)*b**2/((2.d0*(m+q)+3)*4.d0*(q+1)*gam)
          
          if(mod(n+m+l,2).eq.1)s_q_0=s_q_0*dsqrt(pi/2.d0)
          ! Increment q
          q=q+1
          intold=int
  
negative.code:  ! I n i t !
   !=!=!=!=!=!
  
   f=fourpi*fourpi
  
   theta_AC0=dacos( (a(3)-c(3))/ac )
   phi_AC0=datan2((a(2)-c(2))/ac,(a(1)-c(1))/ac)
  