1 Parameters of the SCCOR term
2 double precision v1sccor,v2sccor,vlor1sccor,
3 & vlor2sccor,vlor3sccor
4 integer nterm_sccor,isccortyp,nsccortyp,nlor_sccor
5 common/torsion/v1sccor(maxterm_sccor,20,20),
6 & v2sccor(maxterm_sccor,20,20),
7 & nterm_sccor(ntyp,ntyp),isccortyp(ntyp),nsccortyp,
8 & nlor_sccor(ntyp,ntyp),vlor1sccor(maxterm_sccor,20,20),
9 & vlor2sccor(maxterm_sccor,20,20),
10 & vlor3sccor(maxterm_sccor,20,20)