X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc-M%2Finclude_unres%2FCOMMON.INTERACT;h=d38c470febe5c1d2c9c799d5cf1268098245d057;hb=a1bbedcfb50a59f5ae082fe9016af63119b205cc;hp=650af0dd6f1398908a9854e98708aba176e85d82;hpb=0d0c28ca14abcf99ccb778cdba15a9646736571d;p=unres.git

diff --git a/source/wham/src-M/include_unres/COMMON.INTERACT b/source/wham/src-M/include_unres/COMMON.INTERACT
index 650af0d..d38c470 100644
--- a/source/wham/src-M/include_unres/COMMON.INTERACT
+++ b/source/wham/src-M/include_unres/COMMON.INTERACT
@@ -20,7 +20,10 @@ C 12/1/95 Array EPS included in the COMMON block.
      & eps_scp(ntyp,2),rscp(ntyp,2),eps_orig(ntyp,ntyp)
 c 12/5/03 modified 09/18/03 Bond stretching parameters.
       double precision vbldp0,vbldsc0,akp,aksc,abond0,distchainmax
+     &,vbldpDUM
       integer nbondterm
       common /stretch/ vbldp0,vbldsc0(maxbondterm,ntyp),akp,
      & aksc(maxbondterm,ntyp),abond0(maxbondterm,ntyp),
      & distchainmax,nbondterm(ntyp)
+     &,vbldpDUM
+