X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2FCOMMON.MD;h=b17c722b84eb05bb8156bc2bde74f5d28be7ed17;hb=98158d7c5de83e568ace7569aaa37f19e2683f66;hp=7b437fe44a33e51ca8169fef6b23085389b5142a;hpb=a45ce81aae2c857c30b821e39e45a7a08356de4d;p=unres.git

diff --git a/source/unres/src_MD-M/COMMON.MD b/source/unres/src_MD-M/COMMON.MD
index 7b437fe..b17c722 100644
--- a/source/unres/src_MD-M/COMMON.MD
+++ b/source/unres/src_MD-M/COMMON.MD
@@ -54,7 +54,7 @@
      & rattle,RESPA
       common /inertia/ IP,ISC,MP,MSC
       double precision scal_fric,rwat,etawat,gamp,
-     & gamsc(ntyp),stdfp,stdfsc(ntyp),stdforcp(MAXRES),
+     & gamsc(ntyp1),stdfp,stdfsc(ntyp),stdforcp(MAXRES),
      & stdforcsc(MAXRES),pstok,restok(ntyp+1),cPoise,Rb
       common /langevin/ pstok,restok,gamp,gamsc,
      & stdfp,stdfsc,stdforcp,stdforcsc,rwat,etawat,cPoise,Rb,surfarea,