X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc%2Fcxread.F;h=65372e329191669458c67a09cd1b5f417312dddc;hb=8889f8be9b85751ccce8d13da6dae495175f2885;hp=7bb2f6a84757a38e6334904b50c159db6fcc40b1;hpb=478a9d9a1c99eb3f4bc4ca676ff3162bdd01d633;p=unres.git

diff --git a/source/wham/src/cxread.F b/source/wham/src/cxread.F
index 7bb2f6a..65372e3 100644
--- a/source/wham/src/cxread.F
+++ b/source/wham/src/cxread.F
@@ -54,14 +54,21 @@ c      print *,"bumbum"
       do while (iret.gt.0) 
 
 #if (defined(AIX) && !defined(JUBL))
+#ifdef DEBUG
+      write (iout,*) "ii",ii," itraj",itraj," it",it
+#endif
       call xdrffloat_(ixdrf, rtime, iret)
-c      print *,"rtime",rtime," iret",iret
       call xdrffloat_(ixdrf, rpotE, iret)
-c      write (iout,*) "rpotE",rpotE," iret",iret
+#ifdef DEBUG
+      write (iout,*) "rtime",rtime," rpotE",rpotE," iret",iret
+#endif
       call flush(iout)
       call xdrffloat_(ixdrf, ruconst, iret)
       call xdrffloat_(ixdrf, rt_bath, iret)
       call xdrfint_(ixdrf, nss, iret)
+#ifdef DEBUG
+      write (iout,*) "ruconst",ruconst," rt_bath",rt_bath," nss",nss
+#endif
       do j=1,nss
         call xdrfint_(ixdrf, ihpb(j), iret)
         call xdrfint_(ixdrf, jhpb(j), iret)
@@ -73,13 +80,21 @@ c      write (iout,*) "rpotE",rpotE," iret",iret
         call xdrffloat_(ixdrf, rprop(i), iret)
       enddo
 #else
+#ifdef DEBUG
+      write (iout,*) "ii",ii," itraj",itraj," it",it
+#endif
       call xdrffloat(ixdrf, rtime, iret)
       call xdrffloat(ixdrf, rpotE, iret)
-c      write (iout,*) "rpotE",rpotE," iret",iret
+#ifdef DEBUG
+      write (iout,*) "rtime",rtime," rpotE",rpotE," iret",iret
+#endif
       call flush(iout)
       call xdrffloat(ixdrf, ruconst, iret)
       call xdrffloat(ixdrf, rt_bath, iret)
       call xdrfint(ixdrf, nss, iret)
+#ifdef DEBUG
+      write (iout,*) "ruconst",ruconst," rt_bath",rt_bath," nss",nss
+#endif
       do j=1,nss
         call xdrfint(ixdrf, ihpb(j), iret)
         call xdrfint(ixdrf, jhpb(j), iret)
@@ -102,9 +117,6 @@ c      write (iout,*) "nprop",nprop
 #endif
       if (iret.eq.0) exit
       itraj=mod(it,totraj(iR,iparm))
-#ifdef DEBUG
-      write (iout,*) "ii",ii," itraj",itraj," it",it
-#endif
       if (iset.eq.0) iset = 1
       call flush(iout)
       it=it+1