& gloc(maxvar,2),gradcorr(3,maxres),gradxorr(3,maxres),
& gradcorr5(3,maxres),gradcorr6(3,maxres),
& gel_loc(3,maxres),gcorr3_turn(3,maxres),gcorr4_turn(3,maxres),
& gloc(maxvar,2),gradcorr(3,maxres),gradxorr(3,maxres),
& gradcorr5(3,maxres),gradcorr6(3,maxres),
& gel_loc(3,maxres),gcorr3_turn(3,maxres),gcorr4_turn(3,maxres),