Jump to content United States-English
HP.com Home Products and Services Support and Drivers Solutions How to Buy
» Contact HP
More options
HP.com home
 Starbase Display List Programmer's Manual: HP 9000 Series 700 Computers > Appendix A Quick References

FORTRAN Quick Reference
» 

Technical documentation

» Feedback
Content starts here

 » Table of Contents

 » Glossary

 » Index

spacerspacerspacer
spacer
spacer
  		 
 

a

adapt_clip_to_extent 

subroutine adapt_clip_to_extent(fildes, enable)
  integer*4     fildes, enable

The legal values of enable are FALSE and TRUE.

add_names_to_set 

subroutine add_names_to_set(fildes, count, names)
  integer*4     fildes, count, names(count)

application_data 

subroutine application_data(fildes, count, data)
  integer*4     fildes, count
  character*(*) data

c

call_segment 

subroutine call_segment(fildes, segno)
  integer*4     fildes, segno

change_segment_references 

subroutine change_segment_references(fildes, old_segno, new_segno)
  integer*4     fildes, old_segno, new_segno

close_segment 

subroutine close_segment(fildes)
  integer*4     fildes

cond_call_segment 

subroutine cond_call_segment(fildes, cond_index_select, comp_flag, segno)
  integer*4     fildes, cond_index_select, comp_flag, segno

The legal values of cond_index_select are CI_FALSE, CI_PRUNE, and CI_CULL. The legal values of comp_flag are FALSE and TRUE.

cond_execute_segment 

subroutine cond_execute_segment(fildes, cond_index_select, comp_flag, segno)
  integer*4     fildes, cond_index_select, comp_flag, segno

The legal values of cond_index_select are CI_FALSE, CI_PRUNE, and CI_CULL. The legal values of comp_flag are FALSE and TRUE.

cond_return 

subroutine cond_return(fildes, cond_index_select, comp_flag)
  integer*4     fildes, cond_index_select, comp_flag

The legal values of cond_index_select are CI_FALSE, CI_PRUNE, and CI_CULL. The legal values of comp_flag are FALSE and TRUE.

copy_segment 

subroutine copy_segment(fildes, segno)
  integer*4     fildes, segno

d

delete_eles 

subroutine delete_eles(fildes, count)
  integer*4     fildes, count

delete_segment 

subroutine delete_all_segments(fildes)
  integer*4     fildes
 
subroutine delete_segment(fildes, segno)
  integer*4     fildes, segno
 
subroutine delete_segment_and_references(fildes, segno)
  integer*4     fildes, segno

display_element 

subroutine display_element(fildes, devdes)
  integer*4     fildes, devdes

display_segment 

subroutine display_segment(fildes, segno, devdes)
  integer*4     fildes, segno, devdes
 
subroutine display_segment_hsr(fildes, segno, devdes)
  integer*4     fildes, segno, devdes

dl_label 

subroutine dl_label(fildes, label_id)
  integer*4     fildes, label_id

dl_control 

subroutine dl_control(fildes, funcode, arg1, arg2)
integer*4 fildes, funcode
integer*4 arg1(64), arg2(64)
or
real arg1(64), arg2(64)
or
character arg1(255), arg2(255)

e

ele_control 

subroutine ele_control(fildes, control, on)
  integer*4     fildes, control, on

The legal values of control are DISP_IGNORE and PICK_IGNORE, or ed together if desired. The legal values of on are TRUE and FALSE.

execute_segment 

subroutine execute_segment(fildes, segno)
  integer*4     fildes, segno

i

inq_application_data 

subroutine inq_application_data(fildes, data)
  integer*4     fildes
  character*(*) data
 
subroutine inq_application_data_size(fildes, size)
  integer*4     fildes, size

inq_called_segno 

subroutine inq_called_segno(fildes, segno)
  integer*4     fildes, segno

inq_calling_segment 

subroutine inq_calling_segment_count(fildes, segno, seg_count)
  integer*4     fildes, segno, seg_count
 
subroutine inq_calling_segment_list(fildes, segno, seg_list)
  integer*4     fildes, segno, seg_list(*)

inq_cond_index 

subroutine inq_cond_index(fildes, cond_index_select, value)
  integer*4     fildes, cond_index_select, value

The legal values of cond_index_select are CI_FALSE, CI_PRUNE, and CI_CULL. The returned value of value will be either FALSE or TRUE.

inq_content 

subroutine inq_content(fildes, param_types, counts, int_array, float_array,
 char_array)
  integer*4     fildes, param_types(*), counts(*), int_array(*)
  real          float_array(*)
  character*(*) char_array(*)
 
