module fbindtypes implicit none TYPE Gerr_st_id INTEGER :: i END TYPE Gerr_st_id TYPE(Gerr_st_id), PARAMETER :: & Gerr_st_on = Gerr_st_id(0), & Gerr_st_off = Gerr_st_id(1) !----------------------------------------------------------------------------- TYPE Gfn_id INTEGER :: i END TYPE Gfn_id TYPE(Gfn_id), PARAMETER :: & Gfn_gopen_gks = Gfn_id(1), & Gfn_gclose_gks = Gfn_id(2), & Gfn_gsave_gsl = Gfn_id(3), & Gfn_grestore_gsl = Gfn_id(4), & Gfn_gescape = Gfn_id(5), & Gfn_gemergency_close_gks = Gfn_id(6), & Gfn_groute = Gfn_id(7), & Gfn_gcreate_out_prim = Gfn_id(8), & Gfn_gopen_stencil = Gfn_id(9), & Gfn_gclose_stencil = Gfn_id(10), & Gfn_grename_stencil = Gfn_id(11), & Gfn_gdel_stencil = Gfn_id(12), & Gfn_gcreate_stencil_bndry = Gfn_id(13), & Gfn_gcreate_stencil_conts = Gfn_id(14), & Gfn_gset_cont_attr = Gfn_id(15), & Gfn_gset_stencil_attr = Gfn_id(16), & Gfn_gget_stencil_attr = Gfn_id(17), & Gfn_ginst_stencil = Gfn_id(18), & Gfn_ginst_stencil_path = Gfn_id(19), & Gfn_ginst_stencil_seq_path = Gfn_id(20), & Gfn_gopen_tiling = Gfn_id(21), & Gfn_gclose_tiling = Gfn_id(22), & Gfn_grename_tiling = Gfn_id(23), & Gfn_gdel_tiling = Gfn_id(24), & Gfn_gcreate_tiling_comp = Gfn_id(25), & Gfn_gset_prim_attr = Gfn_id(26), & Gfn_gadd_set_names_nameset = Gfn_id(27), & Gfn_gremove_set_names_nameset = Gfn_id(28), & Gfn_gadd_set_scissor_set = Gfn_id(29), & Gfn_grem_set_scissor_set = Gfn_id(30), & Gfn_gremove_set_scissor_set = Gfn_id(31), & Gfn_gset_win_vp = Gfn_id(32), & Gfn_gset_vp_in_pri = Gfn_id(33), & Gfn_gset_scissor_mode = Gfn_id(34), & Gfn_gset_norm_tran_num = Gfn_id(35), & Gfn_gdel_prims_ndc_pic = Gfn_id(36), & Gfn_gadd_set_names_ndc_pic = Gfn_id(37), & Gfn_gremove_set_names_ndc_pic = Gfn_id(38) TYPE(Gfn_id), PARAMETER :: & Gfn_gset_ndc_pic_prim_attr = Gfn_id(39), & Gfn_gremove_set_scissor_ndc_pic = Gfn_id(40), & Gfn_gadd_set_scissor_ndc_pic = Gfn_id(41), & Gfn_greorder_ndc_pic = Gfn_id(42), & Gfn_gcopy_ndc_pic_ndc_mf = Gfn_id(43), & Gfn_gcopy_ndc_mf_pic_ndc_pic = Gfn_id(44), & Gfn_gopen_pic_part = Gfn_id(45), & Gfn_gclose_pic_part = Gfn_id(46), & Gfn_gar_pic_part = Gfn_id(47), & Gfn_gret_pic_part_ar = Gfn_id(48), & Gfn_greopen_pic_part = Gfn_id(49), & Gfn_gappend_pic_part = Gfn_id(50), & Gfn_grename_pic_part = Gfn_id(51), & Gfn_gdel_pic_part = Gfn_id(52), & Gfn_gcopy_pic_part_pps = Gfn_id(53), & Gfn_gcopy_ndc_pic_pps = Gfn_id(54), & Gfn_gset_in_dev_mode = Gfn_id(55), & Gfn_greq_in = Gfn_id(56), & Gfn_gsample_in = Gfn_id(57), & Gfn_gawait_in = Gfn_id(58), & Gfn_gflush_dev_events = Gfn_id(59), & Gfn_gset_font_ind_map = Gfn_id(60), & Gfn_gget_glyph_name = Gfn_id(61), & Gfn_gset_char_code = Gfn_id(62), & Gfn_gaudit = Gfn_id(63), & Gfn_gwrite_user_rec_audit = Gfn_id(64), & Gfn_gplayback = Gfn_id(65), & Gfn_gread_item_func_name_audit = Gfn_id(66), & Gfn_gread_item_audit = Gfn_id(67), & Gfn_gproc_audit_item = Gfn_id(68), & Gfn_ginq_op_st_entry = Gfn_id(69), & Gfn_ginq_gdt_entry = Gfn_id(70), & Gfn_ginq_gsl_entry = Gfn_id(71), & Gfn_ginq_in_overf = Gfn_id(72), & Gfn_geval_tran_matrix = Gfn_id(73), & Gfn_gaccum_tran_matrix = Gfn_id(74), & Gfn_geval_circle = Gfn_id(75), & Gfn_geval_ell = Gfn_id(76) TYPE(Gfn_id), PARAMETER :: & Gfn_geval_circ_arc_3_point = Gfn_id(77), & Gfn_geval_circ_arc_ctr = Gfn_id(78), & Gfn_geval_ell_arc = Gfn_id(79), & Gfn_geval_hyp_arc = Gfn_id(80), & Gfn_geval_par_arc = Gfn_id(81), & Gfn_geval_wc_ord = Gfn_id(82), & Gfn_gopen_ws = Gfn_id(83), & Gfn_gclose_ws = Gfn_id(84), & Gfn_gsave_wsl = Gfn_id(85), & Gfn_grestore_wsl = Gfn_id(86), & Gfn_gget_ws_status = Gfn_id(87), & Gfn_gremove_backdrop = Gfn_id(88), & Gfn_gset_rep = Gfn_id(89), & Gfn_gset_view_pri = Gfn_id(90), & Gfn_gset_view_sel_crit = Gfn_id(91), & Gfn_gset_view = Gfn_id(92), & Gfn_gset_ws_vis_effects = Gfn_id(93), & Gfn_gset_ws_win_vp = Gfn_id(94), & Gfn_gdef_in_dev = Gfn_id(95), & Gfn_ginit_in_dev = Gfn_id(96), & Gfn_gset_ws_sel_crit = Gfn_id(97), & Gfn_gcopy_real_pic_real_mf = Gfn_id(98), & Gfn_gcopy_blank_pic_real_mf = Gfn_id(99), & Gfn_gcopy_real_mf_pic_backdrop = Gfn_id(100) TYPE(Gfn_id), PARAMETER :: & Gfn_gmessage = Gfn_id(101), & Gfn_ginq_wsl_entry = Gfn_id(102), & Gfn_ginq_gen_wdt_entry = Gfn_id(103), & Gfn_ginq_spec_wdt_entry = Gfn_id(104), & Gfn_ginq_spec_wdt_entry_st = Gfn_id(105), & Gfn_gres_spec_wdt_entry_st = Gfn_id(106), & Gfn_gget_text_extent = Gfn_id(107), & Gfn_geval_view_ori_matrix = Gfn_id(108), & Gfn_geval_view_map_matrix = Gfn_id(109), & Gfn_gconv_col = Gfn_id(110), & Gfn_gcreate_seg = Gfn_id(111), & Gfn_gclose_seg = Gfn_id(112), & Gfn_grename_seg = Gfn_id(113), & Gfn_gdel_seg = Gfn_id(114), & Gfn_gdel_seg_ws = Gfn_id(115), & Gfn_gassoc_seg_ws = Gfn_id(116), & Gfn_gcopy_seg_ws = Gfn_id(117), & Gfn_ginsert_seg = Gfn_id(118), & Gfn_gset_seg_attr = Gfn_id(119), & Gfn_gactivate_ws = Gfn_id(120), & Gfn_gdeactivate_ws = Gfn_id(121), & Gfn_gclear_ws = Gfn_id(122), & Gfn_gget_map_seg_name = Gfn_id(123), & Gfn_gget_map_ws_id = Gfn_id(124) !----------------------------------------------------------------------------- TYPE Groute_dir_id INTEGER :: i END TYPE Groute_dir_id TYPE(Groute_dir_id), PARAMETER :: & Groute_dir_ndc = Groute_dir_id(0), & Groute_dir_backdrop = Groute_dir_id(1) !----------------------------------------------------------------------------- TYPE Gcolr_array_spec_id INTEGER :: i END TYPE Gcolr_array_spec_id TYPE(Gcolr_array_spec_id), PARAMETER :: & Gcolr_array_spec_indirectarray = Gcolr_array_spec_id(0), & Gcolr_array_spec_rgbarray = Gcolr_array_spec_id(1), & Gcolr_array_spec_cieluvarray = Gcolr_array_spec_id(2), & Gcolr_array_spec_hsvarray = Gcolr_array_spec_id(3), & Gcolr_array_spec_hlsarray = Gcolr_array_spec_id(4) !----------------------------------------------------------------------------- TYPE Gctrl_points_id INTEGER :: i END TYPE Gctrl_points_id TYPE(Gctrl_points_id), PARAMETER :: & Gctrl_points_hcp = Gctrl_points_id(0), & Gctrl_points_cp = Gctrl_points_id(1) !----------------------------------------------------------------------------- TYPE Gprim_param_id INTEGER :: i END TYPE Gprim_param_id TYPE(Gprim_param_id), PARAMETER :: & Gprim_param_setline = Gprim_param_id(0), & Gprim_param_setnurb = Gprim_param_id(1), & Gprim_param_conicsec = Gprim_param_id(2), & Gprim_param_marker = Gprim_param_id(3), & Gprim_param_setfill = Gprim_param_id(4), & Gprim_param_setellipsec = Gprim_param_id(5), & Gprim_param_setellipseg = Gprim_param_id(6), & Gprim_param_setellipdisc = Gprim_param_id(7), & Gprim_param_setclosednurb = Gprim_param_id(8), & Gprim_param_text = Gprim_param_id(9), & Gprim_param_cellarray = Gprim_param_id(10), & Gprim_param_design = Gprim_param_id(11), & Gprim_param_gdp = Gprim_param_id(12) !----------------------------------------------------------------------------- TYPE Gsense_flag_id INTEGER :: i END TYPE Gsense_flag_id TYPE(Gsense_flag_id), PARAMETER :: & Gsense_flag_clockwise = Gsense_flag_id(0), & Gsense_flag_anticlockwise = Gsense_flag_id(1) !----------------------------------------------------------------------------- TYPE Gprim_attr_id INTEGER :: i END TYPE Gprim_attr_id TYPE(Gprim_attr_id), PARAMETER :: & Gprim_attr_pickid = Gprim_attr_id(0), & Gprim_attr_nameset = Gprim_attr_id(1), & Gprim_attr_scissorset = Gprim_attr_id(2), & Gprim_attr_globaltran = Gprim_attr_id(3), & Gprim_attr_loctran = Gprim_attr_id(4), & Gprim_attr_patsize = Gprim_attr_id(5), & Gprim_attr_patrefpt = Gprim_attr_id(6), & Gprim_attr_textheight = Gprim_attr_id(7), & Gprim_attr_textupvec = Gprim_attr_id(8), & Gprim_attr_textskew = Gprim_attr_id(9), & Gprim_attr_textpath = Gprim_attr_id(10), & Gprim_attr_textalign = Gprim_attr_id(11), & Gprim_attr_curveind = Gprim_attr_id(12), & Gprim_attr_curveasfs = Gprim_attr_id(13), & Gprim_attr_curvetype = Gprim_attr_id(14), & Gprim_attr_curvewidth = Gprim_attr_id(15), & Gprim_attr_curvecolrspec = Gprim_attr_id(16), & Gprim_attr_markerind = Gprim_attr_id(17), & Gprim_attr_markerasfs = Gprim_attr_id(18), & Gprim_attr_markertype = Gprim_attr_id(19), & Gprim_attr_markersize = Gprim_attr_id(20), & Gprim_attr_markercolrspec = Gprim_attr_id(21), & Gprim_attr_areaind = Gprim_attr_id(22), & Gprim_attr_areaasfs = Gprim_attr_id(23), & Gprim_attr_intstyle = Gprim_attr_id(24), & Gprim_attr_intstyleind = Gprim_attr_id(25), & Gprim_attr_intcolrspec = Gprim_attr_id(26), & Gprim_attr_edgeflag = Gprim_attr_id(27), & Gprim_attr_edgetype = Gprim_attr_id(28), & Gprim_attr_edgewidth = Gprim_attr_id(29), & Gprim_attr_edgecolrspec = Gprim_attr_id(30), & Gprim_attr_charind = Gprim_attr_id(31), & Gprim_attr_charasfs = Gprim_attr_id(32), & Gprim_attr_charfontprec = Gprim_attr_id(33), & Gprim_attr_charexpan = Gprim_attr_id(34), & Gprim_attr_charspace = Gprim_attr_id(35), & Gprim_attr_charcolrspec = Gprim_attr_id(36) !----------------------------------------------------------------------------- TYPE Gasf_val_id INTEGER :: i END TYPE Gasf_val_id TYPE(Gasf_val_id), PARAMETER :: & Gasf_val_bun = Gasf_val_id(0), & Gasf_val_indiv = Gasf_val_id(1) !----------------------------------------------------------------------------- TYPE Gclip_ind_id INTEGER :: i END TYPE Gclip_ind_id TYPE(Gclip_ind_id), PARAMETER :: & Gclip_ind_clip = Gclip_ind_id(0), & Gclip_ind_noclip = Gclip_ind_id(1) !----------------------------------------------------------------------------- TYPE Gcolr_spec_id INTEGER :: i END TYPE Gcolr_spec_id TYPE(Gcolr_spec_id), PARAMETER :: & Gcolr_spec_indirect = Gcolr_spec_id(0), & Gcolr_spec_rgb = Gcolr_spec_id(1), & Gcolr_spec_cieluv = Gcolr_spec_id(2), & Gcolr_spec_hsv = Gcolr_spec_id(3), & Gcolr_spec_hls = Gcolr_spec_id(4) !----------------------------------------------------------------------------- TYPE Gedge_flag_id INTEGER :: i END TYPE Gedge_flag_id TYPE(Gedge_flag_id), PARAMETER :: & Gedge_flag_off = Gedge_flag_id(0), & Gedge_flag_on = Gedge_flag_id(1) !----------------------------------------------------------------------------- TYPE Ggen_name_id INTEGER :: i END TYPE Ggen_name_id TYPE(Ggen_name_id), PARAMETER :: & Ggen_name_wsid = Ggen_name_id(0), & Ggen_name_segname = Ggen_name_id(1), & Ggen_name_name = Ggen_name_id(2) !----------------------------------------------------------------------------- TYPE Ghor_align_id INTEGER :: i END TYPE Ghor_align_id TYPE(Ghor_align_id), PARAMETER :: & Ghor_align_norm = Ghor_align_id(0), & Ghor_align_left = Ghor_align_id(1), & Ghor_align_centre = Ghor_align_id(2), & Ghor_align_right = Ghor_align_id(3) !----------------------------------------------------------------------------- TYPE Gint_style_id INTEGER :: i END TYPE Gint_style_id TYPE(Gint_style_id), PARAMETER :: & Gint_style_hollow = Gint_style_id(0), & Gint_style_solid = Gint_style_id(1), & Gint_style_pat = Gint_style_id(2), & Gint_style_hatch = Gint_style_id(3), & Gint_style_empty = Gint_style_id(4) !----------------------------------------------------------------------------- TYPE Gprec_id INTEGER :: i END TYPE Gprec_id TYPE(Gprec_id), PARAMETER :: & Gprec_string = Gprec_id(0), & Gprec_char = Gprec_id(1), & Gprec_stroke = Gprec_id(2) !----------------------------------------------------------------------------- TYPE Gshield_ind_id INTEGER :: i END TYPE Gshield_ind_id TYPE(Gshield_ind_id), PARAMETER :: & Gshield_ind_shield = Gshield_ind_id(0), & Gshield_ind_noshield = Gshield_ind_id(1) !----------------------------------------------------------------------------- TYPE Gtext_path_id INTEGER :: i END TYPE Gtext_path_id TYPE(Gtext_path_id), PARAMETER :: & Gtext_path_right = Gtext_path_id(0), & Gtext_path_left = Gtext_path_id(1), & Gtext_path_up = Gtext_path_id(2), & Gtext_path_down = Gtext_path_id(3) !----------------------------------------------------------------------------- TYPE Gvert_align_id INTEGER :: i END TYPE Gvert_align_id TYPE(Gvert_align_id), PARAMETER :: & Gvert_align_norm = Gvert_align_id(0), & Gvert_align_top = Gvert_align_id(1), & Gvert_align_cap = Gvert_align_id(2), & Gvert_align_half = Gvert_align_id(3), & Gvert_align_base = Gvert_align_id(4), & Gvert_align_bottom = Gvert_align_id(5) !----------------------------------------------------------------------------- TYPE Gpri_id INTEGER :: i END TYPE Gpri_id TYPE(Gpri_id), PARAMETER :: & Gpri_higher = Gpri_id(0), & Gpri_lower = Gpri_id(1) !----------------------------------------------------------------------------- TYPE Gscissor_mode_id INTEGER :: i END TYPE Gscissor_mode_id TYPE(Gscissor_mode_id), PARAMETER :: & Gscissor_mode_locus = Gscissor_mode_id(0), & Gscissor_mode_shape = Gscissor_mode_id(1) !----------------------------------------------------------------------------- TYPE Gpos_id INTEGER :: i END TYPE Gpos_id TYPE(Gpos_id), PARAMETER :: & Gpos_front = Gpos_id(0), & Gpos_back = Gpos_id(1) !----------------------------------------------------------------------------- TYPE Gscissor_sel_id INTEGER :: i END TYPE Gscissor_sel_id TYPE(Gscissor_sel_id), PARAMETER :: & Gscissor_sel_change = Gscissor_sel_id(0), & Gscissor_sel_leave = Gscissor_sel_id(1) !----------------------------------------------------------------------------- TYPE Gtran_mode_id INTEGER :: i END TYPE Gtran_mode_id TYPE(Gtran_mode_id), PARAMETER :: & Gtran_mode_replace = Gtran_mode_id(0), & Gtran_mode_pre = Gtran_mode_id(1), & Gtran_mode_post = Gtran_mode_id(2) !----------------------------------------------------------------------------- TYPE Gord_sel_id INTEGER :: i END TYPE Gord_sel_id TYPE(Gord_sel_id), PARAMETER :: & Gord_sel_x = Gord_sel_id(0), & Gord_sel_y = Gord_sel_id(1) !----------------------------------------------------------------------------- TYPE Gwcndc_point_id INTEGER :: i END TYPE Gwcndc_point_id TYPE(Gwcndc_point_id), PARAMETER :: & Gwcndc_point_wc = Gwcndc_point_id(0), & Gwcndc_point_ndc = Gwcndc_point_id(1) !----------------------------------------------------------------------------- TYPE Gseg_attr_name_id INTEGER :: i END TYPE Gseg_attr_name_id TYPE(Gseg_attr_name_id), PARAMETER :: & Gseg_attr_name_vis = Gseg_attr_name_id(0), & Gseg_attr_name_highl = Gseg_attr_name_id(1), & Gseg_attr_name_det = Gseg_attr_name_id(2), & Gseg_attr_name_segtran = Gseg_attr_name_id(3), & Gseg_attr_name_segpri = Gseg_attr_name_id(4) !----------------------------------------------------------------------------- TYPE Gdet_id INTEGER :: i END TYPE Gdet_id TYPE(Gdet_id), PARAMETER :: & Gdet_undet = Gdet_id(0), & Gdet_det = Gdet_id(1) !----------------------------------------------------------------------------- TYPE Ghighl_id INTEGER :: i END TYPE Ghighl_id TYPE(Ghighl_id), PARAMETER :: & Ghighl_norm = Ghighl_id(0), & Ghighl_highl = Ghighl_id(1) !----------------------------------------------------------------------------- TYPE Gvis_id INTEGER :: i END TYPE Gvis_id TYPE(Gvis_id), PARAMETER :: & Gvis_vis = Gvis_id(0), & Gvis_invis = Gvis_id(1) !----------------------------------------------------------------------------- TYPE Gchoice_st_id INTEGER :: i END TYPE Gchoice_st_id TYPE(Gchoice_st_id), PARAMETER :: & Gchoice_st_ok = Gchoice_st_id(0), & Gchoice_st_nochoice = Gchoice_st_id(1) !----------------------------------------------------------------------------- TYPE Gdev_id_val_set_id INTEGER :: i END TYPE Gdev_id_val_set_id TYPE(Gdev_id_val_set_id), PARAMETER :: & Gdev_id_val_set_devidval = Gdev_id_val_set_id(0), & Gdev_id_val_set_none = Gdev_id_val_set_id(1) !----------------------------------------------------------------------------- TYPE Gecho_switch_id INTEGER :: i END TYPE Gecho_switch_id TYPE(Gecho_switch_id), PARAMETER :: & Gecho_switch_echo = Gecho_switch_id(0), & Gecho_switch_noecho = Gecho_switch_id(1) !----------------------------------------------------------------------------- TYPE Ginit_val_id INTEGER :: i END TYPE Ginit_val_id TYPE(Ginit_val_id), PARAMETER :: & Ginit_val_initval = Ginit_val_id(0), & Ginit_val_pet = Ginit_val_id(1), & Ginit_val_echoflag = Ginit_val_id(2), & Ginit_val_echoarea = Ginit_val_id(3), & Ginit_val_datarec = Ginit_val_id(4), & Ginit_val_all = Ginit_val_id(5) !----------------------------------------------------------------------------- TYPE Gin_st_id INTEGER :: i END TYPE Gin_st_id TYPE(Gin_st_id), PARAMETER :: & Gin_st_ok = Gin_st_id(0), & Gin_st_none = Gin_st_id(1) !----------------------------------------------------------------------------- TYPE Gmeasure_class_id INTEGER :: i END TYPE Gmeasure_class_id TYPE(Gmeasure_class_id), PARAMETER :: & Gmeasure_class_loc = Gmeasure_class_id(0), & Gmeasure_class_stroke = Gmeasure_class_id(1), & Gmeasure_class_val = Gmeasure_class_id(2), & Gmeasure_class_choice = Gmeasure_class_id(3), & Gmeasure_class_pick = Gmeasure_class_id(4), & Gmeasure_class_string = Gmeasure_class_id(5), & Gmeasure_class_composite = Gmeasure_class_id(6) !----------------------------------------------------------------------------- TYPE Gop_mode_id INTEGER :: i END TYPE Gop_mode_id TYPE(Gop_mode_id), PARAMETER :: & Gop_mode_req = Gop_mode_id(0), & Gop_mode_sample = Gop_mode_id(1), & Gop_mode_event = Gop_mode_id(2) !----------------------------------------------------------------------------- TYPE Gpick_st_id INTEGER :: i END TYPE Gpick_st_id TYPE(Gpick_st_id), PARAMETER :: & Gpick_st_ok = Gpick_st_id(0), & Gpick_st_nopick = Gpick_st_id(1) !----------------------------------------------------------------------------- TYPE Gchange_flag_id INTEGER :: i END TYPE Gchange_flag_id TYPE(Gchange_flag_id), PARAMETER :: & Gchange_flag_changed = Gchange_flag_id(0), & Gchange_flag_notchanged = Gchange_flag_id(1) !----------------------------------------------------------------------------- TYPE Gcolr_avail_id INTEGER :: i END TYPE Gcolr_avail_id TYPE(Gcolr_avail_id), PARAMETER :: & Gcolr_avail_colr = Gcolr_avail_id(0), & Gcolr_avail_mono = Gcolr_avail_id(1) !----------------------------------------------------------------------------- TYPE Gdc_units_id INTEGER :: i END TYPE Gdc_units_id TYPE(Gdc_units_id), PARAMETER :: & Gdc_units_metres = Gdc_units_id(0), & Gdc_units_other = Gdc_units_id(1) !----------------------------------------------------------------------------- TYPE Gdisp_kind_id INTEGER :: i END TYPE Gdisp_kind_id TYPE(Gdisp_kind_id), PARAMETER :: & Gdisp_kind_vec = Gdisp_kind_id(0), & Gdisp_kind_raster = Gdisp_kind_id(1), & Gdisp_kind_other = Gdisp_kind_id(2) !----------------------------------------------------------------------------- TYPE Gws_st_id INTEGER :: i END TYPE Gws_st_id TYPE(Gws_st_id), PARAMETER :: & Gws_st_uptodate = Gws_st_id(0), & Gws_st_notuptodate = Gws_st_id(1) !----------------------------------------------------------------------------- TYPE Gcolr_model_id INTEGER :: i END TYPE Gcolr_model_id TYPE(Gcolr_model_id), PARAMETER :: & Gcolr_model_rgb = Gcolr_model_id(0), & Gcolr_model_cieluv = Gcolr_model_id(1), & Gcolr_model_hsv = Gcolr_model_id(2), & Gcolr_model_hls = Gcolr_model_id(3) !----------------------------------------------------------------------------- TYPE Gcolr_coord_id INTEGER :: i END TYPE Gcolr_coord_id TYPE(Gcolr_coord_id), PARAMETER :: & Gcolr_coord_rgb = Gcolr_coord_id(0), & Gcolr_coord_cieluv = Gcolr_coord_id(1), & Gcolr_coord_hsv = Gcolr_coord_id(2), & Gcolr_coord_hls = Gcolr_coord_id(3) !----------------------------------------------------------------------------- TYPE Gconv_flag_id INTEGER :: i END TYPE Gconv_flag_id TYPE(Gconv_flag_id), PARAMETER :: & Gconv_flag_done = Gconv_flag_id(0), & Gconv_flag_approx = Gconv_flag_id(1), & Gconv_flag_notconv = Gconv_flag_id(2) !----------------------------------------------------------------------------- TYPE Gvis_eff_st_id INTEGER :: i END TYPE Gvis_eff_st_id TYPE(Gvis_eff_st_id), PARAMETER :: & Gvis_eff_st_suppress = Gvis_eff_st_id(0), & Gvis_eff_st_allow = Gvis_eff_st_id(1) !----------------------------------------------------------------------------- TYPE Grep_id INTEGER :: i END TYPE Grep_id TYPE(Grep_id), PARAMETER :: & Grep_curve = Grep_id(0), & Grep_marker = Grep_id(1), & Grep_area = Grep_id(2), & Grep_pat = Grep_id(3), & Grep_char = Grep_id(4), & Grep_colr = Grep_id(5), & Grep_undefined = Grep_id(6) !----------------------------------------------------------------------------- TYPE Gsel_crit_id INTEGER :: i END TYPE Gsel_crit_id TYPE(Gsel_crit_id), PARAMETER :: & Gsel_crit_vis = Gsel_crit_id(0), & Gsel_crit_highl = Gsel_crit_id(1), & Gsel_crit_det = Gsel_crit_id(2) !----------------------------------------------------------------------------- TYPE Gset_realized_id INTEGER :: i END TYPE Gset_realized_id TYPE(Gset_realized_id), PARAMETER :: & Gset_realized_set = Gset_realized_id(0), & Gset_realized_realized = Gset_realized_id(1) !----------------------------------------------------------------------------- TYPE Ggks_op_st_id INTEGER :: i END TYPE Ggks_op_st_id TYPE(Ggks_op_st_id), PARAMETER :: & Ggks_op_st_gkcl = Ggks_op_st_id(0), & Ggks_op_st_gkop = Ggks_op_st_id(1) !----------------------------------------------------------------------------- TYPE Gpic_part_op_st_id INTEGER :: i END TYPE Gpic_part_op_st_id TYPE(Gpic_part_op_st_id), PARAMETER :: & Gpic_part_op_st_ppcl = Gpic_part_op_st_id(0), & Gpic_part_op_st_ppop = Gpic_part_op_st_id(1) !----------------------------------------------------------------------------- TYPE Gseg_op_st_id INTEGER :: i END TYPE Gseg_op_st_id TYPE(Gseg_op_st_id), PARAMETER :: & Gseg_op_st_sgcl = Gseg_op_st_id(0), & Gseg_op_st_sgop = Gseg_op_st_id(1) !----------------------------------------------------------------------------- TYPE Gtiling_op_st_id INTEGER :: i END TYPE Gtiling_op_st_id TYPE(Gtiling_op_st_id), PARAMETER :: & Gtiling_op_st_tlcl = Gtiling_op_st_id(0), & Gtiling_op_st_tlop = Gtiling_op_st_id(1) !----------------------------------------------------------------------------- TYPE Gstencil_op_st_id INTEGER :: i END TYPE Gstencil_op_st_id TYPE(Gstencil_op_st_id), PARAMETER :: & Gstencil_op_st_stcl = Gstencil_op_st_id(0), & Gstencil_op_st_stop = Gstencil_op_st_id(1) !----------------------------------------------------------------------------- TYPE Gaudit_op_id INTEGER :: i END TYPE Gaudit_op_id TYPE(Gaudit_op_id), PARAMETER :: & Gaudit_op_open = Gaudit_op_id(0), & Gaudit_op_close = Gaudit_op_id(1), & Gaudit_op_begin = Gaudit_op_id(2), & Gaudit_op_end = Gaudit_op_id(3) !----------------------------------------------------------------------------- TYPE Gprocess_op_id INTEGER :: i END TYPE Gprocess_op_id TYPE(Gprocess_op_id), PARAMETER :: & Gprocess_op_skip = Gprocess_op_id(0), & Gprocess_op_do = Gprocess_op_id(1) !----------------------------------------------------------------------------- TYPE Gplayback_op_id INTEGER :: i END TYPE Gplayback_op_id TYPE(Gplayback_op_id), PARAMETER :: & Gplayback_op_open = Gplayback_op_id(0), & Gplayback_op_close = Gplayback_op_id(1) !----------------------------------------------------------------------------- TYPE Grec_audit_flag_id INTEGER :: i END TYPE Grec_audit_flag_id TYPE(Grec_audit_flag_id), PARAMETER :: & Grec_audit_flag_off = Grec_audit_flag_id(0), & Grec_audit_flag_on = Grec_audit_flag_id(1) !----------------------------------------------------------------------------- TYPE Gsel_op_id INTEGER :: i END TYPE Gsel_op_id TYPE(Gsel_op_id), PARAMETER :: & Gsel_crit_contains = Gsel_op_id(0), & Gsel_crit_isin = Gsel_op_id(1), & Gsel_crit_equals = Gsel_op_id(2), & Gsel_crit_selall = Gsel_op_id(3), & Gsel_crit_rejectall = Gsel_op_id(4), & Gsel_crit_and = Gsel_op_id(5), & Gsel_crit_or = Gsel_op_id(6), & Gsel_crit_not = Gsel_op_id(7) !----------------------------------------------------------------------------- TYPE Gabut_spec_id INTEGER :: i END TYPE Gabut_spec_id TYPE(Gabut_spec_id), PARAMETER :: & Gabut_spec_right = Gabut_spec_id(0), & Gabut_spec_left = Gabut_spec_id(1), & Gabut_spec_top = Gabut_spec_id(2), & Gabut_spec_bottom = Gabut_spec_id(3), & Gabut_spec_centrevert = Gabut_spec_id(4), & Gabut_spec_centrehoriz = Gabut_spec_id(5), & Gabut_spec_capline = Gabut_spec_id(6), & Gabut_spec_baseline = Gabut_spec_id(7) !----------------------------------------------------------------------------- TYPE Gbndry_id INTEGER :: i END TYPE Gbndry_id TYPE(Gbndry_id), PARAMETER :: & Gbndry_closedpathseq = Gbndry_id(0), & Gbndry_area = Gbndry_id(1) !----------------------------------------------------------------------------- TYPE Gcap_id INTEGER :: i END TYPE Gcap_id TYPE(Gcap_id), PARAMETER :: & Gcap_butted = Gcap_id(0), & Gcap_rounded = Gcap_id(1), & Gcap_square = Gcap_id(2) !----------------------------------------------------------------------------- TYPE Gcont_attr_name_id INTEGER :: i END TYPE Gcont_attr_name_id TYPE(Gcont_attr_name_id), PARAMETER :: & Gcont_attr_name_style = Gcont_attr_name_id(0), & Gcont_attr_name_width = Gcont_attr_name_id(1), & Gcont_attr_name_cap = Gcont_attr_name_id(2), & Gcont_attr_name_join = Gcont_attr_name_id(3) !----------------------------------------------------------------------------- TYPE Ginside_rule_id INTEGER :: i END TYPE Ginside_rule_id TYPE(Ginside_rule_id), PARAMETER :: & Ginside_rule_evenodd = Ginside_rule_id(0), & Ginside_rule_winding = Ginside_rule_id(1) !----------------------------------------------------------------------------- TYPE Ginstance_id INTEGER :: i END TYPE Ginstance_id TYPE(Ginstance_id), PARAMETER :: & Ginstance_put = Ginstance_id(0), & Ginstance_align = Ginstance_id(1), & Ginstance_map = Ginstance_id(2) !----------------------------------------------------------------------------- TYPE Gjoin_id INTEGER :: i END TYPE Gjoin_id TYPE(Gjoin_id), PARAMETER :: & Gjoin_round = Gjoin_id(0), & Gjoin_bevel = Gjoin_id(1), & Gjoin_mitred = Gjoin_id(2) !----------------------------------------------------------------------------- TYPE Glc_ctrl_point_id INTEGER :: i END TYPE Glc_ctrl_point_id TYPE(Glc_ctrl_point_id), PARAMETER :: & Glc_ctrl_point_hlccp = Glc_ctrl_point_id(0), & Glc_ctrl_point_lccp = Glc_ctrl_point_id(1) !----------------------------------------------------------------------------- TYPE Gpath_id INTEGER :: i END TYPE Gpath_id TYPE(Gpath_id), PARAMETER :: & Gpath_line = Gpath_id(0), & Gpath_nurb = Gpath_id(1), & Gpath_conicsec = Gpath_id(2) !----------------------------------------------------------------------------- TYPE Greplic_tech_id INTEGER :: i END TYPE Greplic_tech_id TYPE(Greplic_tech_id), PARAMETER :: & Greplic_tech_dx = Greplic_tech_id(0), & Greplic_tech_dy = Greplic_tech_id(1), & Greplic_tech_dxy = Greplic_tech_id(2), & Greplic_tech_dyx = Greplic_tech_id(3) !----------------------------------------------------------------------------- TYPE Gstencil_attr_name_id INTEGER :: i END TYPE Gstencil_attr_name_id TYPE(Gstencil_attr_name_id), PARAMETER :: & Gstencil_attr_name_topy = Gstencil_attr_name_id(0), & Gstencil_attr_name_capy = Gstencil_attr_name_id(1), & Gstencil_attr_name_halfy = Gstencil_attr_name_id(2), & Gstencil_attr_name_basey = Gstencil_attr_name_id(3), & Gstencil_attr_name_bottomy = Gstencil_attr_name_id(4), & Gstencil_attr_name_centrey = Gstencil_attr_name_id(5), & Gstencil_attr_name_leftx = Gstencil_attr_name_id(6), & Gstencil_attr_name_rightx = Gstencil_attr_name_id(7), & Gstencil_attr_name_centrex = Gstencil_attr_name_id(8), & Gstencil_attr_name_centre = Gstencil_attr_name_id(9), & Gstencil_attr_name_origin = Gstencil_attr_name_id(10), & Gstencil_attr_name_centretop = Gstencil_attr_name_id(11), & Gstencil_attr_name_centrebottom = Gstencil_attr_name_id(12), & Gstencil_attr_name_centreleft = Gstencil_attr_name_id(13), & Gstencil_attr_name_centreright = Gstencil_attr_name_id(14), & Gstencil_attr_name_topleft = Gstencil_attr_name_id(15), & Gstencil_attr_name_topright = Gstencil_attr_name_id(16), & Gstencil_attr_name_bottomleft = Gstencil_attr_name_id(17), & Gstencil_attr_name_bottomright = Gstencil_attr_name_id(18) !----------------------------------------------------------------------------- TYPE Gstyle_id INTEGER :: i END TYPE Gstyle_id TYPE(Gstyle_id), PARAMETER :: & Gstyle_solid = Gstyle_id(0), & Gstyle_dash = Gstyle_id(1), & Gstyle_dot = Gstyle_id(2), & Gstyle_dashdot = Gstyle_id(3), & Gstyle_dashdotdot = Gstyle_id(4) !----------------------------------------------------------------------------- TYPE Gtiling_param_id INTEGER :: i END TYPE Gtiling_param_id TYPE(Gtiling_param_id), PARAMETER :: & Gtiling_param_setline = Gtiling_param_id(0), & Gtiling_param_nurb = Gtiling_param_id(1), & Gtiling_param_conicsec = Gtiling_param_id(2), & Gtiling_param_setfill = Gtiling_param_id(3), & Gtiling_param_setellipsec = Gtiling_param_id(4), & Gtiling_param_setellipseg = Gtiling_param_id(5), & Gtiling_param_setellipdisc = Gtiling_param_id(6), & Gtiling_param_setclosednurb = Gtiling_param_id(7), & Gtiling_param_design = Gtiling_param_id(8) !----------------------------------------------------------------------------- TYPE Gop_st_list_id INTEGER :: i END TYPE Gop_st_list_id TYPE(Gop_st_list_id), PARAMETER :: & Gop_st_list_gks = Gop_st_list_id(0), & Gop_st_list_picpart = Gop_st_list_id(1), & Gop_st_list_seg = Gop_st_list_id(2), & Gop_st_list_stencil = Gop_st_list_id(3), & Gop_st_list_tiling = Gop_st_list_id(4), & Gop_st_list_all = Gop_st_list_id(5) !----------------------------------------------------------------------------- TYPE Ggdt_id INTEGER :: i END TYPE Ggdt_id TYPE(Ggdt_id), PARAMETER :: & Ggdt_availwsgentypes = Ggdt_id(0), & Ggdt_availfonts = Ggdt_id(1), & Ggdt_deffontindmap = Ggdt_id(2), & Ggdt_all = Ggdt_id(3) !----------------------------------------------------------------------------- TYPE Ggsl_id INTEGER :: i END TYPE Ggsl_id TYPE(Ggsl_id), PARAMETER :: & Ggsl_routedir = Ggsl_id(0), & Ggsl_scissormode = Ggsl_id(1), & Ggsl_openwsids = Ggsl_id(2), & Ggsl_activewsids = Ggsl_id(3), & Ggsl_openaudits = Ggsl_id(4), & Ggsl_openplaybacks = Ggsl_id(5), & Ggsl_inputqueue = Ggsl_id(6), & Ggsl_fontindmap = Ggsl_id(7), & Ggsl_curprimattrs = Ggsl_id(8), & Ggsl_curnormtrannum = Ggsl_id(9), & Ggsl_normtrans = Ggsl_id(10), & Ggsl_vpinpris = Ggsl_id(11), & Ggsl_openpicpartname = Ggsl_id(12), & Ggsl_picpartnames = Ggsl_id(13), & Ggsl_opensegname = Ggsl_id(14), & Ggsl_segnames = Ggsl_id(15), & Ggsl_seglists = Ggsl_id(16), & Ggsl_openstencilname = Ggsl_id(17), & Ggsl_stencilnames = Ggsl_id(18), & Ggsl_stencilstlists = Ggsl_id(19), & Ggsl_curcontattrs = Ggsl_id(20), & Ggsl_opentilingname = Ggsl_id(21), & Ggsl_tilingnames = Ggsl_id(22), & Ggsl_all = Ggsl_id(23) !----------------------------------------------------------------------------- TYPE Gwsl_id INTEGER :: i END TYPE Gwsl_id TYPE(Gwsl_id), PARAMETER :: & Gwsl_curvebuntab = Gwsl_id(0), & Gwsl_markerbuntab = Gwsl_id(1), & Gwsl_areabuntab = Gwsl_id(2), & Gwsl_pattab = Gwsl_id(3), & Gwsl_charbuntab = Gwsl_id(4), & Gwsl_colrtab = Gwsl_id(5), & Gwsl_curwswin = Gwsl_id(6), & Gwsl_curwsvp = Gwsl_id(7), & Gwsl_curviseffst = Gwsl_id(8), & Gwsl_devopmodes = Gwsl_id(9), & Gwsl_devinitvals = Gwsl_id(10), & Gwsl_selcrits = Gwsl_id(11), & Gwsl_segnames = Gwsl_id(12), & Gwsl_viewreps = Gwsl_id(13), & Gwsl_viewpris = Gwsl_id(14), & Gwsl_all = Gwsl_id(15) !----------------------------------------------------------------------------- TYPE Gwdt_id INTEGER :: i END TYPE Gwdt_id TYPE(Gwdt_id), PARAMETER :: & Gwdt_wstype = Gwdt_id(0), & Gwdt_wsst = Gwdt_id(1), & Gwdt_dcunits = Gwdt_id(2), & Gwdt_dispsize = Gwdt_id(3), & Gwdt_dispkind = Gwdt_id(4), & Gwdt_availcurvetypes = Gwdt_id(5), & Gwdt_numavailcurvewidths = Gwdt_id(6), & Gwdt_nomcurvewidth = Gwdt_id(7), & Gwdt_mincurvewidth = Gwdt_id(8), & Gwdt_maxcurvewidth = Gwdt_id(9), & Gwdt_predcurvebuns = Gwdt_id(10), & Gwdt_availmarkertypes = Gwdt_id(11), & Gwdt_numavailmarkersizes = Gwdt_id(12), & Gwdt_nommarkersize = Gwdt_id(13), & Gwdt_minmarkersize = Gwdt_id(14), & Gwdt_maxmarkersize = Gwdt_id(15), & Gwdt_predmarkerbuns = Gwdt_id(16), & Gwdt_availintstyles = Gwdt_id(17), & Gwdt_availhatchstyles = Gwdt_id(18), & Gwdt_predareabuns = Gwdt_id(19), & Gwdt_availedgetypes = Gwdt_id(20), & Gwdt_numavailedgewidths = Gwdt_id(21), & Gwdt_nomedgewidth = Gwdt_id(22), & Gwdt_minedgewidth = Gwdt_id(23), & Gwdt_maxedgewidth = Gwdt_id(24), & Gwdt_predpats = Gwdt_id(25), & Gwdt_availfontprecs = Gwdt_id(26), & Gwdt_numavailcharexpans = Gwdt_id(27), & Gwdt_mincharexpan = Gwdt_id(28), & Gwdt_maxcharexpan = Gwdt_id(29), & Gwdt_numavailtextheight = Gwdt_id(30), & Gwdt_mintextheight = Gwdt_id(31), & Gwdt_maxtextheight = Gwdt_id(32), & Gwdt_predcharbuns = Gwdt_id(33), & Gwdt_availcolrmodels = Gwdt_id(34), & Gwdt_colrchars = Gwdt_id(35), & Gwdt_numavailcolrs = Gwdt_id(36), & Gwdt_colravail = Gwdt_id(37), & Gwdt_predcolrreps = Gwdt_id(38) TYPE(Gwdt_id), PARAMETER :: & Gwdt_availgdps = Gwdt_id(39), & Gwdt_availindevs = Gwdt_id(40), & Gwdt_availinitvals = Gwdt_id(41), & Gwdt_availmeasureids = Gwdt_id(42), & Gwdt_availtriggerids = Gwdt_id(43), & Gwdt_devcompose = Gwdt_id(44), & Gwdt_all = Gwdt_id(45) !----------------------------------------------------------------------------- TYPE Gesl_id INTEGER :: i END TYPE Gesl_id TYPE(Gesl_id), PARAMETER :: & Gesl_err_st = Gesl_id(0), & Gesl_err_file = Gesl_id(1), & Gesl_dev_id_overflow = Gesl_id(2) !----------------------------------------------------------------------------- TYPE Gssl_id INTEGER :: i END TYPE Gssl_id TYPE(Gssl_id), PARAMETER :: & Gssl_segname = Gssl_id(0), & Gssl_assocwsids = Gssl_id(1), & Gssl_cursegattrs = Gssl_id(2), & Gssl_all = Gssl_id(3) !----------------------------------------------------------------------------- TYPE Gstsl_id INTEGER :: i END TYPE Gstsl_id TYPE(Gstsl_id), PARAMETER :: & Gstsl_stencilname = Gstsl_id(0), & Gstsl_curstencilattrs = Gstsl_id(1), & Gstsl_all = Gstsl_id(2) !----------------------------------------------------------------------------- TYPE Gname_id INTEGER :: i END TYPE Gname_id TYPE(Gname_id), PARAMETER :: & Gname_available = Gname_id(0), & Gname_undefined = Gname_id(1) !----------------------------------------------------------------------------- TYPE Gid_id INTEGER :: i END TYPE Gid_id TYPE(Gid_id), PARAMETER :: & Gid_available = Gid_id(0), & Gid_undefined = Gid_id(1) !----------------------------------------------------------------------------- TYPE Gwc_point REAL :: x REAL :: y END TYPE Gwc_point !----------------------------------------------------------------------------- TYPE Gseq_wc_point TYPE(Gwc_point), POINTER, DIMENSION(:) :: point END TYPE Gseq_wc_point !----------------------------------------------------------------------------- TYPE Ghomo_wc_point REAL :: x REAL :: y REAL :: w END TYPE Ghomo_wc_point !----------------------------------------------------------------------------- TYPE Gind_array INTEGER :: dx INTEGER :: dy INTEGER, POINTER, DIMENSION(:,:) :: ind END TYPE Gind_array !----------------------------------------------------------------------------- TYPE Grgb_array INTEGER :: dx INTEGER :: dy TYPE(Gcolr_rgb), POINTER, DIMENSION(:,:) :: rgb END TYPE Grgb_array !----------------------------------------------------------------------------- TYPE Gcieluv_array INTEGER :: dx INTEGER :: dy TYPE(Gcolr_cieluv), POINTER, DIMENSION(:,:) :: cieluv END TYPE Gcieluv_array !----------------------------------------------------------------------------- TYPE Ghsv_array INTEGER :: dx INTEGER :: dy TYPE(Gcolr_hsv), POINTER, DIMENSION(:,:) :: hsv END TYPE Ghsv_array !----------------------------------------------------------------------------- TYPE Ghls_array INTEGER :: dx INTEGER :: dy TYPE(Gcolr_hls), POINTER, DIMENSION(:,:) :: hls END TYPE Ghls_array !----------------------------------------------------------------------------- TYPE Ghcp TYPE(Ghomo_wc_point), POINTER, DIMENSION(:) :: point END TYPE Ghcp !----------------------------------------------------------------------------- TYPE Gcp TYPE(Gwc_point), POINTER, DIMENSION(:) :: point END TYPE Gcp !----------------------------------------------------------------------------- TYPE Gmatrix_23 REAL :: coeff(2,3) END TYPE Gmatrix_23 !----------------------------------------------------------------------------- TYPE Gmatrix_33 REAL :: coeff(3,3) END TYPE Gmatrix_33 !----------------------------------------------------------------------------- TYPE Gset_line TYPE(Gseq_wc_point), POINTER, DIMENSION(:) :: seq END TYPE Gset_line !----------------------------------------------------------------------------- TYPE Gset_nurb TYPE(Gnurb), POINTER, DIMENSION(:) :: nurb END TYPE Gset_nurb !----------------------------------------------------------------------------- TYPE Gset_conic_sec TYPE(Gconic_sec), POINTER, DIMENSION(:) :: sec END TYPE Gset_conic_sec !----------------------------------------------------------------------------- TYPE Gmarker TYPE(Gwc_point), POINTER, DIMENSION(:) :: point END TYPE Gmarker !----------------------------------------------------------------------------- TYPE Gset_fill TYPE(Gseq_wc_point), POINTER, DIMENSION(:) :: seqs END TYPE Gset_fill !----------------------------------------------------------------------------- TYPE Gset_ellip_sec TYPE(Gconic_sec), POINTER, DIMENSION(:) :: sec END TYPE Gset_ellip_sec !----------------------------------------------------------------------------- TYPE Gset_ellip_seg TYPE(Gconic_sec), POINTER, DIMENSION(:) :: seg END TYPE Gset_ellip_seg !----------------------------------------------------------------------------- TYPE Gset_ellip_disc TYPE(Gmatrix_33), POINTER, DIMENSION(:) :: disc END TYPE Gset_ellip_disc !----------------------------------------------------------------------------- TYPE Gset_closed_nurb TYPE(Gnurb), POINTER, DIMENSION(:) :: nurb END TYPE Gset_closed_nurb !----------------------------------------------------------------------------- TYPE Gtext TYPE(Gwc_point) :: ref_point CHARACTER, POINTER :: charstring(:) END TYPE Gtext !----------------------------------------------------------------------------- TYPE Gcolr_array_spec TYPE(Gcolr_array_spec_id) :: colr_type TYPE(Gind_array) :: ind_array TYPE(Grgb_array) :: rgb_array TYPE(Gcieluv_array) :: cieluv_array TYPE(Ghsv_array) :: hsv_array TYPE(Ghls_array) :: hls_array END TYPE Gcolr_array_spec !----------------------------------------------------------------------------- TYPE Gcell_array TYPE(Gwc_point) :: p TYPE(Gwc_point) :: q TYPE(Gcolr_array_spec) :: array_spec END TYPE Gcell_array !----------------------------------------------------------------------------- TYPE Gdesign INTEGER :: stencil_name TYPE(Gwc_point) :: stencil_origin TYPE(Gmatrix_23) :: stencil_tran INTEGER :: tiling_name TYPE(Gwc_point) :: tiling_origin TYPE(Gmatrix_23) :: tiling_tran END TYPE Gdesign !----------------------------------------------------------------------------- TYPE Ggdp_data CHARACTER, POINTER :: data_rec(:) END TYPE Ggdp_data !----------------------------------------------------------------------------- TYPE Ggdp TYPE(Gwc_point), POINTER, DIMENSION(:) :: point INTEGER :: id TYPE(Ggdp_data) :: data END TYPE Ggdp !----------------------------------------------------------------------------- TYPE Gctrl_points TYPE(Gctrl_points_id) :: point_type TYPE(Ghcp) :: hcp TYPE(Gcp) :: cp END TYPE Gctrl_points !----------------------------------------------------------------------------- TYPE Gknots REAL, POINTER, DIMENSION(:) :: knot END TYPE Gknots !----------------------------------------------------------------------------- TYPE Gparam_ran REAL :: tmin REAL :: tmax END TYPE Gparam_ran !----------------------------------------------------------------------------- TYPE Gnurb INTEGER :: k TYPE(Gctrl_points) :: cp TYPE(Gknots) :: kn TYPE(Gparam_ran) :: ran END TYPE Gnurb !----------------------------------------------------------------------------- TYPE Gconic_sec TYPE(Gmatrix_33) :: matrix TYPE(Gwc_point) :: start TYPE(Gwc_point) :: end TYPE(Gsense_flag_id) :: sense_flag END TYPE Gconic_sec !----------------------------------------------------------------------------- TYPE Gprim_param TYPE(Gprim_param_id) :: prim_type TYPE(Gset_line) :: set_line TYPE(Gset_nurb) :: set_nurb TYPE(Gset_conic_sec) :: set_conic_sec TYPE(Gmarker) :: marker TYPE(Gset_fill) :: set_fill TYPE(Gset_ellip_sec) :: set_ellip_sec TYPE(Gset_ellip_seg) :: set_ellip_seg TYPE(Gset_ellip_disc) :: set_ellip_disc TYPE(Gset_closed_nurb) :: set_closed_nurb TYPE(Gtext) :: text TYPE(Gcell_array) :: cell_array TYPE(Gdesign) :: design TYPE(Ggdp) :: gdp END TYPE Gprim_param !----------------------------------------------------------------------------- TYPE Garea_asfs TYPE(Gasf_val_id) :: int_style TYPE(Gasf_val_id) :: int_style_ind TYPE(Gasf_val_id) :: int_colr_spec TYPE(Gasf_val_id) :: edge_flag TYPE(Gasf_val_id) :: edgetype TYPE(Gasf_val_id) :: edgewidth TYPE(Gasf_val_id) :: edge_colr_spec END TYPE Garea_asfs !----------------------------------------------------------------------------- TYPE Gchar_asfs TYPE(Gasf_val_id) :: font_prec TYPE(Gasf_val_id) :: expan TYPE(Gasf_val_id) :: spacing TYPE(Gasf_val_id) :: colr_spec END TYPE Gchar_asfs !----------------------------------------------------------------------------- TYPE Gcolr_cieluv REAL :: u REAL :: v REAL :: Y END TYPE Gcolr_cieluv !----------------------------------------------------------------------------- TYPE Gcolr_hls REAL :: h REAL :: l REAL :: s END TYPE Gcolr_hls !----------------------------------------------------------------------------- TYPE Gcolr_hsv REAL :: h REAL :: s REAL :: v END TYPE Gcolr_hsv !----------------------------------------------------------------------------- TYPE Gcolr_rgb REAL :: r REAL :: g REAL :: b END TYPE Gcolr_rgb !----------------------------------------------------------------------------- TYPE Gcolr_coord TYPE(Gcolr_model_id) :: colr_model TYPE(Gcolr_rgb) :: rgb TYPE(Gcolr_cieluv) :: cieluv TYPE(Gcolr_hsv) :: hsv TYPE(Gcolr_hls) :: hls END TYPE Gcolr_coord !----------------------------------------------------------------------------- TYPE Gcolr_char CHARACTER, POINTER :: data(:) END TYPE Gcolr_char !----------------------------------------------------------------------------- TYPE Gcolr_spec TYPE(Gcolr_spec_id) :: colr_spec INTEGER :: ind TYPE(Gcolr_rgb) :: rgb TYPE(Gcolr_cieluv) :: cieluv TYPE(Gcolr_hls) :: hls TYPE(Gcolr_hsv) :: hsv END TYPE Gcolr_spec !----------------------------------------------------------------------------- TYPE Gcurve_asfs TYPE(Gasf_val_id) :: type TYPE(Gasf_val_id) :: width TYPE(Gasf_val_id) :: colr_spec END TYPE Gcurve_asfs !----------------------------------------------------------------------------- TYPE Gfont_prec INTEGER :: font_ind TYPE(Gprec_id) :: prec END TYPE Gfont_prec !----------------------------------------------------------------------------- TYPE Ggen_name TYPE(Ggen_name_id) :: gen_name INTEGER :: wsid INTEGER :: seg_name INTEGER :: name END TYPE Ggen_name !----------------------------------------------------------------------------- TYPE Gmarker_asfs TYPE(Gasf_val_id) :: type TYPE(Gasf_val_id) :: size TYPE(Gasf_val_id) :: colr_spec END TYPE Gmarker_asfs !----------------------------------------------------------------------------- TYPE Gname_set TYPE (Ggen_name), POINTER, DIMENSION(:) :: name END TYPE Gname_set !----------------------------------------------------------------------------- TYPE Gndc_rect REAL :: xmin REAL :: xmax REAL :: ymin REAL :: ymax END TYPE Gndc_rect !----------------------------------------------------------------------------- TYPE Gndc_rect_set TYPE(Gndc_rect), POINTER, DIMENSION(:) :: rect END TYPE Gndc_rect_set !----------------------------------------------------------------------------- TYPE Gpat_size REAL :: x REAL :: y END TYPE Gpat_size !----------------------------------------------------------------------------- TYPE Gscissor TYPE(Gclip_ind_id) :: clip_ind TYPE(Gndc_rect_set) :: clip_rect_set TYPE(Gshield_ind_id) :: shield_ind TYPE(Gndc_rect_set) :: shield_rect_set END TYPE Gscissor !----------------------------------------------------------------------------- TYPE Gscissor_id_set INTEGER, POINTER, DIMENSION(:) :: id END TYPE Gscissor_id_set !----------------------------------------------------------------------------- TYPE Gscissor_set_elem INTEGER :: scissor_id TYPE(Gscissor) :: scissor_bun END TYPE Gscissor_set_elem !----------------------------------------------------------------------------- TYPE Gscissor_set TYPE (Gscissor_set_elem), POINTER, DIMENSION(:) :: ind END TYPE Gscissor_set !----------------------------------------------------------------------------- TYPE Gtext_align TYPE(Ghor_align_id) :: hor_align TYPE(Gvert_align_id) :: vert_align END TYPE Gtext_align !----------------------------------------------------------------------------- TYPE Gtext_up_vec REAL :: x REAL :: y END TYPE Gtext_up_vec !----------------------------------------------------------------------------- TYPE Gprim_attr_val TYPE(Gprim_attr_id) :: prim_attr INTEGER :: pick_id TYPE(Gname_set) :: name_set TYPE(Gscissor_set) :: scissor_set TYPE(Gmatrix_23) :: global_tran TYPE(Gmatrix_23) :: loc_tran TYPE(Gpat_size) :: pat_size TYPE(Gwc_point) :: pat_ref_pt REAL :: text_height TYPE(Gtext_up_vec) :: text_up_vec REAL :: text_skew TYPE(Gtext_path_id) :: text_path TYPE(Gtext_align) :: text_align INTEGER :: curve_ind TYPE(Gcurve_asfs) :: curve_asfs INTEGER :: curve_type REAL :: curve_width TYPE(Gcolr_spec) :: curve_colr_spec INTEGER :: marker_ind TYPE(Gmarker_asfs) :: marker_asfs INTEGER :: marker_type REAL :: marker_size TYPE(Gcolr_spec) :: marker_colr_spec INTEGER :: area_ind TYPE(Garea_asfs) :: area_asfs TYPE(Gint_style_id) :: int_style INTEGER :: int_style_ind TYPE(Gcolr_spec) :: int_colr_spec TYPE(Gedge_flag_id) :: edge_flag INTEGER :: edge_type REAL :: edge_width TYPE(Gcolr_spec) :: edge_colr_spec INTEGER :: char_ind TYPE(Gchar_asfs) :: char_asfs TYPE(Gfont_prec) :: char_font_prec REAL :: char_expan REAL :: char_space TYPE(Gcolr_spec) :: char_colr_spec END TYPE Gprim_attr_val !----------------------------------------------------------------------------- TYPE Gpick_id INTEGER :: i END TYPE Gpick_id !----------------------------------------------------------------------------- TYPE Gcurve_ind INTEGER :: i END TYPE Gcurve_ind !----------------------------------------------------------------------------- TYPE Gcurve_type INTEGER :: i END TYPE Gcurve_type !----------------------------------------------------------------------------- TYPE Gmarker_ind INTEGER :: i END TYPE Gmarker_ind !----------------------------------------------------------------------------- TYPE Gmarker_type INTEGER :: i END TYPE Gmarker_type !----------------------------------------------------------------------------- TYPE Garea_ind INTEGER :: i END TYPE Garea_ind !----------------------------------------------------------------------------- TYPE Gint_style_ind INTEGER :: i END TYPE Gint_style_ind !----------------------------------------------------------------------------- TYPE Gedge_type INTEGER :: i END TYPE Gedge_type !----------------------------------------------------------------------------- TYPE Gchar_ind INTEGER :: i END TYPE Gchar_ind !----------------------------------------------------------------------------- TYPE Gmarker_size REAL :: r END TYPE Gmarker_size !----------------------------------------------------------------------------- TYPE Gtext_height REAL :: r END TYPE Gtext_height !----------------------------------------------------------------------------- TYPE Gtext_skew REAL :: r END TYPE Gtext_skew !----------------------------------------------------------------------------- TYPE Gcurve_width REAL :: r END TYPE Gcurve_width !----------------------------------------------------------------------------- TYPE Gedge_width REAL :: r END TYPE Gedge_width !----------------------------------------------------------------------------- TYPE Gchar_expan REAL :: r END TYPE Gchar_expan !----------------------------------------------------------------------------- TYPE Gchar_space REAL :: r END TYPE Gchar_space !----------------------------------------------------------------------------- TYPE Gmatrix_23_global REAL :: coeff(2,3) END TYPE Gmatrix_23_global !----------------------------------------------------------------------------- TYPE Gmatrix_23_local REAL :: coeff(2,3) END TYPE Gmatrix_23_local !----------------------------------------------------------------------------- TYPE Gcurve_colr_spec TYPE(Gcolr_spec_id) :: colr_spec INTEGER :: ind TYPE(Gcolr_rgb) :: rgb TYPE(Gcolr_cieluv) :: cieluv TYPE(Gcolr_hls) :: hls TYPE(Gcolr_hsv) :: hsv END TYPE Gcurve_colr_spec !----------------------------------------------------------------------------- TYPE Gmarker_colr_spec TYPE(Gcolr_spec_id) :: colr_spec INTEGER :: ind TYPE(Gcolr_rgb) :: rgb TYPE(Gcolr_cieluv) :: cieluv TYPE(Gcolr_hls) :: hls TYPE(Gcolr_hsv) :: hsv END TYPE Gmarker_colr_spec !----------------------------------------------------------------------------- TYPE Gint_colr_spec TYPE(Gcolr_spec_id) :: colr_spec INTEGER :: ind TYPE(Gcolr_rgb) :: rgb TYPE(Gcolr_cieluv) :: cieluv TYPE(Gcolr_hls) :: hls TYPE(Gcolr_hsv) :: hsv END TYPE Gint_colr_spec !----------------------------------------------------------------------------- TYPE Gedge_colr_spec TYPE(Gcolr_spec_id) :: colr_spec INTEGER :: ind TYPE(Gcolr_rgb) :: rgb TYPE(Gcolr_cieluv) :: cieluv TYPE(Gcolr_hls) :: hls TYPE(Gcolr_hsv) :: hsv END TYPE Gedge_colr_spec !----------------------------------------------------------------------------- TYPE Gchar_colr_spec TYPE(Gcolr_spec_id) :: colr_spec INTEGER :: ind TYPE(Gcolr_rgb) :: rgb TYPE(Gcolr_cieluv) :: cieluv TYPE(Gcolr_hls) :: hls TYPE(Gcolr_hsv) :: hsv END TYPE Gchar_colr_spec !----------------------------------------------------------------------------- TYPE Gdc_vp REAL :: xmin REAL :: ymin REAL :: xmax REAL :: ymax END TYPE Gdc_vp !----------------------------------------------------------------------------- TYPE Gldc_win REAL :: xmin REAL :: ymin REAL :: xmax REAL :: ymax END TYPE Gldc_win !----------------------------------------------------------------------------- TYPE Gldc_rect REAL :: xmin REAL :: ymin REAL :: xmax REAL :: ymax END TYPE Gldc_rect !----------------------------------------------------------------------------- TYPE Gldc_rect_set TYPE(Gldc_rect), POINTER, DIMENSION(:) :: rect END TYPE Gldc_rect_set !----------------------------------------------------------------------------- TYPE Gldc_vp REAL :: xmin REAL :: ymin REAL :: xmax REAL :: ymax END TYPE Gldc_vp !----------------------------------------------------------------------------- TYPE Gndc_win REAL :: xmin REAL :: ymin REAL :: xmax REAL :: ymax END TYPE Gndc_win !----------------------------------------------------------------------------- TYPE Gndc_vp REAL :: xmin REAL :: ymin REAL :: xmax REAL :: ymax END TYPE Gndc_vp !----------------------------------------------------------------------------- TYPE Gwc_win REAL :: xmin REAL :: ymin REAL :: xmax REAL :: ymax END TYPE Gwc_win !----------------------------------------------------------------------------- TYPE Gnorm_tran TYPE(Gwc_win) :: wc_win TYPE(Gndc_vp) :: ndc_vp END TYPE Gnorm_tran !----------------------------------------------------------------------------- TYPE Gview_pri INTEGER :: pos(16) END TYPE Gview_pri !----------------------------------------------------------------------------- TYPE Gview_scissor TYPE(Gclip_ind_id) :: clip_ind TYPE(Gldc_rect_set) :: clip_rect_set TYPE(Gshield_ind_id) :: shield_ind TYPE(Gldc_rect_set) :: shield_rect_set END TYPE Gview_scissor !----------------------------------------------------------------------------- TYPE Gview_up_vec TYPE(Gwc_point) :: x TYPE(Gwc_point) :: y END TYPE Gview_up_vec !----------------------------------------------------------------------------- TYPE Gvp_in_pri INTEGER :: pos(64) END TYPE Gvp_in_pri !----------------------------------------------------------------------------- TYPE Gcirc_arc_spec REAL :: sx REAL :: sy REAL :: ix REAL :: iy REAL :: ex REAL :: ey END TYPE Gcirc_arc_spec !----------------------------------------------------------------------------- TYPE Gellip_spec REAL :: px REAL :: py REAL :: cx REAL :: cy REAL :: qx REAL :: qy END TYPE Gellip_spec !----------------------------------------------------------------------------- TYPE Ghyperbola_spec REAL :: px REAL :: py REAL :: cx REAL :: cy REAL :: qx REAL :: qy END TYPE Ghyperbola_spec !----------------------------------------------------------------------------- TYPE Gparabola_spec REAL :: px REAL :: py REAL :: cx REAL :: cy REAL :: qx REAL :: qy END TYPE Gparabola_spec !----------------------------------------------------------------------------- TYPE Gndc_point REAL :: x REAL :: y END TYPE Gndc_point !----------------------------------------------------------------------------- TYPE Gscale_facs REAL :: x REAL :: y END TYPE Gscale_facs !----------------------------------------------------------------------------- TYPE Gvec REAL :: x REAL :: y END TYPE Gvec !----------------------------------------------------------------------------- TYPE Gwc_ndc_point TYPE(Gwcndc_point_id) :: point_type TYPE(Gndc_point) :: ndc_point TYPE(Gwc_point) :: wc_point END TYPE Gwc_ndc_point !----------------------------------------------------------------------------- TYPE Gseg_attr_val TYPE(Gseg_attr_name_id) :: attr_name TYPE(Gvis_id) :: vis TYPE(Ghighl_id) :: highl TYPE(Gdet_id) :: det TYPE(Gmatrix_23) :: tran REAL :: pri END TYPE Gseg_attr_val !----------------------------------------------------------------------------- TYPE Gdev_comp INTEGER, POINTER, DIMENSION(:) :: measure_id INTEGER, POINTER, DIMENSION(:) :: trigger_id END TYPE Gdev_comp !----------------------------------------------------------------------------- TYPE Gdev_id INTEGER :: ws_id INTEGER :: dev_num INTEGER :: measure_class END TYPE Gdev_id !----------------------------------------------------------------------------- TYPE Gloc_val INTEGER :: norm_tran_num TYPE(Gwc_point) :: wc_point END TYPE Gloc_val !----------------------------------------------------------------------------- TYPE Gstroke_val INTEGER :: norm_tran_num TYPE(Gwc_point), POINTER, DIMENSION(:) :: point END TYPE Gstroke_val !----------------------------------------------------------------------------- TYPE Gchoice_val INTEGER :: num TYPE(Gchoice_st_id) :: st END TYPE Gchoice_val !----------------------------------------------------------------------------- TYPE Gpick_val TYPE(Gpick_st_id) :: st TYPE(Gname_set) :: name_set INTEGER :: pick_id END TYPE Gpick_val !----------------------------------------------------------------------------- TYPE Gcomp_val TYPE(Gin_val), POINTER, DIMENSION(:) :: in_val END TYPE Gcomp_val !----------------------------------------------------------------------------- TYPE Gin_val TYPE(Gmeasure_class_id) :: measure_class TYPE(Gloc_val) :: loc_val TYPE(Gstroke_val) :: stroke_val REAL :: val_val TYPE(Gchoice_val) :: choice_val TYPE(Gpick_val) :: pick_val CHARACTER, POINTER :: string_val(:) TYPE(Gcomp_val) :: comp_val END TYPE Gin_val !----------------------------------------------------------------------------- TYPE Gdev_id_val_set TYPE(Gdev_id), POINTER, DIMENSION(:) :: dev_id TYPE(Gin_val), POINTER, DIMENSION(:) :: in_val END TYPE Gdev_id_val_set !----------------------------------------------------------------------------- TYPE Gecho_area REAL :: xmin REAL :: xmax REAL :: ymin REAL :: ymax END TYPE Gecho_area !----------------------------------------------------------------------------- TYPE Gin_data CHARACTER, POINTER :: data(:) END TYPE Gin_data !----------------------------------------------------------------------------- TYPE Ginit_in_val TYPE(Gin_val) :: in_value INTEGER :: pet TYPE(Gecho_switch_id) :: echo_switch TYPE(Gecho_area) :: echo_area TYPE(Gin_data) :: in_data END TYPE Ginit_in_val !----------------------------------------------------------------------------- TYPE Ginit_val INTEGER :: init_val TYPE(Gin_val) :: in_val INTEGER :: pet INTEGER :: echo_flag TYPE(Gecho_area) :: echo_area TYPE(Gin_data) :: in_data TYPE(Ginit_in_val) :: all END TYPE Ginit_val !----------------------------------------------------------------------------- TYPE Gseq_measure_id INTEGER, POINTER, DIMENSION(:) :: measure_id END TYPE Gseq_measure_id !----------------------------------------------------------------------------- TYPE Gtrigger_set INTEGER, POINTER, DIMENSION(:) :: trigger END TYPE Gtrigger_set !----------------------------------------------------------------------------- TYPE Gws_type INTEGER :: ws_gen_type CHARACTER, POINTER :: ws_spec_info(:) END TYPE Gws_type !----------------------------------------------------------------------------- TYPE Garea_bun TYPE(Gint_style_id) :: int_style INTEGER :: int_style_ind TYPE(Gcolr_spec) :: int_colr_spec TYPE(Gedge_flag_id) :: edgeflag INTEGER :: edgetype REAL :: edgewidth TYPE(Gcolr_spec) :: edge_colr_spec END TYPE Garea_bun !----------------------------------------------------------------------------- TYPE Gchar_bun TYPE(Gfont_prec) :: font_prec REAL :: expan REAL :: space TYPE(Gcolr_spec) :: colr_spec END TYPE Gchar_bun !----------------------------------------------------------------------------- TYPE Gcurve_bun INTEGER :: type REAL :: width TYPE(Gcolr_spec) :: colr_spec END TYPE Gcurve_bun !----------------------------------------------------------------------------- TYPE Gmarker_bun INTEGER :: type REAL :: size TYPE(Gcolr_spec) :: colr_spec END TYPE Gmarker_bun !----------------------------------------------------------------------------- TYPE Garea_bun_elem INTEGER :: area_ind TYPE(Garea_bun) :: area_bun END TYPE Garea_bun_elem !----------------------------------------------------------------------------- TYPE Gchar_bun_elem INTEGER :: char_ind TYPE(Gchar_bun) :: char_bun END TYPE Gchar_bun_elem !----------------------------------------------------------------------------- TYPE Gcolr_elem INTEGER :: colr_ind TYPE(Gcolr_coord) :: colr_bun END TYPE Gcolr_elem !----------------------------------------------------------------------------- TYPE Gcurve_bun_elem INTEGER :: curve_ind TYPE(Gcurve_bun) :: curve_bun END TYPE Gcurve_bun_elem !----------------------------------------------------------------------------- TYPE Gmarker_bun_elem INTEGER :: marker_ind TYPE(Gmarker_bun) :: marker_bun END TYPE Gmarker_bun_elem !----------------------------------------------------------------------------- TYPE Gpat_elem INTEGER :: pat_ind TYPE(Gcolr_array_spec) :: pat_bun END TYPE Gpat_elem !----------------------------------------------------------------------------- TYPE Grep TYPE(Grep_id) :: prim_rep TYPE(Gcurve_bun_elem) :: curve TYPE(Gmarker_bun_elem) :: marker TYPE(Garea_bun_elem) :: area TYPE(Gpat_elem) :: pat TYPE(Gchar_bun_elem) :: char TYPE(Gcolr_elem) :: colr END TYPE Grep !----------------------------------------------------------------------------- TYPE Gsel_crit TYPE(Gsel_op_id) :: sel_op TYPE(Gname_set) :: name_set TYPE(Gsel_crit), POINTER :: monadic_arg TYPE(Gdyadic_args), POINTER :: dyadic_args END TYPE Gsel_crit !----------------------------------------------------------------------------- TYPE Gdyadic_args TYPE(Gsel_crit), POINTER :: arg1 TYPE(Gsel_crit), POINTER :: arg2 END TYPE Gdyadic_args !----------------------------------------------------------------------------- TYPE Gsels TYPE(Gsel_crit_id) :: sel_crit_type TYPE(Gsel_crit) :: disp_sel_crit TYPE(Gsel_crit) :: highl_sel_crit TYPE(Gsel_crit) :: det_sel_crit END TYPE Gsels !----------------------------------------------------------------------------- TYPE Glc_point REAL :: x REAL :: y END TYPE Glc_point !----------------------------------------------------------------------------- TYPE Gput TYPE(Glc_point) :: instance_pt TYPE(Glc_point) :: stencil_pt END TYPE Gput !----------------------------------------------------------------------------- TYPE Galign TYPE(Glc_point) :: ref_instance_pt TYPE(Glc_point) :: dir_instance_pt TYPE(Glc_point) :: ref_stencil_pt TYPE(Glc_point) :: dir_stencil_pt END TYPE Galign !----------------------------------------------------------------------------- TYPE Gmap TYPE(Glc_point) :: instance_pt1 TYPE(Glc_point) :: instance_pt2 TYPE(Glc_point) :: instance_pt3 TYPE(Glc_point) :: stencil_pt1 TYPE(Glc_point) :: stencil_pt2 TYPE(Glc_point) :: stencil_pt3 END TYPE Gmap !----------------------------------------------------------------------------- TYPE Gseq_hlc_point TYPE(Ghlc_point), POINTER, DIMENSION(:) :: point END TYPE Gseq_hlc_point !----------------------------------------------------------------------------- TYPE Gseq_lc_point TYPE(Glc_point), POINTER, DIMENSION(:) :: point END TYPE Gseq_lc_point !----------------------------------------------------------------------------- TYPE Gdxy TYPE(Glc_point) :: dx TYPE(Glc_point) :: dy END TYPE Gdxy !----------------------------------------------------------------------------- TYPE Gdyx TYPE(Glc_point) :: dy TYPE(Glc_point) :: dx END TYPE Gdyx !----------------------------------------------------------------------------- TYPE Gseq_path TYPE(Gpath), POINTER, DIMENSION(:) :: path END TYPE Gseq_path !----------------------------------------------------------------------------- TYPE Gseq_spec INTEGER :: instance INTEGER :: stencil TYPE(Glc_point) :: ref_point END TYPE Gseq_spec !----------------------------------------------------------------------------- TYPE Gbndry TYPE(Gbndry_id) :: bndry TYPE(Gseq_path) :: closed_path_seq TYPE(Gmatrix_33) :: area END TYPE Gbndry !----------------------------------------------------------------------------- TYPE Gjoin TYPE(Gjoin_id) :: join REAL :: mitre_point END TYPE Gjoin !----------------------------------------------------------------------------- TYPE Gcont_attr_val TYPE(Gcont_attr_name_id) :: cont_attr_type TYPE(Gstyle_id) :: style REAL :: width TYPE(Gcap_id) :: cap TYPE(Gjoin) :: join END TYPE Gcont_attr_val !----------------------------------------------------------------------------- TYPE Ghlc_point REAL :: x REAL :: y REAL :: w END TYPE Ghlc_point !----------------------------------------------------------------------------- TYPE Ginstance_seq_spec TYPE(Gseq_spec), POINTER, DIMENSION(:) :: seq_spec END TYPE Ginstance_seq_spec !----------------------------------------------------------------------------- TYPE Ginstance_spec TYPE(Ginstance_id) :: instance_type TYPE(Gput) :: put TYPE(Galign) :: align TYPE(Gmap) :: map END TYPE Ginstance_spec !----------------------------------------------------------------------------- TYPE Glc_ctrl_points TYPE(Glc_ctrl_point_id) :: point_type TYPE(Gseq_hlc_point) :: hlccp TYPE(Gseq_lc_point) :: lccp END TYPE Glc_ctrl_points !----------------------------------------------------------------------------- TYPE Glc_conic_sec TYPE(Gmatrix_33) :: matrix_33 TYPE(Glc_point) :: start_point TYPE(Glc_point) :: end_point TYPE(Gsense_flag_id) :: sense_flag END TYPE Glc_conic_sec !----------------------------------------------------------------------------- TYPE Glc_nurb INTEGER :: k TYPE(Glc_ctrl_points) :: cp TYPE(Gknots) :: kn TYPE(Gparam_ran) :: ran END TYPE Glc_nurb !----------------------------------------------------------------------------- TYPE Gpath TYPE(Gpath_id) :: path_type TYPE(Gseq_lc_point) :: line TYPE(Glc_nurb) :: nurb TYPE(Glc_conic_sec) :: conic_sec END TYPE Gpath !----------------------------------------------------------------------------- TYPE Gpath_spec TYPE(Gabut_spec_id) :: abut_spec TYPE(Gpath) :: path TYPE(Glc_point) :: lc_point END TYPE Gpath_spec !----------------------------------------------------------------------------- TYPE Grep_tech TYPE(Greplic_tech_id) rep_type REAL :: dx REAL :: dy TYPE(Gdxy) :: dxy TYPE(Gdyx) :: dyx END TYPE Grep_tech !----------------------------------------------------------------------------- TYPE Gseq_bndry TYPE(Gbndry), POINTER, DIMENSION(:) :: bndry END TYPE Gseq_bndry !----------------------------------------------------------------------------- TYPE Gtopy REAL :: p END TYPE Gtopy !----------------------------------------------------------------------------- TYPE Gcapy REAL :: p END TYPE Gcapy !----------------------------------------------------------------------------- TYPE Ghalfy REAL :: p END TYPE Ghalfy !----------------------------------------------------------------------------- TYPE Gbasey REAL :: p END TYPE Gbasey !----------------------------------------------------------------------------- TYPE Gbottomy REAL :: p END TYPE Gbottomy !----------------------------------------------------------------------------- TYPE Gcentrey REAL :: p END TYPE Gcentrey !----------------------------------------------------------------------------- TYPE Gleftx REAL :: p END TYPE Gleftx !----------------------------------------------------------------------------- TYPE Grightx REAL :: p END TYPE Grightx !----------------------------------------------------------------------------- TYPE Gcentrex REAL :: p END TYPE Gcentrex !----------------------------------------------------------------------------- TYPE Glc_point_centre REAL :: x REAL :: y END TYPE Glc_point_centre !----------------------------------------------------------------------------- TYPE Glc_point_origin REAL :: x REAL :: y END TYPE Glc_point_origin !----------------------------------------------------------------------------- TYPE Glc_point_centretop REAL :: x REAL :: y END TYPE Glc_point_centretop !----------------------------------------------------------------------------- TYPE Glc_point_centrebottom REAL :: x REAL :: y END TYPE Glc_point_centrebottom !----------------------------------------------------------------------------- TYPE Glc_point_centreleft REAL :: x REAL :: y END TYPE Glc_point_centreleft !----------------------------------------------------------------------------- TYPE Glc_point_centreright REAL :: x REAL :: y END TYPE Glc_point_centreright !----------------------------------------------------------------------------- TYPE Glc_point_topleft REAL :: x REAL :: y END TYPE Glc_point_topleft !----------------------------------------------------------------------------- TYPE Glc_point_topright REAL :: x REAL :: y END TYPE Glc_point_topright !----------------------------------------------------------------------------- TYPE Glc_point_bottomleft REAL :: x REAL :: y END TYPE Glc_point_bottomleft !----------------------------------------------------------------------------- TYPE Glc_point_bottomright REAL :: x REAL :: y END TYPE Glc_point_bottomright !----------------------------------------------------------------------------- TYPE Gstencil_attr_val TYPE(Gstencil_attr_name_id) attr_type TYPE(Gtopy) :: topy TYPE(Gcapy) :: capy TYPE(Ghalfy) :: halfy TYPE(Gbasey) :: basey TYPE(Gbottomy) :: bottomy TYPE(Gcentrey) :: centrey TYPE(Gleftx) :: leftx TYPE(Grightx) :: rightx TYPE(Gcentrex) :: centrex TYPE(Glc_point_centre) :: centre TYPE(Glc_point_origin) :: origin TYPE(Glc_point_centretop) :: centretop TYPE(Glc_point_centrebottom) :: centrebottom TYPE(Glc_point_centreleft) :: centreleft TYPE(Glc_point_centreright) :: centreright TYPE(Glc_point_topleft) :: topleft TYPE(Glc_point_topright) :: topright TYPE(Glc_point_bottomleft) :: bottomleft TYPE(Glc_point_bottomright) :: bottomright END TYPE Gstencil_attr_val !----------------------------------------------------------------------------- TYPE Gtiling_param TYPE(Gtiling_param_id) :: tiling_prim TYPE(Gset_line) :: set_line TYPE(Gset_nurb) :: set_nurb TYPE(Gset_conic_sec) :: set_conic_sec TYPE(Gset_fill) :: set_fill TYPE(Gset_ellip_sec) :: set_ellip_sec TYPE(Gset_ellip_seg) :: set_ellip_seg TYPE(Gset_ellip_disc) :: set_ellip_disc TYPE(Gset_closed_nurb) :: set_closed_nurb TYPE(Gdesign) :: design END TYPE Gtiling_param !----------------------------------------------------------------------------- TYPE Gop_st_list TYPE(Gop_st_list_id) :: op_st TYPE(Ggks_op_st_id) :: gks_op_st TYPE(Gpic_part_op_st_id) :: pic_part_op_st TYPE(Gseg_op_st_id) :: seg_op_st TYPE(Gstencil_op_st_id) :: stencil_op_st TYPE(Gtiling_op_st_id) :: tiling_op_st END TYPE Gop_st_list !----------------------------------------------------------------------------- TYPE Gws_gen_type_name CHARACTER, POINTER :: type_name(:) END TYPE Gws_gen_type_name !----------------------------------------------------------------------------- TYPE Gws_gen_type_set TYPE(Gws_gen_type_name), POINTER, DIMENSION(:) :: gen_type END TYPE Gws_gen_type_set !----------------------------------------------------------------------------- TYPE Gfont_name CHARACTER, POINTER :: font_name(:) END TYPE Gfont_name !----------------------------------------------------------------------------- TYPE Gfont_name_set TYPE(Gfont_name), POINTER, DIMENSION(:) :: font END TYPE Gfont_name_set !----------------------------------------------------------------------------- TYPE Gfont_tab INTEGER, POINTER, DIMENSION(:) :: font_ind TYPE(Gfont_name), POINTER, DIMENSION(:) :: font END TYPE Gfont_tab !----------------------------------------------------------------------------- TYPE Ggdt TYPE(Ggdt_id) :: entry_id TYPE(Gws_gen_type_set) :: avail_ws_gen_types TYPE(Gfont_name_set) :: avail_font TYPE(Gfont_tab) :: def_font_ind_map END TYPE Ggdt !----------------------------------------------------------------------------- TYPE Gws_id_set INTEGER, POINTER, DIMENSION(:) :: id END TYPE Gws_id_set !----------------------------------------------------------------------------- TYPE Gaudit_info_set INTEGER, POINTER, DIMENSION(:) :: id INTEGER, POINTER, DIMENSION(:) :: flag END TYPE Gaudit_info_set !----------------------------------------------------------------------------- TYPE Gaudit_id_set INTEGER, POINTER, DIMENSION(:) :: id END TYPE Gaudit_id_set !----------------------------------------------------------------------------- TYPE Gseq_in TYPE(Gdev_id), POINTER, DIMENSION(:) :: dev_id TYPE(Gin_val), POINTER, DIMENSION(:) :: in_val END TYPE Gseq_in !----------------------------------------------------------------------------- TYPE Gnorm_tran_list TYPE(Gnorm_tran), POINTER, DIMENSION(:) :: tran END TYPE Gnorm_tran_list !----------------------------------------------------------------------------- TYPE Gopen_picture_part TYPE(Gname_id) :: avail INTEGER :: name END TYPE Gopen_picture_part !----------------------------------------------------------------------------- TYPE Gpic_part_name_set INTEGER, POINTER, DIMENSION(:) :: part_name END TYPE Gpic_part_name_set !----------------------------------------------------------------------------- TYPE Gopen_seg_name TYPE(Gname_id) :: avail INTEGER :: name END TYPE Gopen_seg_name !----------------------------------------------------------------------------- TYPE Gseg_name_set INTEGER, POINTER, DIMENSION(:) :: seg_name END TYPE Gseg_name_set !----------------------------------------------------------------------------- TYPE Gssl_set TYPE(Gssl), POINTER, DIMENSION(:) :: ssl END TYPE Gssl_set !----------------------------------------------------------------------------- TYPE Gopen_stencil_name TYPE(Gname_id) :: avail INTEGER :: name END TYPE Gopen_stencil_name !----------------------------------------------------------------------------- TYPE Gstencil_name_set INTEGER, POINTER, DIMENSION(:) :: stencil_name END TYPE Gstencil_name_set !----------------------------------------------------------------------------- TYPE Gstsl_set TYPE(Gstsl), POINTER, DIMENSION(:) :: stsl END TYPE Gstsl_set !----------------------------------------------------------------------------- TYPE Gcur_cont_attr TYPE(Gstyle_id) :: style REAL :: width TYPE(Gcap_id) :: cap TYPE(Gjoin) :: join END TYPE Gcur_cont_attr !----------------------------------------------------------------------------- TYPE Gcur_prim_attr INTEGER :: pick_id TYPE(Gname_set) :: name_set TYPE(Gscissor_set) :: scissor_set TYPE(Gmatrix_23) :: global_tran TYPE(Gmatrix_23) :: loc_tran TYPE(Gpat_size) :: pat_size TYPE(Gwc_point) :: pat_ref_pt REAL :: text_height TYPE(Gtext_up_vec) :: text_up_vec REAL :: text_skew TYPE(Gtext_path_id) :: text_path TYPE(Gtext_align) :: text_align INTEGER :: curve_ind TYPE(Gcurve_asfs) :: curve_asfs INTEGER :: curve_type REAL :: curve_width TYPE(Gcolr_spec) :: curve_colr_spec INTEGER :: marker_ind TYPE(Gmarker_asfs) :: marker_asfs INTEGER :: marker_type REAL :: marker_size TYPE(Gcolr_spec) :: marker_colr_spec INTEGER :: area_ind TYPE(Garea_asfs) :: area_asfs TYPE(Gint_style_id) :: int_style INTEGER :: int_style_ind TYPE(Gcolr_spec) :: int_colr_spec TYPE(Gedge_flag_id) :: edge_flag INTEGER :: edge_type REAL :: edge_width TYPE(Gcolr_spec) :: edge_colr_spec INTEGER :: char_ind TYPE(Gchar_asfs) :: char_asfs TYPE(Gfont_prec) :: char_font_prec REAL :: char_expan REAL :: char_space TYPE(Gcolr_spec) :: char_colr_spec END TYPE Gcur_prim_attr !----------------------------------------------------------------------------- TYPE Gopen_tiling_name TYPE(Gname_id) :: avail INTEGER :: name END TYPE Gopen_tiling_name !----------------------------------------------------------------------------- TYPE Gtiling_name_set INTEGER, POINTER, DIMENSION(:) :: tiling_name END TYPE Gtiling_name_set !----------------------------------------------------------------------------- TYPE Ggsl TYPE(Ggsl_id) :: entry_type TYPE(Groute_dir_id) :: route_dir TYPE(Gscissor_mode_id) :: scissor_mode TYPE(Gws_id_set) :: open_ws TYPE(Gws_id_set) :: active_ws TYPE(Gaudit_info_set) :: open_audits TYPE(Gaudit_id_set) :: open_playbacks TYPE(Gseq_in) :: in_queue TYPE(Gfont_tab), POINTER, DIMENSION(:) :: font_ind_map TYPE(Gcur_prim_attr) :: cur_prim_attr INTEGER :: cur_norm_tran TYPE(Gvp_in_pri) :: vp_in_pri TYPE(Gopen_picture_part) :: open_pic_part TYPE(Gpic_part_name_set) :: pic_part_names TYPE(Gopen_seg_name) :: open_seg_name TYPE(Gseg_name_set) :: seg_names TYPE(Gssl_set) :: ssl TYPE(Gopen_stencil_name) :: open_stencil_name TYPE(Gstencil_name_set) :: stencil_names TYPE(Gstsl_set) :: stsl TYPE(Gcur_cont_attr) :: cur_cont_attr TYPE(Gopen_tiling_name) :: tiling_name TYPE(Gtiling_name_set) :: tiling_names END TYPE Ggsl !----------------------------------------------------------------------------- TYPE Gdev_op_mode_bun TYPE(Gdev_op_mode_elem), POINTER, DIMENSION(:) :: ind END TYPE Gdev_op_mode_bun !----------------------------------------------------------------------------- TYPE Gdev_op_mode_elem TYPE(Gdev_id) :: dev_id TYPE(Gop_mode_id) :: op_mode END TYPE Gdev_op_mode_elem !----------------------------------------------------------------------------- TYPE Gdev_in_val_bun TYPE(Gdev_in_val_elem), POINTER, DIMENSION(:) :: ind END TYPE Gdev_in_val_bun !----------------------------------------------------------------------------- TYPE Gdev_in_val_elem TYPE(Gdev_id) dev_id TYPE(Gin_val) in_val END TYPE Gdev_in_val_elem !----------------------------------------------------------------------------- TYPE Gview_rep INTEGER, POINTER, DIMENSION(:) :: ind TYPE(Gsel_crit), POINTER, DIMENSION(:) :: sel_crit TYPE(Gmatrix_23), POINTER, DIMENSION(:) :: ori TYPE(Gmatrix_23), POINTER, DIMENSION(:) :: map TYPE(Gview_scissor), POINTER, DIMENSION(:) :: view_scissor END TYPE Gview_rep !----------------------------------------------------------------------------- TYPE Gwsl TYPE(Gwsl_id) :: entry_type TYPE(Gcurve_bun_elem), POINTER, DIMENSION(:) :: curve_bun_tab TYPE(Gmarker_bun_elem), POINTER, DIMENSION(:) :: marker_bun_tab TYPE(Garea_bun_elem), POINTER, DIMENSION(:) :: area_bun_tab TYPE(Gpat_elem), POINTER, DIMENSION(:) :: pat_tab TYPE(Gchar_bun_elem), POINTER, DIMENSION(:) :: char_bun_tab TYPE(Gcolr_elem), POINTER, DIMENSION(:) :: colr_tab TYPE(Gldc_win) :: ws_win TYPE(Gdc_vp) :: ws_vp TYPE(Gvis_eff_st_id) :: vis_eff_st TYPE(Gdev_op_mode_bun) :: dev_op_modes TYPE(Gdev_in_val_bun) :: dev_in_vals TYPE(Gsels) :: sel_crit TYPE(Gseg_name_set) :: stored_segs TYPE(Gview_rep) :: view_reps TYPE(Gview_pri) :: view_pris END TYPE Gwsl !----------------------------------------------------------------------------- TYPE Gdev_unit REAL :: x REAL :: y END TYPE Gdev_unit !----------------------------------------------------------------------------- TYPE Graster_unit INTEGER :: x INTEGER :: y END TYPE Graster_unit !----------------------------------------------------------------------------- TYPE Gdisp_size TYPE(Gdev_unit) :: dev_unit TYPE(Graster_unit) :: raster_unit END TYPE Gdisp_size !----------------------------------------------------------------------------- TYPE Gdev_id_compose TYPE(Gdev_id), POINTER, DIMENSION(:) :: dev_id TYPE(Gdev_comp), POINTER, DIMENSION(:) :: dev_comp END TYPE Gdev_id_compose !----------------------------------------------------------------------------- TYPE Gwdt TYPE(Gwdt_id) :: entry_type TYPE(Gws_type) :: wstype TYPE(Gws_st_id) :: ws_st TYPE(Gdc_units_id) :: dc_units TYPE(Gdisp_size) :: disp_size TYPE(Gdisp_kind_id) :: disp_kind INTEGER, POINTER, DIMENSION(:) :: curve_types INTEGER :: num_curve_widths REAL :: nom_curve_width REAL :: min_curve_width REAL :: max_curve_width TYPE(Gcurve_bun_elem), POINTER, DIMENSION(:) :: curve_bun_tab INTEGER, POINTER, DIMENSION(:) :: marker_types INTEGER :: num_marker_widths REAL :: nom_marker_width REAL :: min_marker_width REAL :: max_marker_width TYPE(Gmarker_bun_elem), POINTER, DIMENSION(:) :: marker_bun_tab TYPE(Gint_style_id), POINTER, DIMENSION(:) :: int_styles INTEGER, POINTER, DIMENSION(:) :: int_style_inds TYPE(Garea_bun_elem), POINTER, DIMENSION(:) :: area_bun_tab INTEGER, POINTER, DIMENSION(:) :: edge_types INTEGER :: num_edge_widths REAL :: nom_edge_width REAL :: min_edge_width REAL :: max_edge_width TYPE(Gpat_elem), POINTER, DIMENSION(:) :: pat_tab TYPE(Gfont_prec), POINTER, DIMENSION(:) :: font_precs INTEGER :: num_char_expans REAL :: min_char_expan REAL :: max_char_expan INTEGER :: num_text_heights REAL :: min_text_height REAL :: max_text_height TYPE(Gchar_bun_elem), POINTER, DIMENSION(:) :: char_bun_tab INTEGER, POINTER, DIMENSION(:) :: colr_models CHARACTER, POINTER :: colr_chars(:) INTEGER :: num_colrs CHARACTER, POINTER :: colr_avail(:) TYPE(Gcolr_elem), POINTER, DIMENSION(:) :: colr_tab INTEGER, POINTER, DIMENSION(:) :: gdp_ids INTEGER, POINTER, DIMENSION(:) :: dev_ids TYPE(Gdev_in_val_bun) :: dev_in_val INTEGER, POINTER, DIMENSION(:) :: measure_ids INTEGER, POINTER, DIMENSION(:) :: trigger_ids TYPE(Gdev_id_compose) :: dev_comp END TYPE Gwdt !----------------------------------------------------------------------------- TYPE Gerr_file TYPE(Gname_id) :: st CHARACTER, POINTER :: file_name(:) END TYPE Gerr_file !----------------------------------------------------------------------------- TYPE Gdev_id_overflow TYPE(Gname_id) :: st INTEGER :: id END TYPE Gdev_id_overflow !----------------------------------------------------------------------------- TYPE Gcur_seg_attr TYPE(Gvis_id) :: vis TYPE(Ghighl_id) :: highl TYPE(Gdet_id) :: det TYPE(Gmatrix_23) :: tran REAL :: pri END TYPE Gcur_seg_attr !----------------------------------------------------------------------------- TYPE Gssl TYPE(Gssl_id) :: entry_val INTEGER :: seg_name TYPE(Gws_id_set) :: ws_ids TYPE(Gcur_seg_attr) :: seg_attrs END TYPE Gssl !----------------------------------------------------------------------------- TYPE Gcur_stencil_attr TYPE(Gstencil_attr_val), POINTER, DIMENSION(:) :: stencil_attr END TYPE Gcur_stencil_attr !----------------------------------------------------------------------------- TYPE Gstsl TYPE(Gstsl_id) :: entry_type INTEGER :: stencil_name TYPE(Gcur_stencil_attr) :: stencil_attrs END TYPE Gstsl !----------------------------------------------------------------------------- TYPE Gaudit_ops TYPE(Gaudit_op_id) :: audit_op CHARACTER, POINTER :: audit_spec(:) END TYPE Gaudit_ops !----------------------------------------------------------------------------- TYPE Gaudit_user_data CHARACTER, POINTER :: data(:) END TYPE Gaudit_user_data !----------------------------------------------------------------------------- TYPE Gplayback_ops TYPE(Gplayback_op_id) :: audit_op CHARACTER, POINTER :: audit_spec(:) END TYPE Gplayback_ops !----------------------------------------------------------------------------- TYPE Gfa_open_gks CHARACTER, POINTER :: err_file(:) END TYPE Gfa_open_gks !----------------------------------------------------------------------------- TYPE Gfa_close_gks INTEGER :: NULL END TYPE Gfa_close_gks !----------------------------------------------------------------------------- TYPE Gfa_save_gsl INTEGER :: wsid TYPE(Ggsl_id), POINTER, DIMENSION (:) :: ent_names TYPE(Ggsl), POINTER, DIMENSION (:) :: ent_vals END TYPE Gfa_save_gsl !----------------------------------------------------------------------------- TYPE Gfa_restore_gsl INTEGER :: wsid TYPE(Ggsl), POINTER, DIMENSION (:) :: ent_vals END TYPE Gfa_restore_gsl !----------------------------------------------------------------------------- TYPE Gfa_escape INTEGER :: escape_id CHARACTER, POINTER :: in_data CHARACTER, POINTER :: out_data END TYPE Gfa_escape !----------------------------------------------------------------------------- TYPE Gfa_emergency_close_gks INTEGER :: NULL END TYPE Gfa_emergency_close_gks !----------------------------------------------------------------------------- TYPE Gfa_route TYPE(Groute_dir_id) :: dir END TYPE Gfa_route !----------------------------------------------------------------------------- TYPE Gfa_create_out_prim TYPE(Gprim_param_id) :: prim TYPE(Gset_line) :: line TYPE(Gset_nurb) :: nurb TYPE(Gset_conic_sec) :: conic_sec TYPE(Gmarker) :: marker TYPE(Gset_fill) :: fill TYPE(Gset_ellip_sec) :: ellip_sec TYPE(Gset_ellip_seg) :: ellip_seg TYPE(Gset_ellip_disc) :: ellip_disc TYPE(Gset_closed_nurb) :: closed_nurb TYPE(Gtext) :: text TYPE(Gcell_array) :: cell_array TYPE(Gdesign) :: design TYPE(Ggdp) :: gdp END TYPE Gfa_create_out_prim !----------------------------------------------------------------------------- TYPE Gfa_open_stencil INTEGER :: stencil_name TYPE(Ginside_rule_id) :: inside_rule END TYPE Gfa_open_stencil !----------------------------------------------------------------------------- TYPE Gfa_close_stencil INTEGER :: NULL END TYPE Gfa_close_stencil !----------------------------------------------------------------------------- TYPE Gfa_rename_stencil INTEGER :: old_stencil_name INTEGER :: new_stencil_name END TYPE Gfa_rename_stencil !----------------------------------------------------------------------------- TYPE Gfa_del_stencil INTEGER :: stencil_name END TYPE Gfa_del_stencil !----------------------------------------------------------------------------- TYPE Gfa_create_stencil_bndry INTEGER :: stencil_name TYPE(Ginside_rule_id) :: inside_rule TYPE(Gseq_bndry) :: bndry END TYPE Gfa_create_stencil_bndry !----------------------------------------------------------------------------- TYPE Gfa_create_stencil_conts INTEGER :: stencil_name TYPE(Ginside_rule_id) :: inside_rule TYPE(Gseq_path) :: path END TYPE Gfa_create_stencil_conts !----------------------------------------------------------------------------- TYPE Gfa_set_cont_attr TYPE(Gcont_attr_name_id) :: attr TYPE(Gstyle_id) :: style REAL :: width TYPE(Gcap_id) :: cap TYPE(Gjoin) :: join END TYPE Gfa_set_cont_attr !----------------------------------------------------------------------------- TYPE Gfa_set_stencil_attr TYPE(Gstencil_attr_name_id) :: attr REAL :: topy REAL :: capy REAL :: halfy REAL :: basey REAL :: bottomy REAL :: centrey REAL :: leftx REAL :: rightx REAL :: centrex TYPE(Glc_point) :: centre TYPE(Glc_point) :: origin TYPE(Glc_point) :: centretop TYPE(Glc_point) :: centrebottom TYPE(Glc_point) :: centreleft TYPE(Glc_point) :: centreright TYPE(Glc_point) :: topleft TYPE(Glc_point) :: topright TYPE(Glc_point) :: bottomleft TYPE(Glc_point) :: bottomright END TYPE Gfa_set_stencil_attr !----------------------------------------------------------------------------- TYPE Gfa_get_stencil_attr INTEGER :: stencil_name TYPE(Gstencil_attr_name_id) :: attr_name INTEGER :: error_ind TYPE(Gstencil_attr_val) :: attr_val END TYPE Gfa_get_stencil_attr !----------------------------------------------------------------------------- TYPE Gfa_inst_stencil INTEGER :: stencil_name INTEGER :: instance_name TYPE(Gmatrix_23) :: stencil_tran TYPE(Ginstance_spec) :: instance_spec END TYPE Gfa_inst_stencil !----------------------------------------------------------------------------- TYPE Gfa_inst_stencil_path INTEGER :: stencil_name INTEGER :: instance_name TYPE(Gwc_point) :: start_map TYPE(Gwc_point) :: end_map REAL :: instance_num TYPE(Gpath) :: path END TYPE Gfa_inst_stencil_path !----------------------------------------------------------------------------- TYPE Gfa_inst_stencil_seq_path TYPE(Ginstance_seq_spec) :: instance_seq_spec TYPE(Gpath_spec) :: path TYPE(Gmatrix_23) :: stencil_tran END TYPE Gfa_inst_stencil_seq_path !----------------------------------------------------------------------------- TYPE Gfa_open_tiling INTEGER :: tiling_name END TYPE Gfa_open_tiling !----------------------------------------------------------------------------- TYPE Gfa_close_tiling INTEGER :: NULL END TYPE Gfa_close_tiling !----------------------------------------------------------------------------- TYPE Gfa_rename_tiling INTEGER :: old_tiling_name INTEGER :: new_tiling_name END TYPE Gfa_rename_tiling !----------------------------------------------------------------------------- TYPE Gfa_del_tiling INTEGER :: tiling_name END TYPE Gfa_del_tiling !----------------------------------------------------------------------------- TYPE Gfa_create_tiling_comp TYPE(Gtiling_param_id) :: comp_name TYPE(Gset_line) :: set_line TYPE(Gset_nurb) :: set_nurb TYPE(Gset_conic_sec) :: set_conic_sec TYPE(Gset_fill) :: set_fill TYPE(Gset_ellip_sec) :: set_ellip_sec TYPE(Gset_ellip_seg) :: set_ellip_seg TYPE(Gset_ellip_disc) :: set_ellip_disc TYPE(Gset_closed_nurb) :: set_closed_nurb TYPE(Gdesign) :: design TYPE(Gwc_point) :: origin TYPE(Greplic_tech_id) :: rep_tech END TYPE Gfa_create_tiling_comp !----------------------------------------------------------------------------- TYPE Gfa_set_prim_attr TYPE(Gprim_attr_id) :: name TYPE(Gpick_id) :: pick_id TYPE(Gname_set) :: name_set TYPE(Gscissor_set) :: scissor_set TYPE(Gmatrix_23) :: global_tran TYPE(Gmatrix_23) :: loc_tran TYPE(Gpat_size) :: pat_size TYPE(Gwc_point) :: pat_ref_pt TYPE(Gtext_height) :: text_height TYPE(Gtext_up_vec) :: text_up_vec TYPE(Gtext_skew) :: text_skew TYPE(Gtext_path_id) :: text_path TYPE(Gtext_align) :: text_align TYPE(Gcurve_ind) :: curve_ind TYPE(Gcurve_asfs) :: curve_asfs TYPE(Gcurve_type) :: curve_type TYPE(Gcurve_width) :: curve_width TYPE(Gcolr_spec) :: curve_colr_spec TYPE(Gmarker_ind) :: marker_ind TYPE(Gmarker_asfs) :: marker_asfs TYPE(Gmarker_type) :: marker_type TYPE(Gmarker_size) :: marker_size TYPE(Gcolr_spec) :: marker_colr_spec TYPE(Garea_ind) :: area_ind TYPE(Garea_asfs) :: area_asfs TYPE(Gint_style_id) :: int_style TYPE(Gint_style_ind) :: int_style_ind TYPE(Gcolr_spec) :: int_colr_spec TYPE(Gedge_flag_id) :: edge_flag TYPE(Gedge_type) :: edge_type TYPE(Gedge_width) :: edge_width TYPE(Gcolr_spec) :: edge_colr_spec TYPE(Gchar_ind) :: char_ind TYPE(Gchar_asfs) :: char_asfs TYPE(Gfont_prec) :: char_font_prec TYPE(Gchar_expan) :: char_expan TYPE(Gchar_space) :: char_space TYPE(Gchar_colr_spec) :: char_colr_spec END TYPE Gfa_set_prim_attr !----------------------------------------------------------------------------- TYPE Gfa_add_set_names_nameset TYPE (Gname_set) :: nameset END TYPE Gfa_add_set_names_nameset !----------------------------------------------------------------------------- TYPE Gfa_remove_set_names_nameset TYPE (Gname_set) :: nameset END TYPE Gfa_remove_set_names_nameset !----------------------------------------------------------------------------- TYPE Gfa_add_set_scissor_set TYPE (Gscissor_set) :: scissor_set END TYPE Gfa_add_set_scissor_set !----------------------------------------------------------------------------- TYPE Gfa_remove_set_scissor_set TYPE (Gscissor_id_set) :: scissor_id_set END TYPE Gfa_remove_set_scissor_set !----------------------------------------------------------------------------- TYPE Gfa_set_win_vp INTEGER :: normtran TYPE (Gwc_win) :: win_limits TYPE (Gndc_vp) :: vp_limits END TYPE Gfa_set_win_vp !----------------------------------------------------------------------------- TYPE Gfa_set_vp_in_pri INTEGER :: normtran INTEGER :: ref_tran_num TYPE(Gpri_id) :: rel_pri END TYPE Gfa_set_vp_in_pri !----------------------------------------------------------------------------- TYPE Gfa_set_scissor_mode TYPE(Gscissor_mode_id) :: mode END TYPE Gfa_set_scissor_mode !----------------------------------------------------------------------------- TYPE Gfa_set_norm_tran_num INTEGER :: normtran END TYPE Gfa_set_norm_tran_num !----------------------------------------------------------------------------- TYPE Gfa_del_prims_ndc_pic TYPE(Gsel_crit) :: selcrit END TYPE Gfa_del_prims_ndc_pic !----------------------------------------------------------------------------- TYPE Gfa_add_set_names_ndc_pic TYPE(Gname_set) :: name_set TYPE (Gsel_crit) :: selcrit END TYPE Gfa_add_set_names_ndc_pic !----------------------------------------------------------------------------- TYPE Gfa_remove_set_names_ndc_pic TYPE(Gname_set) name_set TYPE(Gsel_crit) selcrit END TYPE Gfa_remove_set_names_ndc_pic !----------------------------------------------------------------------------- TYPE Gfa_set_ndc_pic_prim_attr TYPE(Gsel_crit) :: selcrit TYPE(Gprim_attr_id) :: name INTEGER :: pick_id TYPE(Gname_set) :: name_set TYPE(Gscissor_set) :: scissor_set TYPE(Gmatrix_23) :: global_tran TYPE(Gmatrix_23) :: loc_tran TYPE(Gpat_size) :: pat_size TYPE(Gwc_point) :: pat_ref_pt REAL :: text_height TYPE(Gtext_up_vec) :: text_up_vec REAL :: text_skew TYPE(Gtext_path_id) :: text_path TYPE(Gtext_align) :: text_align INTEGER :: curve_ind TYPE(Gcurve_asfs) :: curve_asfs INTEGER :: curve_type REAL :: curve_width TYPE(Gcolr_spec) :: curve_colr_spec INTEGER :: marker_ind TYPE(Gmarker_asfs) :: marker_asfs INTEGER :: marker_type REAL :: marker_size TYPE(Gcolr_spec) :: marker_colr_spec INTEGER :: area_ind TYPE(Garea_asfs) :: area_asfs TYPE(Gint_style_id) :: int_style INTEGER :: int_style_ind TYPE(Gcolr_spec) :: int_colr_spec TYPE(Gedge_flag_id) :: edge_flag INTEGER :: edge_type REAL :: edge_width TYPE(Gcolr_spec) :: edge_colr_spec INTEGER :: char_ind TYPE(Gchar_asfs) :: char_asfs TYPE(Gfont_prec) :: char_font_prec REAL :: char_expan REAL :: char_space TYPE(Gcolr_spec) :: char_colr_spec END TYPE Gfa_set_ndc_pic_prim_attr !----------------------------------------------------------------------------- TYPE Gfa_remove_set_scissor_ndc_pic TYPE(Gscissor_id_set) :: scissor_id_set TYPE(Gsel_crit) :: selcrit END TYPE Gfa_remove_set_scissor_ndc_pic !----------------------------------------------------------------------------- TYPE Gfa_add_set_scissor_ndc_pic TYPE(Gscissor_set) :: scissor_set TYPE(Gsel_crit) :: selcrit END TYPE Gfa_add_set_scissor_ndc_pic !----------------------------------------------------------------------------- TYPE Gfa_reorder_ndc_pic TYPE(Gsel_crit) :: src_sel TYPE(Gsel_crit) :: ref_sel TYPE(Gpos_id) :: rel_pos END TYPE Gfa_reorder_ndc_pic !----------------------------------------------------------------------------- TYPE Gfa_copy_ndc_pic_ndc_mf CHARACTER, POINTER :: ndc_mf_spec(:) INTEGER :: picid TYPE(Gsel_crit) :: selcrit TYPE(Gname_set) :: nameset END TYPE Gfa_copy_ndc_pic_ndc_mf !----------------------------------------------------------------------------- TYPE Gfa_copy_ndc_mf_pic_ndc_pic CHARACTER, POINTER :: ndc_mf_spec(:) INTEGER :: picid TYPE(Gname_set) :: nameset END TYPE Gfa_copy_ndc_mf_pic_ndc_pic !----------------------------------------------------------------------------- TYPE Gfa_open_pic_part INTEGER :: partname END TYPE Gfa_open_pic_part !----------------------------------------------------------------------------- TYPE Gfa_close_pic_part INTEGER :: NULL END TYPE Gfa_close_pic_part !----------------------------------------------------------------------------- TYPE Gfa_ar_pic_part INTEGER :: part_name CHARACTER, POINTER :: ar_spec(:) INTEGER :: ar_name END TYPE Gfa_ar_pic_part !----------------------------------------------------------------------------- TYPE Gfa_ret_pic_part_ar CHARACTER, POINTER :: ar_spec(:) INTEGER :: ar_name INTEGER :: part_name END TYPE Gfa_ret_pic_part_ar !----------------------------------------------------------------------------- TYPE Gfa_reopen_pic_part INTEGER :: part_name END TYPE Gfa_reopen_pic_part !----------------------------------------------------------------------------- TYPE Gfa_append_pic_part INTEGER :: src_partname INTEGER :: sink_partname TYPE(Gmatrix_23) :: globaltran TYPE(Gtran_mode_id) :: globalmode TYPE(Gmatrix_23) :: localtran TYPE(Gtran_mode_id) :: localmode TYPE(Gname_set) :: nameset END TYPE Gfa_append_pic_part !----------------------------------------------------------------------------- TYPE Gfa_rename_pic_part INTEGER :: old_name INTEGER :: new_name END TYPE Gfa_rename_pic_part !----------------------------------------------------------------------------- TYPE Gfa_del_pic_part INTEGER :: part_name END TYPE Gfa_del_pic_part !----------------------------------------------------------------------------- TYPE Gfa_copy_pic_part_pps INTEGER :: part_name TYPE(Gsel_crit) :: sel_crit TYPE(Gmatrix_23) :: global_tran TYPE(Gtran_mode_id) :: global_mode TYPE(Gmatrix_23) :: local_tran TYPE(Gtran_mode_id) :: local_mode TYPE(Gname_set) :: name_set TYPE(Gscissor_sel_id) :: scissor_sel END TYPE Gfa_copy_pic_part_pps !----------------------------------------------------------------------------- TYPE Gfa_copy_ndc_pic_pps TYPE (Gsel_crit) :: sel_crit INTEGER :: part_name TYPE (Gname_set) :: name_set END TYPE Gfa_copy_ndc_pic_pps !----------------------------------------------------------------------------- TYPE Gfa_set_in_dev_mode TYPE(Gdev_id) :: dev_id TYPE(Gop_mode_id) :: mode END TYPE Gfa_set_in_dev_mode !----------------------------------------------------------------------------- TYPE Gfa_req_in TYPE(Gdev_id) :: dev_id TYPE(Gin_st_id) :: in_st TYPE(Gin_val) :: in_val END TYPE Gfa_req_in !----------------------------------------------------------------------------- TYPE Gfa_sample_in TYPE(Gdev_id) :: dev_id TYPE(Gin_val) :: in_val END TYPE Gfa_sample_in !----------------------------------------------------------------------------- TYPE Gfa_await_in REAL :: timeout TYPE(Gdev_id_val_set) :: events END TYPE Gfa_await_in !----------------------------------------------------------------------------- TYPE Gfa_flush_dev_events TYPE(Gdev_id) :: dev_id END TYPE Gfa_flush_dev_events !----------------------------------------------------------------------------- TYPE Gfa_set_font_ind_map INTEGER :: font_ind CHARACTER, POINTER :: font_name (:) END TYPE Gfa_set_font_ind_map !----------------------------------------------------------------------------- TYPE Gfa_get_glyph_name INTEGER :: font_index CHARACTER(LEN=1) :: spec_char CHARACTER, POINTER :: spec_glyph(:) END TYPE Gfa_get_glyph_name !----------------------------------------------------------------------------- TYPE Gfa_set_char_code INTEGER :: font_index CHARACTER(LEN=1) :: spec_char CHARACTER, POINTER :: spec_glyph(:) END TYPE Gfa_set_char_code !----------------------------------------------------------------------------- TYPE Gfa_audit INTEGER :: audit_id TYPE(Gaudit_op_id) :: audit_op END TYPE Gfa_audit !----------------------------------------------------------------------------- TYPE Gfa_write_user_rec_audit INTEGER :: audit_id TYPE(Gaudit_user_data) :: rec END TYPE Gfa_write_user_rec_audit !----------------------------------------------------------------------------- TYPE Gfa_playback INTEGER :: audit_id TYPE(Gplayback_ops) :: playback_op END TYPE Gfa_playback !----------------------------------------------------------------------------- TYPE Gfa_read_item_func_name_audit INTEGER :: audit_id TYPE(Gfn_id) :: func_name END TYPE Gfa_read_item_func_name_audit !----------------------------------------------------------------------------- TYPE Gfa_proc_audit_item INTEGER :: audit_id TYPE(Gprocess_op_id) :: intr_op END TYPE Gfa_proc_audit_item !----------------------------------------------------------------------------- TYPE Gfa_inq_op_st_entry TYPE(Gop_st_list_id) :: entry_type INTEGER :: error_ind TYPE(Gop_st_list) :: entry_value END TYPE Gfa_inq_op_st_entry !----------------------------------------------------------------------------- TYPE Gfa_inq_gdt_entry TYPE(Ggdt_id) :: ent_name INTEGER :: err_ind TYPE(Ggdt) :: ent_val END TYPE Gfa_inq_gdt_entry !----------------------------------------------------------------------------- TYPE Gfa_inq_gsl_entry TYPE(Ggsl_id) :: ent_name INTEGER :: err_ind TYPE(Ggsl) :: ent_val END TYPE Gfa_inq_gsl_entry !----------------------------------------------------------------------------- TYPE Gfa_inq_in_overf INTEGER :: err_ind TYPE(Gdev_id) :: dev_id END TYPE Gfa_inq_in_overf !----------------------------------------------------------------------------- TYPE Gfa_eval_tran_matrix TYPE(Gwc_ndc_point) :: fixed_pt TYPE(gwc_ndc_point) :: shift_vec REAL :: rot_angle TYPE(Gscale_facs) :: scale_facs TYPE(Gmatrix_23) :: tran_mat END TYPE Gfa_eval_tran_matrix !----------------------------------------------------------------------------- TYPE Gfa_accum_tran_matrix TYPE(Gmatrix_23) :: in_mat TYPE(Gwc_ndc_point) :: fixed_pt TYPE(Gwc_ndc_point) :: shift_vec REAL :: rot_angle TYPE(Gscale_facs) :: scale_facs TYPE(Gmatrix_23) :: tran_mat END TYPE Gfa_accum_tran_matrix !----------------------------------------------------------------------------- TYPE Gfa_eval_circle TYPE(Gwc_point) :: centre REAL :: radius TYPE(Gmatrix_33) :: circle END TYPE Gfa_eval_circle !----------------------------------------------------------------------------- TYPE Gfa_eval_ell TYPE(Gellip_spec) :: ellip_spec TYPE(Gmatrix_33) :: ellip END TYPE Gfa_eval_ell !----------------------------------------------------------------------------- TYPE Gfa_eval_circ_arc_3_point TYPE(Gwc_point) :: start_pt TYPE(Gwc_point) :: imm_pt TYPE(Gwc_point) :: end_pt TYPE(Gconic_sec) :: circular_arc END TYPE Gfa_eval_circ_arc_3_point !----------------------------------------------------------------------------- TYPE Gfa_eval_circ_arc_ctr TYPE(Gwc_point) :: centre TYPE(Gvec) :: start_vec TYPE(Gvec) :: end_vec TYPE(Gsense_flag_id) :: sense_flag REAL :: radius TYPE(Gconic_sec) :: circular_arc END TYPE Gfa_eval_circ_arc_ctr !----------------------------------------------------------------------------- TYPE Gfa_eval_ell_arc TYPE(Gwc_point) :: centre TYPE(Gellip_spec) :: ellip_spec TYPE(Gvec) :: start_vec TYPE(Gvec) :: end_vec TYPE(Gconic_sec) :: conic_arc END TYPE Gfa_eval_ell_arc !----------------------------------------------------------------------------- TYPE Gfa_eval_hyp_arc TYPE(Ghyperbola_spec) :: hyperbola_spec TYPE(Gvec) :: start_vec TYPE(Gvec) :: end_vec TYPE(Gconic_sec) :: conic_arc END TYPE Gfa_eval_hyp_arc !----------------------------------------------------------------------------- TYPE Gfa_eval_par_arc TYPE(Gparabola_spec) :: parabola_spec TYPE(Gconic_sec) :: conic_arc END TYPE Gfa_eval_par_arc !----------------------------------------------------------------------------- TYPE Gfa_eval_wc_ord REAL :: wc_ordinate TYPE(Gord_sel_id) :: ord_sel REAL :: ndc_val END TYPE Gfa_eval_wc_ord !----------------------------------------------------------------------------- TYPE Gfa_open_ws INTEGER :: wsid CHARACTER, POINTER :: wsspec (:) TYPE(Gws_type) :: wstype END TYPE Gfa_open_ws !----------------------------------------------------------------------------- TYPE Gfa_close_ws INTEGER :: wsid END TYPE Gfa_close_ws !----------------------------------------------------------------------------- TYPE Gfa_save_wsl INTEGER :: wsid TYPE(Gwsl_id), POINTER, DIMENSION (:) :: ent_names TYPE(Gwsl), POINTER, DIMENSION (:) :: ent_vals END TYPE Gfa_save_wsl !----------------------------------------------------------------------------- TYPE Gfa_restore_wsl INTEGER :: wsid TYPE(Gwsl), POINTER, DIMENSION (:) :: ent_vals END TYPE Gfa_restore_wsl !----------------------------------------------------------------------------- TYPE Gfa_get_ws_status INTEGER :: wsid TYPE(Gws_st_id) :: wsst END TYPE Gfa_get_ws_status !----------------------------------------------------------------------------- TYPE Gfa_remove_backdrop INTEGER :: wsid END TYPE Gfa_remove_backdrop !----------------------------------------------------------------------------- TYPE Gfa_set_rep INTEGER :: wsid TYPE(Grep_id) :: rep_type INTEGER :: rep_ind TYPE(Gcurve_bun) :: curv_bun TYPE(Gmarker_bun) :: mark_bun TYPE(Garea_bun) :: area_bun TYPE(Gchar_bun) :: char_bun TYPE(Gcolr_array_spec) :: patt_array TYPE(Gcolr_coord) :: colr END TYPE Gfa_set_rep !----------------------------------------------------------------------------- TYPE Gfa_set_view_pri INTEGER :: wsid INTEGER :: view_ind INTEGER :: ref_view_ind TYPE(Gpri_id) :: rel_pri END TYPE Gfa_set_view_pri !----------------------------------------------------------------------------- TYPE Gfa_set_view_sel_crit INTEGER :: wsid INTEGER :: view_ind TYPE(Gsel_crit) :: sel_crit END TYPE Gfa_set_view_sel_crit !----------------------------------------------------------------------------- TYPE Gfa_set_view INTEGER :: wsid INTEGER :: view_ind TYPE(Gmatrix_23) :: view_ori_matrix TYPE(Gmatrix_23) :: view_map_matrix TYPE(Gview_scissor) :: view_scissor END TYPE Gfa_set_view !----------------------------------------------------------------------------- TYPE Gfa_set_ws_vis_effects INTEGER :: wsid TYPE(Gvis_eff_st_id) :: vis_eff END TYPE Gfa_set_ws_vis_effects !----------------------------------------------------------------------------- TYPE Gfa_set_ws_win_vp INTEGER :: wsid TYPE(Gndc_win) :: ldc_win TYPE(Gdc_vp) :: dc_vp END TYPE Gfa_set_ws_win_vp !----------------------------------------------------------------------------- TYPE Gfa_def_in_dev TYPE(Gdev_id) :: dev_id TYPE(Gseq_measure_id) :: seq_measure_id TYPE(Gtrigger_set) :: trigger_set TYPE(Ginit_val) :: init_val END TYPE Gfa_def_in_dev !----------------------------------------------------------------------------- TYPE Gfa_init_in_dev TYPE(Gdev_id) :: dev_id TYPE(Ginit_val) :: init_val END TYPE Gfa_init_in_dev !----------------------------------------------------------------------------- TYPE Gfa_set_ws_sel_crit INTEGER :: wsid TYPE(Gsel_crit_id) :: sel_type TYPE(Gsel_crit) :: sel_crit END TYPE Gfa_set_ws_sel_crit !----------------------------------------------------------------------------- TYPE Gfa_copy_real_pic_real_mf INTEGER :: wsid CHARACTER, POINTER :: rld_mf_spec (:) INTEGER :: picid END TYPE Gfa_copy_real_pic_real_mf !----------------------------------------------------------------------------- TYPE Gfa_copy_blank_pic_real_mf INTEGER :: wsid CHARACTER, POINTER :: rld_mf_spec (:) INTEGER :: picid END TYPE Gfa_copy_blank_pic_real_mf !----------------------------------------------------------------------------- TYPE Gfa_copy_real_mf_pic_backdrop INTEGER :: wsid CHARACTER, POINTER :: rld_mf_spec (:) INTEGER :: picid END TYPE Gfa_copy_real_mf_pic_backdrop !----------------------------------------------------------------------------- TYPE Gfa_message INTEGER :: wsid CHARACTER, POINTER :: char_str (:) END TYPE Gfa_message !----------------------------------------------------------------------------- TYPE Gfa_inq_wsl_entry INTEGER :: wsid TYPE(Gwsl_id) :: ent_name TYPE(Gset_realized_id) :: ent_type INTEGER :: err_ind TYPE(Gwsl) :: ent_val END TYPE Gfa_inq_wsl_entry !----------------------------------------------------------------------------- TYPE Gfa_inq_gen_wdt_entry INTEGER :: wstype TYPE(Gwdt_id) :: entry_name INTEGER :: error_ind TYPE(Gwdt) :: entry_val END TYPE Gfa_inq_gen_wdt_entry !----------------------------------------------------------------------------- TYPE Gfa_inq_spec_wdt_entry INTEGER :: wsid TYPE(Gwdt_id) :: entry_name INTEGER :: error_ind TYPE(Gwdt) :: entry_val END TYPE Gfa_inq_spec_wdt_entry !----------------------------------------------------------------------------- TYPE Gfa_inq_spec_wdt_entry_st INTEGER :: wsid TYPE(Gwdt_id) :: entry_name INTEGER :: error_ind TYPE(Gchange_flag_id) :: entry_state END TYPE Gfa_inq_spec_wdt_entry_st !----------------------------------------------------------------------------- TYPE Gfa_res_spec_wdt_entry_st INTEGER wsid TYPE(Gwdt_id) entry_name END TYPE Gfa_res_spec_wdt_entry_st !----------------------------------------------------------------------------- TYPE Gfa_get_text_extent INTEGER :: wsid TYPE(Gwc_point) :: text_pos CHARACTER, POINTER :: char_str(:) INTEGER :: err_ind TYPE(Gwc_point) :: concat_pt TYPE(Gwc_point) :: xmin TYPE(Gwc_point) :: xmax TYPE(Gwc_point) :: ymin TYPE(Gwc_point) :: ymax END TYPE Gfa_get_text_extent !----------------------------------------------------------------------------- TYPE Gfa_eval_view_ori_matrix TYPE(Gndc_point) :: view_ref_pt TYPE(Gview_up_vec) :: view_up_vec TYPE(Gmatrix_23) :: view_ori_mat END TYPE Gfa_eval_view_ori_matrix !----------------------------------------------------------------------------- TYPE Gfa_eval_view_map_matrix TYPE(Gndc_win) :: win_lim TYPE(Gldc_vp) :: vp_lim TYPE(Gmatrix_23) :: view_map_mat END TYPE Gfa_eval_view_map_matrix !----------------------------------------------------------------------------- TYPE Gfa_conv_colr INTEGER :: wsid TYPE(Gcolr_spec) :: colr_spec TYPE(Gcolr_model_id) :: colr_model TYPE(Gcolr_spec) :: colr_val TYPE(Gconv_flag_id) :: conv_flag END TYPE Gfa_conv_colr !----------------------------------------------------------------------------- TYPE Gfa_create_seg INTEGER :: seg_name END TYPE Gfa_create_seg !----------------------------------------------------------------------------- TYPE Gfa_close_seg INTEGER :: NULL END TYPE Gfa_close_seg !----------------------------------------------------------------------------- TYPE Gfa_rename_seg INTEGER :: old_name INTEGER :: new_name END TYPE Gfa_rename_seg !----------------------------------------------------------------------------- TYPE Gfa_del_seg INTEGER :: seg_name END TYPE Gfa_del_seg !----------------------------------------------------------------------------- TYPE Gfa_del_seg_ws INTEGER :: wsid INTEGER :: seg_name END TYPE Gfa_del_seg_ws !----------------------------------------------------------------------------- TYPE Gfa_assoc_seg_ws INTEGER :: wsid INTEGER :: seg_name END TYPE Gfa_assoc_seg_ws !----------------------------------------------------------------------------- TYPE Gfa_copy_seg_ws INTEGER :: wsid INTEGER :: seg_name END TYPE Gfa_copy_seg_ws !----------------------------------------------------------------------------- TYPE Gfa_insert_seg INTEGER :: seg_name TYPE(Gmatrix_23) :: tran_mat END TYPE Gfa_insert_seg !----------------------------------------------------------------------------- TYPE Gfa_set_seg_attr INTEGER :: seg_name TYPE(Gseg_attr_val) :: seg_attr_val END TYPE Gfa_set_seg_attr !----------------------------------------------------------------------------- TYPE Gfa_activate_ws INTEGER :: wsid END TYPE Gfa_activate_ws !----------------------------------------------------------------------------- TYPE Gfa_deactivate_ws INTEGER :: wsid END TYPE Gfa_deactivate_ws !----------------------------------------------------------------------------- TYPE Gfa_clear_ws INTEGER :: wsid END TYPE Gfa_clear_ws !----------------------------------------------------------------------------- TYPE Gfa_get_map_seg_name INTEGER :: seg_name INTEGER :: map_name END TYPE Gfa_get_map_seg_name !----------------------------------------------------------------------------- TYPE Gfa_get_map_ws_id INTEGER :: wsid TYPE(Ggen_name) :: map_name END TYPE Gfa_get_map_ws_id !----------------------------------------------------------------------------- TYPE Gfunc_params TYPE(Gfn_id) :: func_name TYPE(Gfa_open_gks), POINTER :: Gf_open_gks TYPE(Gfa_close_gks), POINTER :: Gf_close_gks TYPE(Gfa_save_gsl), POINTER :: Gf_save_gsl TYPE(Gfa_restore_gsl), POINTER :: Gf_restore_gsl TYPE(Gfa_escape), POINTER :: Gf_escape TYPE(Gfa_emergency_close_gks), POINTER :: Gf_emergency_close_gks TYPE(Gfa_route), POINTER :: Gf_route TYPE(Gfa_create_out_prim), POINTER :: Gf_create_out_prim TYPE(Gfa_open_stencil), POINTER :: Gf_open_stencil TYPE(Gfa_close_stencil), POINTER :: Gf_close_stencil TYPE(Gfa_rename_stencil), POINTER :: Gf_rename_stencil TYPE(Gfa_del_stencil), POINTER :: Gf_del_stencil TYPE(Gfa_create_stencil_bndry), POINTER :: Gf_create_stencil_bndry TYPE(Gfa_create_stencil_conts), POINTER :: Gf_create_stencil_conts TYPE(Gfa_set_cont_attr), POINTER :: Gf_set_cont_attr TYPE(Gfa_set_stencil_attr), POINTER :: Gf_set_stencil_attr TYPE(Gfa_get_stencil_attr), POINTER :: Gf_get_stencil_attr TYPE(Gfa_inst_stencil), POINTER :: Gf_inst_stencil TYPE(Gfa_inst_stencil_path), POINTER :: Gf_inst_stencil_path TYPE(Gfa_inst_stencil_seq_path), POINTER :: Gf_inst_stencil_seq_path TYPE(Gfa_open_tiling), POINTER :: Gf_open_tiling TYPE(Gfa_close_tiling), POINTER :: Gf_close_tiling TYPE(Gfa_rename_tiling), POINTER :: Gf_rename_tiling TYPE(Gfa_del_tiling), POINTER :: Gf_del_tiling TYPE(Gfa_create_tiling_comp), POINTER :: Gf_create_tiling_comp TYPE(Gfa_set_prim_attr), POINTER :: Gf_set_prim_attr TYPE(Gfa_add_set_names_nameset), POINTER :: Gf_add_set_names_nameset TYPE(Gfa_remove_set_names_nameset), POINTER :: Gf_remove_set_names_nameset TYPE(Gfa_add_set_scissor_set), POINTER :: Gf_add_set_scissor_set TYPE(Gfa_remove_set_scissor_set), POINTER :: Gf_remove_set_scissor_set TYPE(Gfa_set_win_vp), POINTER :: Gf_set_win_vp TYPE(Gfa_set_vp_in_pri), POINTER :: Gf_set_vp_in_pri TYPE(Gfa_set_scissor_mode), POINTER :: Gf_set_scissor_mode TYPE(Gfa_set_norm_tran_num), POINTER :: Gf_set_norm_tran_num TYPE(Gfa_del_prims_ndc_pic), POINTER :: Gf_del_prims_ndc_pic TYPE(Gfa_add_set_names_ndc_pic), POINTER :: Gf_add_set_names_ndc_pic TYPE(Gfa_remove_set_names_ndc_pic), POINTER :: Gf_remove_set_names_ndc_pic TYPE(Gfa_set_ndc_pic_prim_attr), POINTER :: Gf_set_ndc_pic_prim_attr TYPE(Gfa_remove_set_scissor_ndc_pic), POINTER :: Gf_remove_set_scissor_ndc_pic TYPE(Gfa_add_set_scissor_ndc_pic), POINTER :: Gf_add_set_scissor_ndc_pic TYPE(Gfa_reorder_ndc_pic), POINTER :: Gf_reorder_ndc_pic TYPE(Gfa_copy_ndc_pic_ndc_mf ), POINTER :: Gf_copy_ndc_pic_ndc_mf TYPE(Gfa_copy_ndc_mf_pic_ndc_pic), POINTER :: Gf_copy_ndc_mf_pic_ndc_pic TYPE(Gfa_open_pic_part), POINTER :: Gf_open_pic_part TYPE(Gfa_close_pic_part), POINTER :: Gf_close_pic_part TYPE(Gfa_ar_pic_part), POINTER :: Gf_ar_pic_part TYPE(Gfa_ret_pic_part_ar), POINTER :: Gf_ret_pic_part_ar TYPE(Gfa_reopen_pic_part), POINTER :: Gf_reopen_pic_part TYPE(Gfa_append_pic_part), POINTER :: Gf_append_pic_part TYPE(Gfa_rename_pic_part), POINTER :: Gf_rename_pic_part TYPE(Gfa_del_pic_part), POINTER :: Gf_del_pic_part TYPE(Gfa_copy_pic_part_pps), POINTER :: Gf_copy_pic_part_pps TYPE(Gfa_copy_ndc_pic_pps), POINTER :: Gf_copy_ndc_pic_pps TYPE(Gfa_set_in_dev_mode), POINTER :: Gf_set_in_dev_mode TYPE(Gfa_req_in), POINTER :: Gf_req_in TYPE(Gfa_sample_in), POINTER :: Gf_sample_in TYPE(Gfa_await_in), POINTER :: Gf_await_in TYPE(Gfa_flush_dev_events ), POINTER :: Gf_flush_dev_events TYPE(Gfa_set_font_ind_map), POINTER :: Gf_set_font_ind_map TYPE(Gfa_get_glyph_name), POINTER :: Gf_get_glyph_name TYPE(Gfa_set_char_code), POINTER :: Gf_set_char_code TYPE(Gfa_audit), POINTER :: Gf_audit TYPE(Gfa_write_user_rec_audit), POINTER :: Gf_write_user_rec_audit TYPE(Gfa_playback ), POINTER :: Gf_playback TYPE(Gfa_read_item_func_name_audit), POINTER :: Gf_read_item_func_name_audit TYPE(Gfa_proc_audit_item), POINTER :: Gf_proc_audit_item TYPE(Gfa_inq_op_st_entry), POINTER :: Gf_inq_op_st_entry TYPE(Gfa_inq_gdt_entry), POINTER :: Gf_inq_gdt_entry TYPE(Gfa_inq_gsl_entry), POINTER :: Gf_inq_gsl_entry TYPE(Gfa_inq_in_overf), POINTER :: Gf_inq_in_overf TYPE(Gfa_eval_tran_matrix), POINTER :: Gf_eval_tran_matrix TYPE(Gfa_accum_tran_matrix), POINTER :: Gf_accum_tran_matrix TYPE(Gfa_eval_circle), POINTER :: Gf_eval_circle TYPE(Gfa_eval_ell), POINTER :: Gf_eval_ell TYPE(Gfa_eval_circ_arc_3_point), POINTER :: Gf_eval_circ_arc_3_point TYPE(Gfa_eval_circ_arc_ctr), POINTER :: Gf_eval_circ_arc_ctr TYPE(Gfa_eval_ell_arc), POINTER :: Gf_eval_ell_arc TYPE(Gfa_eval_hyp_arc), POINTER :: Gf_eval_hyp_arc TYPE(Gfa_eval_par_arc), POINTER :: Gf_eval_par_arc TYPE(Gfa_eval_wc_ord), POINTER :: Gf_eval_wc_ord TYPE(Gfa_open_ws), POINTER :: Gf_open_ws TYPE(Gfa_close_ws), POINTER :: Gf_close_ws TYPE(Gfa_save_wsl), POINTER :: Gf_save_wsl TYPE(Gfa_restore_wsl), POINTER :: Gf_restore_wsl TYPE(Gfa_get_ws_status), POINTER :: Gf_get_ws_status TYPE(Gfa_remove_backdrop), POINTER :: Gf_remove_backdrop TYPE(Gfa_set_rep), POINTER :: Gf_set_rep TYPE(Gfa_set_view_pri), POINTER :: Gf_set_view_pri TYPE(Gfa_set_view_sel_crit), POINTER :: Gf_set_view_sel_crit TYPE(Gfa_set_view), POINTER :: Gf_set_view TYPE(Gfa_set_ws_vis_effects), POINTER :: Gf_set_ws_vis_effects TYPE(Gfa_set_ws_win_vp), POINTER :: Gf_set_ws_win_vp TYPE(Gfa_def_in_dev), POINTER :: Gf_def_in_dev TYPE(Gfa_init_in_dev), POINTER :: Gf_init_in_dev TYPE(Gfa_set_ws_sel_crit), POINTER :: Gf_set_ws_sel_crit TYPE(Gfa_copy_real_pic_real_mf), POINTER :: Gf_copy_real_pic_real_mf TYPE(Gfa_copy_blank_pic_real_mf), POINTER :: Gf_copy_blank_pic_real_mf TYPE(Gfa_copy_real_mf_pic_backdrop), POINTER :: Gf_copy_real_mf_pic_backdrop TYPE(Gfa_message), POINTER :: Gf_message TYPE(Gfa_inq_wsl_entry), POINTER :: Gf_inq_wsl_entry TYPE(Gfa_inq_gen_wdt_entry), POINTER :: Gf_inq_gen_wdt_entry TYPE(Gfa_inq_spec_wdt_entry), POINTER :: Gf_inq_spec_wdt_entry TYPE(Gfa_inq_spec_wdt_entry_st), POINTER :: Gf_inq_spec_wdt_entry_st TYPE(Gfa_res_spec_wdt_entry_st), POINTER :: Gf_res_spec_wdt_entry_st TYPE(Gfa_get_text_extent), POINTER :: Gf_get_text_extent TYPE(Gfa_eval_view_ori_matrix), POINTER :: Gf_eval_view_ori_matrix TYPE(Gfa_eval_view_map_matrix), POINTER :: Gf_eval_view_map_matrix TYPE(Gfa_conv_colr), POINTER :: Gf_conv_colr TYPE(Gfa_create_seg), POINTER :: Gf_create_seg TYPE(Gfa_close_seg), POINTER :: Gf_close_seg TYPE(Gfa_rename_seg), POINTER :: Gf_rename_seg TYPE(Gfa_del_seg), POINTER :: Gf_del_seg TYPE(Gfa_del_seg_ws), POINTER :: Gf_del_seg_ws TYPE(Gfa_assoc_seg_ws), POINTER :: Gf_assoc_seg_ws TYPE(Gfa_copy_seg_ws), POINTER :: Gf_copy_seg_ws TYPE(Gfa_insert_seg), POINTER :: Gf_insert_seg TYPE(Gfa_set_seg_attr), POINTER :: Gf_set_seg_attr TYPE(Gfa_activate_ws), POINTER :: Gf_activate_ws TYPE(Gfa_deactivate_ws), POINTER :: Gf_deactivate_ws TYPE(Gfa_clear_ws), POINTER :: Gf_clear_ws TYPE(Gfa_get_map_seg_name), POINTER :: Gf_get_map_seg_name TYPE(Gfa_get_map_ws_id), POINTER :: Gf_get_map_ws_id END TYPE Gfunc_params !----------------------------------------------------------------------------- end module fbindtypes