-C Parameters of the SCCOR term
- double precision v1sccor,v2sccor
- integer nterm_sccor
+ Parameters of the SCCOR term
+ double precision v1sccor,v2sccor,vlor1sccor,
+ & vlor2sccor,vlor3sccor
+ integer nterm_sccor,isccortyp,nsccortyp,nlor_sccor
common/torsion/v1sccor(maxterm_sccor,20,20),
& v2sccor(maxterm_sccor,20,20),
- & nterm_sccor
+ & nterm_sccor(ntyp,ntyp),isccortyp(ntyp),nsccortyp,
+ & nlor_sccor(ntyp,ntyp),vlor1sccor(maxterm_sccor,20,20),
+ & vlor2sccor(maxterm_sccor,20,20),
+ & vlor3sccor(maxterm_sccor,20,20)
+