correcation in ion param and dyn_ss

[unres4.git] / source / wham / io_database.F90

diff --git a/source/wham/io_database.F90 b/source/wham/io_database.F90
index 5b8cad4..c28ad78 100644 (file)
--- a/source/wham/io_database.F90
+++ b/source/wham/io_database.F90
@@ -1284,24 +1284,34 @@ write(iout,*) "end of read database"
 !      write (iout,*) "xdrf3dfcoord"
 !      call flush(iout)
       call xdrfint_(ixdrf, nss, iret)
+            write (iout,*) "iret",iret
+            write (iout,*) "nss",nss,i,"TUTU"
       do j=1,nss
         call xdrfint_(ixdrf, ihpb(j), iret)
         call xdrfint_(ixdrf, jhpb(j), iret)
+            write(iout,*), ihpb(j),jhpb(j),"TUTU"
       enddo
       call xdrffloat_(ixdrf,real(eini),iret) 
       call xdrffloat_(ixdrf,real(efree),iret) 
+            write(iout,*) "TUTU", eini
+            write(iout,*) "TUTU", efree
       call xdrffloat_(ixdrf,real(rmsdev),iret) 
       call xdrfint_(ixdrf,iscor,iret) 
 #else
       call xdrf3dfcoord(ixdrf, xoord, itmp, prec, iret)
+            write (iout,*) "iret",iret
+            write (iout,*) "nss",nss,i,"TUTU"
 
       call xdrfint(ixdrf, nss, iret)
       do j=1,nss
         call xdrfint(ixdrf, ihpb(j), iret)
         call xdrfint(ixdrf, jhpb(j), iret)
+            write(iout,*), ihpb(j),jhpb(j),"TUTU"
       enddo
       call xdrffloat(ixdrf,real(eini),iret) 
       call xdrffloat(ixdrf,real(efree),iret) 
+            write(iout,*) "TUTU", eini
+            write(iout,*) "TUTU", efree
       call xdrffloat(ixdrf,real(rmsdev),iret) 
       call xdrfint(ixdrf,iscor,iret) 
 #endif