+#ifdef DEBUG
+c write (iout,*) "in cartgrad before sum_: duscdiff and duscdiffx"
+ write (iout,*) "------ Before call sum_ in cargrad ------"
+ do i=1,nres
+ write (iout,*) i,(duscdiff(j,i),j=1,3)
+ write (iout,*) i,(duscdiffx(j,i),j=1,3)
+ write (iout,*) "nphi+i",nphi+i," gloc",gloc(nphi+i,icg)
+ write (iout,*) "i",i," gradc",(gradc(j,i,icg),j=1,3)
+ write (iout,*) "i",i," gradx",(gradx(j,i,icg),j=1,3)
+ enddo
+#endif