integer nterm_sccor,isccortyp,nsccortyp,nlor_sccor
common /sccor/ v1sccor(maxterm_sccor,3,20,20),
& v2sccor(maxterm_sccor,3,20,20),
- & v0sccor(maxterm_sccor,20),
+ & v0sccor(ntyp,ntyp),
& vlor1sccor(maxterm_sccor,20,20),
& vlor2sccor(maxterm_sccor,20,20),
& vlor3sccor(maxterm_sccor,20,20),gloc_sc(3,0:maxres2,10),