!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! SDDL Name: POS_ANGLE_CONFIG.SDDL
!
! Purpose: This include file contains wgpvl global variables 1
!
! Modification History:
!
! Date OPR Who Reason
! -------- ------- --- -------------------------------------------------
! 12/12/94 27329 NSS Original implementation
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
!
LANGUAGE FORTRAN
INCLUDE ZSPSS_USER_TYPES.SDDL
RECORD PACNFG_TYPE
!------------------------------------------------------------------------------
!
! RECORD INFORMATION
!
!------------------------------------------------------------------------------
DESCRIPTION "wgpvl global variables 1"
!------------------------------------------------------------------------------
!
! FIELD INFORMATION
!
!------------------------------------------------------------------------------
FIELD news1
TYPE C50
DESCRIPTION "the characters to position cursor"
END_FIELD
FIELD news2
TYPE I2
DESCRIPTION "the length of characters to position cursor"
END_FIELD
FIELD news3
TYPE I4
DESCRIPTION "the return for position cursor"
END_FIELD
FIELD delta_max
TYPE R4
DESCRIPTION "the delta for max"
END_FIELD
FIELD delta_nom
TYPE R4
DESCRIPTION "the delta for nom"
END_FIELD
FIELD plot_count
TYPE I4
DESCRIPTION "the count of plots"
END_FIELD
FIELD x_axis_label
TYPE C20
DESCRIPTION "the label for the x axis"
END_FIELD
FIELD orbit_file
TYPE C80
DESCRIPTION "the orbit file name"
END_FIELD
FIELD alignment_file
DIMENSION 100
TYPE C80
DESCRIPTION "the alignment file name"
END_FIELD
FIELD num_alignment_files
TYPE I2
DESCRIPTION "the number of alignment files"
END_FIELD
FIELD current_alignment
TYPE I2
DESCRIPTION "the current alignment being worked on."
END_FIELD
FIELD max_alignments
TYPE I2
DESCRIPTION "the total alignments being worked on."
END_FIELD
FIELD alignment_ids
DIMENSION 250
TYPE C14
DESCRIPTION "the array of alignment ids."
END_FIELD
FIELD align_x_aper
DIMENSION 250
TYPE R4
DESCRIPTION "the array of alignment x apertures."
END_FIELD
FIELD align_y_aper
DIMENSION 250
TYPE R4
DESCRIPTION "the array of alignment aperture ys."
END_FIELD
FIELD align_aper_ang
DIMENSION 250
TYPE R4
DESCRIPTION "the array of alignment appature angles."
END_FIELD
FIELD align_ras
DIMENSION 250
TYPE R4
DESCRIPTION "the array of alignment right ascensions."
END_FIELD
FIELD align_decs
DIMENSION 250
TYPE R4
DESCRIPTION "the array of alignment declinations."
END_FIELD
FIELD plot_v3_si_angle
TYPE L1
DESCRIPTION "v3 or si angle plot flag"
END_FIELD
FIELD interaction
TYPE L1
DESCRIPTION "interaction requested flag"
END_FIELD
FIELD alignment_file_requested
TYPE L1
DESCRIPTION "alignment file requested flag"
END_FIELD
FIELD begun_plot
TYPE L1
DESCRIPTION "have begun plot flag"
END_FIELD
FIELD plot_beg_time_str
TYPE C21
DESCRIPTION "begin time for plot in string form"
END_FIELD
FIELD plot_beg_time_secs
TYPE I4
DESCRIPTION "begin time for plot in int*4 form"
END_FIELD
FIELD plot_beg_time_real
TYPE R8
DESCRIPTION "begin time for plot in real form"
END_FIELD
FIELD plot_end_time_str
TYPE C21
DESCRIPTION "end time for plot in string form"
END_FIELD
FIELD plot_end_time_secs
TYPE I4
DESCRIPTION "end time for plot in int*4 form"
END_FIELD
FIELD plot_end_time_real
TYPE R8
DESCRIPTION "end time for plot in real form"
END_FIELD
FIELD plot_delta_time
TYPE R8
DESCRIPTION "delta time for plot"
END_FIELD
FIELD plot_step_time
TYPE R8
DESCRIPTION "step time for plot"
END_FIELD
FIELD plot_tick_mark_delta
TYPE R8
DESCRIPTION "tick mark delta time for plot"
END_FIELD
FIELD plot_grid_time
TYPE I4
DESCRIPTION "grid time for plot"
END_FIELD
END_RECORD
!------------------------------------------------------------------------------
!
! INSTANCE DECLARATION
!
!------------------------------------------------------------------------------
INSTANCE pos_angle_config
FILE
TYPE PACNFG_TYPE
GLOBAL
END_INSTANCE