DO zmiany czytanie pisanie i cutoff

[unres.git] / source / unres / src_MD-M / COMMON.INTERACT

diff --git a/source/unres/src_MD-M/COMMON.INTERACT b/source/unres/src_MD-M/COMMON.INTERACT
index 83af3fb..37d3e88 100644 (file)
--- a/source/unres/src_MD-M/COMMON.INTERACT
+++ b/source/unres/src_MD-M/COMMON.INTERACT
@@ -24,8 +24,10 @@ C 12/1/95 Array EPS included in the COMMON block.
      & rpp(2,2),epp(2,2),elpp6(2,2),elpp3(2,2),eps_scp(ntyp,2),
      & rscp(ntyp,2)
 c 12/5/03 modified 09/18/03 Bond stretching parameters.
-      double precision vbldp0,vbldsc0,akp,aksc,abond0,distchainmax
+      double precision vbldp0,vbldpDUM,
+     &  vbldsc0,akp,aksc,abond0,distchainmax
       integer nbondterm
-      common /stretch/ vbldp0,vbldsc0(maxbondterm,ntyp),akp,
+      common /stretch/ vbldp0,vbldpDUM,
+     & vbldsc0(maxbondterm,ntyp),akp,
      & aksc(maxbondterm,ntyp),abond0(maxbondterm,ntyp),
      & distchainmax,nbondterm(ntyp)