new HOMOL energy wham & cluster

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

diff --git a/source/wham/src/cxread.F b/source/wham/src/cxread.F
index 7c7ae50..d7dcbf8 100644 (file)
--- a/source/wham/src/cxread.F
+++ b/source/wham/src/cxread.F
@@ -18,7 +18,8 @@
       include 'COMMON.VAR'
       include 'COMMON.GEO'
       include 'COMMON.PROT'
-      character*64 nazwa,bprotfile_temp
+      character*64 nazwa
+      character*128 bprotfile_temp
       real*4 rtime,rpotE,ruconst,rt_bath,rprop(maxQ)
       double precision time
       integer iret,itmp,itraj,ntraj
@@ -84,7 +85,7 @@ c      print *,"bumbum"
       call xdrfint_(ixdrf, nprop, iret)
       if (umbrella(iparm) .or. homol_nset.gt.1 .or. read_iset(iparm) 
      &  .or. hamil_rep) 
-     &  call xdrfint(ixdrf, iset, iret)
+     &  call xdrfint_(ixdrf, iset, iret)
       do i=1,nprop
         call xdrffloat_(ixdrf, rprop(i), iret)
       enddo