write (iout,'(i5,2(3f10.5,5x),4f10.5)') i,(gcart(j,i),j=1,3),
& (gxcart(j,i),j=1,3),gloc(i,icg),gloc(i+nphi,icg),
& gloc(ialph(i,1),icg),gloc(ialph(i,1)+nside,icg)
write (iout,'(i5,2(3f10.5,5x),4f10.5)') i,(gcart(j,i),j=1,3),
& (gxcart(j,i),j=1,3),gloc(i,icg),gloc(i+nphi,icg),
& gloc(ialph(i,1),icg),gloc(ialph(i,1)+nside,icg)