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(maxterm_sccor,-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),