common /shield/ VSolvSphere,VSolvSphere_div,buff_shield,
& long_r_sidechain(ntyp),
& short_r_sidechain(ntyp),fac_shield(maxres),wshield,
- & grad_shield_side(3,maxcont,-1:maxres),grad_shield(3,-1:maxres),
- & grad_shield_loc(3,maxcont,-1:maxres),
- & ishield_list(maxres),shield_list(maxcont,maxres),
- & ees0plist(maxcont,maxres)
+ & grad_shield_side(3,maxint_res,-1:maxres),
+ & grad_shield(3,-1:maxres),
+ & grad_shield_loc(3,maxint_res,-1:maxres),
+ & ishield_list(maxres),shield_list(maxint_res,maxres),
+ & ees0plist(maxint_res,maxres)