X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2FCOMMON.MD;h=b17c722b84eb05bb8156bc2bde74f5d28be7ed17;hb=89741d30725d96845588dc574e368e037634f7e7;hp=7b437fe44a33e51ca8169fef6b23085389b5142a;hpb=478a9d9a1c99eb3f4bc4ca676ff3162bdd01d633;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,