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