write(iout,*)"in int to cart",i, gxcart(j,i),gloc(ialph(i,1),icg),dalpha(j,3,i), &
gloc(ialph(i,1)+nside,icg),domega(j,3,i)
#endif
write(iout,*)"in int to cart",i, gxcart(j,i),gloc(ialph(i,1),icg),dalpha(j,3,i), &
gloc(ialph(i,1)+nside,icg),domega(j,3,i)
#endif