& gradx_scp(3,-1:maxres),gvdwc_scp(3,-1:maxres),
& ghpbx(3,-1:maxres),
& ghpbc(3,-1:maxres),gloc(maxvar,2),gradcorr(3,-1:maxres),
& gradx_scp(3,-1:maxres),gvdwc_scp(3,-1:maxres),
& ghpbx(3,-1:maxres),
& ghpbc(3,-1:maxres),gloc(maxvar,2),gradcorr(3,-1:maxres),