integer p_fileno,p_max,p2_max parameter (p_fileno=12,p_max=1000,p2_max=400) character *40 p_title,p_xtitle,p_ytitle real*4 p_log_min integer p_graph_flags(0:4) real*4 p_surf_scale,p_surf_eye1,p_surf_eye2,p_surf_eye real*4 p_contour_flag logical*1 p_dofile,p_dographics c common /plots/ p_title,p_xtitle,p_ytitle, * p_log_min, * p_graph_flags, * p_surf_scale,p_surf_eye1,p_surf_eye2,p_surf_eye, * p_contour_flag,p_dofile,p_dographics