wham

[unres.git] / source / wham / src-HCD / cxread.F

diff --git a/source/wham/src-HCD/cxread.F b/source/wham/src-HCD/cxread.F
index 36ef6e6..3f6c70b 100644 (file)
--- a/source/wham/src-HCD/cxread.F
+++ b/source/wham/src-HCD/cxread.F
@@ -17,7 +17,7 @@
       include 'COMMON.VAR'
       include 'COMMON.GEO'
       include 'COMMON.PROT'
-      character*64 nazwa,bprotfile_temp
+      character*256 nazwa,bprotfile_temp
       real*4 rtime,rpotE,ruconst,rt_bath,rprop(maxQ)
       double precision time
       integer iret,itmp,itraj,ntraj
@@ -69,8 +69,6 @@ c      call flush(iout)
            if (dyn_ss) then
             call xdrfint(ixdrf, idssb(j), iret)
             call xdrfint(ixdrf, jdssb(j), iret)
-        idssb(j)=idssb(j)-nres
-        jdssb(j)=jdssb(j)-nres
            else
             call xdrfint_(ixdrf, ihpb(j), iret)
             call xdrfint_(ixdrf, jhpb(j), iret)
@@ -174,7 +172,7 @@ c      call flush(iout)
 c      write (iout,*) "Before boxshift"
 c      call flush(iout)
 c Box shift
-      call oligomer
+c      call oligomer
 c      write (iout,*) "After oligomer"
 c      call flush(iout)
       do i=1,nres