double precision 
     & gvdwc_max,gvdwc_scp_max,gelc_max,gvdwpp_max,gradb_max,ghpbc_max,
     & gradcorr_max,gel_loc_max,gcorr3_turn_max,gcorr4_turn_max,
     & gradcorr5_max,gradcorr6_max,gcorr6_turn_max,gsccorc_max,
     & gscloc_max,gvdwx_max,gradx_scp_max,ghpbx_max,gradxorr_max,
     & gsccorx_max,gsclocx_max
      common /maxgrad/
     & gvdwc_max,gvdwc_scp_max,gelc_max,gvdwpp_max,gradb_max,ghpbc_max,
     & gradcorr_max,gel_loc_max,gcorr3_turn_max,gcorr4_turn_max,
     & gradcorr5_max,gradcorr6_max,gcorr6_turn_max,gsccorc_max,
     & gscloc_max,gvdwx_max,gradx_scp_max,ghpbx_max,gradxorr_max,
     & gsccorx_max,gsclocx_max