time00=MPI_Wtime()
call MPI_Reduce(enebuff(0),energia(0),n_ene+1,
& MPI_DOUBLE_PRECISION,MPI_SUM,king,FG_COMM,IERR)
-C#ifdef DEBUG
+#ifdef DEBUG
write (iout,*) "energies after REDUCE"
call enerprint(energia)
call flush(iout)
-C#endif
+#endif
time_Reduce=time_Reduce+MPI_Wtime()-time00
endif
if (fg_rank.eq.0) then