1 double precision vdwcompon(ntyp,ntyp),vdw2compon(ntyp),
2 & becompon(ntyp),sccompon(ntyp),torcompon(ntyp,ntyp),
3 & sccorcompon(ntyp,ntyp),tordcompon(ntyp)
4 common /ecomponents/ vdwcompon,vdw2compon,becompon,sccompon,
5 & torcompon,sccorcompon,tordcompon