X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fcluster%2Fwham%2Fsrc-M%2Fparmread.F;h=7adfb30ddc03bf4c19b1e5795ec8d4e1c6568bd0;hb=dea2e7e9c8a159fba253863186d91d90930f17c6;hp=f02e1a26710bf3c6c54020667f9e351847438d90;hpb=5bb791af1e8990b66bc0543222e13e789a3f69aa;p=unres.git

diff --git a/source/cluster/wham/src-M/parmread.F b/source/cluster/wham/src-M/parmread.F
index f02e1a2..7adfb30 100644
--- a/source/cluster/wham/src-M/parmread.F
+++ b/source/cluster/wham/src-M/parmread.F
@@ -34,8 +34,8 @@ C Assign virtual-bond length
       vblinv=1.0D0/vbl
       vblinv2=vblinv*vblinv
 #ifdef CRYST_BOND
-      read (ibond,*) vbldp0,akp
-      do i=1,ntyp
+      read (ibond,*) vbldp0,vbldpdum,akp
+       do i=1,ntyp
         nbondterm(i)=1
         read (ibond,*) vbldsc0(1,i),aksc(1,i)
         dsc(i) = vbldsc0(1,i)
@@ -46,7 +46,7 @@ C Assign virtual-bond length
         endif
       enddo
 #else
-      read (ibond,*) ijunk,vbldp0,akp,rjunk
+       read (ibond,*) ijunk,vbldp0,vbldpdum,akp,rjunk
       do i=1,ntyp
         read (ibond,*) nbondterm(i),(vbldsc0(j,i),aksc(j,i),abond0(j,i),
      &   j=1,nbondterm(i))