anchor.diff:        CC(:)=0.0_wp
   
         do q=LL,UU
  +        ! no vect
           CC(1)=CC(1)+(EE(c1,q+N/2,1)+k3(q+N/2,1))*nn(c1,p(pp)-q+N/2,1)-(EE(c1,q+N/2,2)+k3(q+N/2,2))*nn(c1,p(pp)-q+N/2,2);
           CC(2)=CC(2)+(EE(c1,q+N/2,1)+k3(q+N/2,1))*nn(c1,p(pp)-q+N/2,2)+(EE(c1,q+N/2,2)+k3(q+N/2,2))*nn(c1,p(pp)-q+N/2,1);
         end do
  
positive.code:   nn(:,N-N/2+1:N,2) = -nn(:,:N/2,2) ! yes minus
    nn(:,N/2,:)=0.0_wp
  
    counter1=0
    do tt1=1,TT
  
  !		int c0=(tt1-1) % 3;
  
negative.code: 
  
  real(wp):: EE(3,N,2), nn(3,N,2), vv(3,N,2), CC(2), SSE(N,2), SSn(2), cte1, cte2, &
      k1(N,2), k2(N,2), k3(N,2), k4(N,2), kn1(2), kn2(2), kn3(2), kn4(2), kv1(2), kv2(2), kv3(2), kv4(2)
  
  integer :: LL,UU,pp
  
  