& gvdwc(3,maxres),gelc(3,maxres),gelc_long(3,maxres),
& gvdwpp(3,maxres),gvdwc_scpp(3,maxres),
& gradx_scp(3,maxres),gvdwc_scp(3,maxres),ghpbx(3,maxres),
- & ghpbc(3,maxres),gloc(maxvar,2),gradcorr(3,maxres),
+ & ghpbc(3,maxres),gloc(0:maxvar,2),gradcorr(3,maxres),
& gradcorr_long(3,maxres),gradcorr5_long(3,maxres),
& gradcorr6_long(3,maxres),gcorr6_turn_long(3,maxres),
& gradxorr(3,maxres),gradcorr5(3,maxres),gradcorr6(3,maxres),