& epp_low(2,2),epp_up(2,2),rpp_low(2,2),rpp_up(2,2),
& elpp6_low(2,2),elpp6_up(2,2),elpp3_low(2,2),elpp3_up(2,2),
& b_low(13,3),b_up(13,3),x_up(max_paropt),x_low(max_paropt),
- & epscp_low(0:20,2),epscp_up(0:20,2),rscp_low(0:20,2),
- & rscp_up(0:20,2),epss_low(ntyp),epss_up(ntyp),epsp_low(nntyp),
+ & epscp_low(0:ntyp,2),epscp_up(0:ntyp,2),rscp_low(0:ntyp,2),
+ & rscp_up(0:ntyp,2),epss_low(ntyp),epss_up(ntyp),epsp_low(nntyp),
& epsp_up(nntyp),
& xm(max_paropt,0:maxprot),xm1(max_paropt,0:maxprot),
& xm2(max_paropt,0:maxprot),
& imask(max_ene),nsingle_sc,npair_sc,ityp_ssc(ntyp),
& ityp_psc(2,nntyp),mask_elec(2,2,4),
& mask_fourier(13,3),
- & mask_scp(0:20,2,2),mod_other_params,mod_fourier(0:3),
+ & mask_scp(0:ntyp,2,2),mod_other_params,mod_fourier(0:3),
& mod_elec,mod_scp,mod_side,indz(maxbatch+1,maxprot),iw(max_ene)