& short_r_sidechain(ntyp),fac_shield(maxres),wshield,
& grad_shield_side(3,maxcontsshi,-1:maxres),
& grad_shield(3,-1:maxres),
& short_r_sidechain(ntyp),fac_shield(maxres),wshield,
& grad_shield_side(3,maxcontsshi,-1:maxres),
& grad_shield(3,-1:maxres),