-
-c write(iout,*) 'exchange',i,iex
-c write (iout,'(a8,100i4)') "@ ifirst",
-c & (ifirst(k),k=1,remd_m(1))
-c do il=1,nodes
-c write (iout,'(a8,i4,a1,100i4)') "@ nupa",il,":",
-c & (nupa(k,il),k=1,nupa(0,il))
-c write (iout,'(a8,i4,a1,100i4)') "@ ndowna",il,":",
-c & (ndowna(k,il),k=1,ndowna(0,il))
-c enddo
-c call flush(iout)
-
+#ifdef DEBUG
+ write(iout,*) 'exchange',i,iex
+ write (iout,'(a8,100i4)') "@ ifirst",
+ & (ifirst(k),k=1,remd_m(1))
+ do il=1,nodes
+ write (iout,'(a8,i4,a1,100i4)') "@ nupa",il,":",
+ & (nupa(k,il),k=1,nupa(0,il))
+ write (iout,'(a8,i4,a1,100i4)') "@ ndowna",il,":",
+ & (ndowna(k,il),k=1,ndowna(0,il))
+ enddo
+ call flush(iout)
+#endif