& 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,