subroutine inq_content_sizes(fildes, params, num_ints, num_floats, num_chars)
  integer*4     fildes, params, num_ints, num_floats, num_chars

The returned values of the elements in the param_types array will be TYPE_INT, TYPE_INT_ARRAY, TYPE_FLOAT, TYPE_FLOAT_ARRAY, TYPE_STRING, or TYPE_CHAR_ARRAY.

inq_ele 

subroutine inq_ele(fildes, ele)
  integer*4     fildes, ele(*)
 
subroutine inq_ele_size(fildes, size)
  integer*4     fildes, size

inq_ele_control 

subroutine inq_ele_control(fildes, control)
  integer*4     fildes, control

The returned value of control will be the bitwise or of some combination of DISP_IGNORE and PICK_IGNORE.

inq_ele_ptr 

subroutine inq_ele_ptr(fildes, offset)
  integer*4     fildes, offset
 
subroutine inq_ele_ptr_at_bound(fildes, at_top, at_bot)
  integer*4     fildes, at_top, at_bot

The returned values of at_top and at_bot will be either FALSE or TRUE.

inq_ele_type 

subroutine inq_ele_type(fildes, ele_type)
  integer*4     fildes, ele_type

The possible return values of ele_type are listed in the "include" file "dl.f2.h".

inq_extent_info 

subroutine inq_extent_info(fildes, dc_extent, clip_mask, diagonal_length)
  integer*4     fildes
  real          dc_extent(3,2)
  integer*4     clip_mask(3,2)
  real          diagonal_length

The returned values in the elements of the clip_mask array will be either FALSE or TRUE.

inq_highlighting_filter 

subroutine inq_highlighting_filter(fildes, i_names, x_names)
  integer*4     fildes, i_names(*), x_names(*)
 
subroutine inq_highlighting_filter_sizes(fildes, i_count, x_count)
  integer*4     fildes, i_count, x_count

inq_invisibility_filter 

subroutine inq_invisibility_filter(fildes, i_names, x_names)
  integer*4     fildes, i_names(*), x_names(*)
 
subroutine inq_invisibility_filter_sizes(fildes, i_count, x_count)
  integer*4     fildes, i_count, x_count

inq_nameset 

subroutine inq_nameset(fildes, names)
  integer*4     fildes, names(*)
 
subroutine inq_nameset_size(fildes, size)
  integer*4     fildes, size

inq_num_refs 

subroutine inq_num_refs(fildes, segno, count)
  integer*4     fildes, segno, count

inq_open_segment 

subroutine inq_open_segment(fildes, segno, seg_open)
  integer*4     fildes, segno, seg_open
 
subroutine inq_open_segment_and_mode(fildes, segno, seg_open, mode)
  integer*4     fildes, segno, seg_open, mode

The returned value of seg_open will be either FALSE or TRUE. The returned value of mode will be DL_ONLY (FALSE), DL_AND_DISPLAY (TRUE), or DISPLAY_ONLY.

inq_pick_filter_sizes 

subroutine inq_pick_filter_sizes(fildes, i_count, x_count)
  integer*4     fildes, i_count, x_count

inq_pick_filter 

subroutine inq_pick_filter(fildes, i_names, x_names)
  integer*4     fildes, i_names(*), x_names(*)

inq_pick_path 

subroutine inq_pick_path(fildes, path)
  integer*4     fildes, path(*)
 
subroutine inq_pick_path_depth(fildes, depth)
  integer*4     fildes, depth

inq_seg_control 

subroutine inq_seg_control(fildes, segno, control)
  integer*4     fildes, segno, control

The returned value of control will be the bitwise or of some combination of DISP_IGNORE, PICK_IGNORE, and HIGHLIGHT.

inq_segment_count/list/exists 

subroutine inq_segment_count(fildes, count)
  integer*4     fildes, count
 
subroutine inq_segment_list(fildes, list)
  integer*4     fildes, list(*)
 
subroutine inq_segment_exists(fildes, segno, exists)
  integer*4     fildes, segno, exists

The returned value of exists will be either FALSE or TRUE.

inq_traversal_depth 

subroutine inq_traversal_depth(fildes, depth)
  integer*4     fildes, depth

interpret_ele 

subroutine interpret_ele(fildes, ele)
  integer*4     fildes, ele(*)

o

open_segment 

subroutine open_segment(fildes, segno, append, display)
  integer*4     fildes, segno, append, display

