& alp_all(ntyp,max_parm),ebr_all(max_parm),d0cm_all(max_parm),
& akcm_all(max_parm),akth_all(max_parm),akct_all(max_parm),
& v1ss_all(max_parm),v2ss_all(max_parm),v3ss_all(max_parm),
- & v1sccor_all(maxterm_sccor,ntyp,ntyp,max_parm),
- & v2sccor_all(maxterm_sccor,ntyp,ntyp,max_parm)
+ & v1sccor_all(maxterm_sccor,3,-ntyp:ntyp,-ntyp:ntyp,max_parm),
+ & v2sccor_all(maxterm_sccor,3,-ntyp:ntyp,-ntyp:ntyp,max_parm)
integer nlob_all(ntyp1,max_parm),
& nlor_all(-maxtor:maxtor,-maxtor:maxtor,2,max_parm),
& nterm_all(-maxtor:maxtor,-maxtor:maxtor,2,max_parm),
& ithetyp_all(ntyp1,max_parm),ntheterm_all(max_parm),
& ntheterm2_all(max_parm),ntheterm3_all(max_parm),
& nsingle_all(max_parm),ndouble_all(max_parm),
- & nntheterm_all(max_parm),nterm_sccor_all(max_parm)
+ & nntheterm_all(max_parm),
+ &nterm_sccor_all(-ntyp:ntyp,-ntyp:ntyp,max_parm)
common /allparm/ ww_all,vbldp0_all,akp_all,vbldsc0_all,aksc_all,
& abond0_all,aa0thet_all,aathet_all,bbthet_all,ccthet_all,
& ddthet_all,eethet_all,ffthet_all,ggthet_all,