integer nterm_sccor,isccortyp,nsccortyp,nlor_sccor
common/sccor/v1sccor(maxterm_sccor,3,20,20),
& v2sccor(maxterm_sccor,3,20,20),
integer nterm_sccor,isccortyp,nsccortyp,nlor_sccor
common/sccor/v1sccor(maxterm_sccor,3,20,20),
& v2sccor(maxterm_sccor,3,20,20),
& nterm_sccor(ntyp,ntyp),isccortyp(ntyp),nsccortyp,
& nlor_sccor(ntyp,ntyp),vlor1sccor(maxterm_sccor,20,20),
& vlor2sccor(maxterm_sccor,20,20),
& nterm_sccor(ntyp,ntyp),isccortyp(ntyp),nsccortyp,
& nlor_sccor(ntyp,ntyp),vlor1sccor(maxterm_sccor,20,20),
& vlor2sccor(maxterm_sccor,20,20),