The legal values of append are FALSE and TRUE. The legal values of display are FALSE, TRUE, DL_ONLY, DL_AND_DISPLAY, and DISPLAY_ONLY.

p

pick_from_segment 

subroutine pick_from_segment(fildes, segno, found)
  integer*4     fildes, segno, found

The returned value of found will be either FALSE or TRUE.

pop_state 

subroutine pop_state(fildes)
  integer*4     fildes

print_element 

subroutine print_element(fildes, abbreviate_arrays)
  integer*4     fildes, abbreviate_arrays

The legal values of abbreviate_arrays are FALSE and TRUE.

push_state 

subroutine push_state(fildes)
  integer*4     fildes

r

refresh_element 

subroutine refresh_element(fildes)
  integer*4     fildes

refresh_segment 

subroutine refresh_segment(fildes, segno)
  integer*4     fildes, segno
 
subroutine refresh_segment_hsr(fildes, segno)
  integer*4     fildes, segno

remove_names_from_set 

subroutine remove_all_names_from_set(fildes)
  integer*4     fildes
 
subroutine remove_names_from_set(fildes, count, names)
  integer*4     fildes, count, names(count)

rename_segment 

subroutine rename_segment(fildes, old_segno, new_segno)
  integer*4     fildes, old_segno, new_segno
 
subroutine rename_segment_and_references(fildes, old_segno, new_segno)
  integer*4     fildes, old_segno, new_segno

replace_ele 

subroutine replace_ele(fildes)
  integer*4     fildes

s

seg_control 

subroutine seg_control(fildes, segno, control, on)
  integer*4     fildes, segno, control, on

The legal values of control are the bitwise or of some combination of DISP_IGNORE, PICK_IGNORE, and HIGHLIGHT. The legal values of on are TRUE and FALSE.

set_cull_size 

subroutine set_cull_size(fildes, cull_size)
  integer*4     fildes
  real          cull_size

set_disp_traversal_control 

subroutine set_disp_traversal_control(fildes, control)
  integer*4     fildes, control

The legal values of control are TRAVERSAL_RETURN, TRAVERSAL_ABORT, and TRAVERSAL_CONTINUE.

set_ele_ptr 

subroutine set_ele_ptr(fildes, offset)
  integer*4     fildes, offset
 
subroutine set_ele_ptr_at_end(fildes)
  integer*4     fildes
 
subroutine set_ele_ptr_relative(fildes, offset)
  integer*4     fildes, offset
 
subroutine set_ele_ptr_relative_to_label(fildes, label_id, offset)
  integer*4     fildes, label_id, offset

set_extent 

subroutine set_extent(fildes, mc_extent)
  integer*4     fildes
  real          mc_extent(3,2)
 
subroutine set_extent_displacements(fildes, vdc_displacements, dc_displacements)
  integer*4     fildes
  real          vdc_displacements(3,2), dc_displacements(3,2)

set_highlighting_filter 

subroutine set_highlighting_filter(fildes, i_count, i_names, x_count, x_names)
  integer*4     fildes, i_count, i_names(i_count), x_count, x_names(x_count)

set_invisibility_filter 

subroutine set_invisibility_filter(fildes, i_count, i_names, x_count, x_names)
  integer*4     fildes, i_count, i_names(i_count), x_count, x_names(x_count)

set_pick_filter 

subroutine set_pick_filter(fildes, i_count, i_names, x_count, x_names)
  integer*4     fildes, i_count, i_names(i_count), x_count, x_names(x_count)

set_pick_mode 

subroutine set_pick_mode(fildes, check_hit)
  integer*4     fildes, subroutine check_hit
 
subroutine check_hit(fildes, result)
  integer*4     fildes, result

set_pick_sense 

subroutine set_pick_sense(fildes, sense)
  integer*4     fildes, sense

The legal values of sense areFALSE and TRUE.

set_pick_traversal_control 

subroutine set_pick_traversal_control(fildes, control)
  integer*4     fildes, control

The legal values of control are TRAVERSAL_RETURN, TRAVERSAL_ABORT, and TRAVERSAL_CONTINUE.

set_traversal_depth 

subroutine set_traversal_depth(fildes, depth)
  integer*4     fildes, depth

t

traversal_lock 

subroutine traversal_lock(fildes, lock)
  integer*4     fildes, lock

The legal values of lock are TRUE and FALSE.



C Quick Reference
  		 


Pascal Quick Reference  
Printable version
Privacy statement Using this site means you accept its terms Feedback to webmaster
© 1995 Hewlett-Packard Development Company, L.P.