do i=1,4*nres
glocbuf(i)=gloc(i,icg)
enddo
-#define DEBUG
+#undef DEBUG
#ifdef DEBUG
write (iout,*) "gloc_sc before reduce"
do i=1,nres
call MPI_Reduce(gloc_scbuf(1,1),gloc_sc(1,1,icg),3*nres,
& MPI_DOUBLE_PRECISION,MPI_SUM,king,FG_COMM,IERR)
time_reduce=time_reduce+MPI_Wtime()-time00
-#define DEBUG
+#undef DEBUG
#ifdef DEBUG
write (iout,*) "gloc_sc after reduce"
do i=1,nres