1 double precision scal_fric,rwat,etawat,gamp,
2 & gamsc(ntyp1),stdfp,stdfsc(ntyp),stdforcp(MAXRES),
3 & stdforcsc(MAXRES),pstok,restok(ntyp+1),cPoise,Rb
4 common /langevin/ pstok,restok,gamp,gamsc,
5 & stdfp,stdfsc,stdforcp,stdforcsc,rwat,etawat,cPoise,Rb
6 double precision IP,ISC(ntyp+1),mp,
8 common /inertia/ IP,ISC,MP,MSC