Fixed the addition of dummy chain ends to structures read from UNRES PDB files

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

diff --git a/source/unres/src_MD-M/COMMON.MD b/source/unres/src_MD-M/COMMON.MD
index 7b437fe..b17c722 100644 (file)
--- 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,