X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc%2Fcxread.F;h=d7dcbf8b52d16a7d551175773a839afe5a9ae995;hb=d28adcc189ba04a8f8ede9160c3e51e73d92a920;hp=7c7ae50f1ea824c0b09dc47992c723f76740960f;hpb=90a47ba2f9ea5c266c59b225f8505a81d75420d7;p=unres.git

diff --git a/source/wham/src/cxread.F b/source/wham/src/cxread.F
index 7c7ae50..d7dcbf8 100644
--- 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