;+
;
; NAME: 
;       FS_SAVEACCUM
;
; PURPOSE:
;
;
; CATEGORY:
;       BATSE
;
; CALLING SEQUENCE:
;
;
; CALLS:
;	none
;
; INPUTS:
;       none explicit, only through commons;
;
; OPTIONAL INPUTS:
;	none
;
; OUTPUTS:
;       none explicit, only through commons;
;
; OPTIONAL OUTPUTS:
;	none
;
; KEYWORDS:
;	none
; COMMON BLOCKS:
;	none
;
; SIDE EFFECTS:
;	none
;
; RESTRICTIONS:
;	none
;
; PROCEDURE:
;	none
;
; MODIFICATION HISTORY:
;
;-
; These variables are established in setup_arrays and used in fsplot.
; Added cont_cos8 and sp_cos8.  KT apr 18 94
; Mod. 02/23/95 by RCJ  Added cont_livet and sp_livet to common block
common fs_saveaccum, $
  maxindex, $       ; number of 1.024 s samples saved in arrays discla, seconds.
                    ; Half that many in xyzpos, xradec, and zradec.
  discla, $         ; (6,8,n) - first contains raw counts,later contains 
                    ; livetime-corrected rates 
  seconds, $        ; (n) - times at center of accumulation interval 
                    ; for points in discla array in R*8 seconds relative to 
                    ; 79/1/1,0 
  maxposindex, $
  pseconds, $
  xpos,ypos,zpos, $ ; (n/2) - x,y,z coordinates of GRO position in Earth-
                    ; centered inertial coordinates in 1/4 km units (exactly 
                    ; as in housekeeping data in bdb file)
  xra,xdec, $       ; (n/2) - x right asc. and declination of  GRO pointing 
                    ; direction, units of .0001 radians (exactly as in hkg)
  zra,zdec, $       ; (n/2) - z right asc. and declination of  GRO pointing 
                    ; direction, units of .0001 radians (exactly as in hkg)
  livet, $          ; (8,n) livetime array 
  sq_error, $       ; (6,8,n) errors in discla array
  ones_arr, $       ; (8,n) array of ones where there was good data, zeroes
                    ; where bad data (livetime = 0) for 8 detectors, n samples
  d_mark, $         ; (?) times of day marks in seconds since 79/1/1,0
  n_mark, $         ; (?) times of day marks in seconds since 79/1/1,0
  cos8, $           ; (8) cosine of angle between 8 detectors and sun


  maxcindex, $  
  cont, $           ; (16,8,n/2) continuous data
  cseconds, $       ; (n/2) times at center of accum intervals for cont
  cont_livet, $
  cont_cos8, $
  cones_arr, $

  maxspindex, $
  discsp, $         ; (4,8,n/2) discsp data
  spseconds, $      ; (n/2) times at center of accum intervals for discsp
  sp_livet, $
  sp_cos8, $
  spones_arr