Directory $DISK3:[VOYAGER.SOURCE.VOYPROD]

ANGLES.FOR

   Computes field angles and field modulus from field components.

BIGAVE.FOR

   Final routine of VOYPROD responsible for creating 48 second summary data.
   Rotates 1.92 second averages into heliographic (HG) or planetary (S1,L1,U1
   or N1) coordinates when flagged.  Creates 9.6 and 48 second averages from 
   1.92 second averages.  Outputs 48 second summary product.

BOOM_ALIGN.FOR

   Applies boom alignment matrices to payload MAG data.

BOOM_DAT.FOR

   Reads boom alignment matrices for inboard and outboard magnetometers.

CLEAN1.FOR

   Population filter borrowed from IDSP software on LEPVAX.  Samples a moving
   window of 100 points on an array of size >= 100 points.  Looks for points 
   distanced more than K standard deviations away from the mean.  User selects 
   "K" and the number of passes of the filter.

CONHOUR.FOR

   Converts I*2 hour of year into day of year and hour of day.

CONSEC.FOR
 
   Converts I*2 seconds of hour into minutes and seconds.

CONVERT.FOR

   Converts R*8 decimal year into I*4 year, day ,hour, minute, second and
   millisecond.  NOT USED BY VOYPROD.

CR1AVE.FOR

   Calls CR-1 routines to compute ambient and spacecraft fields, output 
   detail data OR compute 1.92 second averages to be passed to BIGAVE.

CR1CNT.FOR (replaced by MAKEGAMMAS.FOR)

   Converts CR-1 MAG counts to gammas.

CR1COMM.FOR (replaced by MAGSTATUS.FOR)

   Extracts MAG status words from CR-1 EDR sub-header block.

CR1DET.FOR

   CR-1 detail data output routine.  Rotates detail data into heliographic 
   (HG) or planetary (S1,L1,U1 or N1) coordinates when flagged.

CR1FLD.FOR

   Computes ambient and spacecraft fields from CR-1 detail data.

CR1LFM.FOR

   Calls CR-1 routines to get MAG status words, convert counts to gammas 
   and perform sensor and boom alignment rotations.

CR1PRI.FOR

   Creates 48 second blocks of 1.92 second averages from CR-1 detail data.
   Calls BIGAVE to calculate 9.6 and 48 second averages and output summary 
   record.

CR1SCF.FOR

   Computes 48 second averaged CR-1 spacecraft field data.

CR2AVE.FOR

   Calls CR-2 routines to compute ambient and spacecraft fields, output 
   detail data OR compute 1.92 second averages to be passed to BIGAVE.

CR2CNT.FOR (replaced by MAKEGAMMAS.FOR)

   Converts CR-2 MAG counts to gammas.

CR2COMM.FOR (replaced by MAGSTATUS.FOR)

   Extracts MAG status words from CR-2 EDR sub-header block.

CR2DET.FOR

   CR-2 detail data output routine.  Rotates detail data into heliographic 
   (HG) or planetary (S1,L1,U1 or N1) coordinates when flagged.

CR2FLD.FOR

   Computes ambient and spacecraft fields from CR-2 detail data.

CR2LFM.FOR

   Calls CR-2 routines to get MAG status words, convert counts to gammas 
   and perform sensor and boom alignment rotations.

CR2PNS.FOR

   Interpolates CR-2 secondary MAG data to primary MAG rate then calls 
   CR2PRI.  Secondary MAG data replaces spacecraft field data in the call 
   to CR2PRI to allow inclusion of both primary and secondary MAG data in
   the summary record.

CR2PRI.FOR

   Creates 48 second blocks of 1.92 second averages from CR-2 detail data.
   Calls BIGAVE to calculate 9.6 and 48 second averages and output summary
   record.

CR2SCF.FOR

   Computes 48 second averaged CR-2 spacecraft field data.

CR2SEC.FOR

   Interpolates CR-2 secondary MAG detail data (0.24 sec) to primary sample
   rate (0.12 sec).  Calls CR2PRI passing secondary MAG data as primary data
   stream.

CR3AVE.FOR

   Calls CR-3 routines to compute ambient and spacecraft fields, output 
   detail data OR compute 1.92 second averages to be passed to BIGAVE.

CR3CNT.FOR (replaced by MAKEGAMMAS.FOR)

   Converts CR-3 MAG counts to gammas.

CR3COMM.FOR (replaced by MAGSTATUS.FOR)

   Extracts MAG status words from CR-3 EDR sub-header block.

CR3DET.FOR

   CR-3 detail data output routine.  Rotates detail data into heliographic
   (HG) or planetary (S1,L1,U1 or N1) coordinates when flagged.

CR3FLD.FOR

   Computes ambient and spacecraft fields from CR-3 detail data.

CR3LFM.FOR

   Calls CR-3 routines to get MAG status words, convert counts to gammas 
   and perform sensor and boom alignment rotations.
 
CR3PNS.FOR

   Interpolates CR-3 secondary MAG data to primary MAG rate then calls 
   CR3PRI.  Secondary MAG data replaces spacecraft field data in the call 
   to CR3PRI to allow inclusion of both primary and secondary MAG data in
   the summary record.

CR3PRI.FOR

   Creates 48 second blocks of 1.92 second averages from CR-3 detail data.
   Calls BIGAVE to calculate 9.6 and 48 second averages and output summary
   record.

CR3SCF.FOR

   Computes 48 second averaged CR-3 spacecraft field data.

CR3SEC.FOR

   Interpolates CR-3 secondary MAG detail data (0.96 sec) to primary sample
   rate (0.24 sec).  Calls CR3PRI passing secondary MAG data as primary data
   stream.

CR4AVE.FOR

   Calls CR-4 routines to compute ambient and spacecraft fields, output 
   detail data OR compute 1.92 second averages to be passed to BIGAVE.

CR4CNT.FOR (replaced by MAKEGAMMAS.FOR)

   Converts CR-4 MAG counts to gammas.

CR4COMM.FOR (replaced by MAGSTATUS.FOR)

   Extracts MAG status words from CR-4 EDR sub-header block.

CR4DET.FOR

   CR-4 detail data output routine.  Rotates detail data into heliographic
   (HG) or planetary (S1,L1,U1 or N1) coordinates when flagged.

CR4DIFF.FOR (replace by DIFFERENCE.FOR)

   Reconstructs CR-4 12 bit full words from 6 bit differences.  

CR4FLD.FOR

   Computes ambient and spacecraft fields from CR-4 detail data.

CR4LFM.FOR

   Calls CR-4 routines to get MAG status words, reconstruct differenced words,
   convert counts to gammas and perform sensor and boom alignment rotations.

CR4PNS.FOR

   Interpolates CR-4 secondary MAG data to primary MAG rate then calls 
   CR4PRI.  Secondary MAG data replaces spacecraft field data in the call 
   to CR4PRI to allow inclusion of both primary and secondary MAG data in
   the summary record.
 
CR4PRI.FOR

   Creates 48 second blocks of 1.92 second averages from CR-4 detail data.
   Calls BIGAVE to calculate 9.6 and 48 second averages and output summary
   record.

CR4SCF.FOR

   Computes 48 second averaged CR-4 spacecraft field data.

CR4SEC.FOR

   Interpolates CR-4 secondary MAG detail data (2.40 sec) to primary sample
   rate (0.30 sec).  Calls CR4PRI passing secondary MAG data as primary 
   data stream.

CR5AVE.FOR

   Calls CR-5 routines to compute ambient and spacecraft fields, output 
   detail data OR compute 1.92 second averages to be passed to BIGAVE.

CR5CNT.FOR (replaced by MAKEGAMMAS.FOR)

   Converts CR-5 MAG counts to gammas.

CR5COMM.FOR (replaced by MAGSTATUS.FOR)

   Extracts MAG status words from CR-5 EDR sub-header block.

CR5FLD.FOR

   Computes ambient and spacecraft fields from CR-5 detail data.

CR5LFM.FOR

   Calls CR-5 routines to get MAG status words, reconstruct delta modulated 
   words, convert counts to gammas and perform sensor and boom alignment 
   rotations.

CR5PNS.FOR

   Interpolates CR-5 secondary MAG data to primary MAG rate then calls 
   CR5PRI.  Secondary MAG data replaces spacecraft field data in the call 
   to CR5PRI to allow inclusion of both primary and secondary MAG data in
   the summary record.
 
CR5PRI.FOR

   Creates 48 second blocks of 1.92 second averages from CR-5 detail data.
   Calls BIGAVE to calculate 9.6 and 48 second averages and output summary
   record.

CR5SCF.FOR

   Computes 48 second averaged CR-5 spacecraft field data.

CR5SEC.FOR

   Interpolates CR-5 secondary MAG reference words (9.6 sec) to primary sample 
   rate (4.8 sec).
   
CR6AVE.FOR

   Calls CR-6 routines to compute ambient and spacecraft fields, output 
   detail data OR compute 1.92 second averages to be passed to BIGAVE.

CR6CNT.FOR (replaced by MAKEGAMMAS.FOR)

   Converts CR-6 MAG counts to gammas.

CR6COMM.FOR (replaced by MAGSTATUS.FOR)

   Extracts MAG status words from CR-6 EDR sub-header block.

CR6FLD.FOR

   Computes ambient and spacecraft fields from CR-6 detail data.

CR6LFM.FOR

   Calls CR-6 routines to get MAG status words, reconstruct delta modulated 
   words, convert counts to gammas and perform sensor and boom alignment 
   rotations.

CR6PNS.FOR

   Interpolates CR-6 secondary MAG data to primary MAG rate then calls 
   CR6PRI.  Secondary MAG data replaces spacecraft field data in the call 
   to CR6PRI to allow inclusion of both primary and secondary MAG data in
   the summary record.
 
CR6PRI.FOR

   Creates 48 second blocks of 1.92 second averages from CR-6 detail data.
   Calls BIGAVE to calculate 9.6 and 48 second averages and output summary
   record.

CR6SCF.FOR

   Computes 48 second averaged CR-6 spacecraft field data.

CR6SEC.FOR

   Interpolates CR-6 secondary MAG reference words (3.84 sec) to primary 
   sample rate (1.92 sec).
   
DAYS.FOR

   Examines I*4 year and returns R*8 days per year (365.0d0 or 366.0d0).

DECOMM.FOR

   Extract decommutation map words from decommutation record.

DECYR.FOR (defunct routine)

   Converts I*2 time (YY,DDD,HH,MM,SS,FFF) into R*8 decimal year.

DELTA.FOR

   Reconstructs 12 bit predicted words from 2 bit delta modulated words.

DIFFERENCE.FOR

   Reconstruct 12 bit full words from 6 bit difference words.

DISPLAY.FOR

   Displays key EDR values unpacked from the EDR header block.

ELPSTIME.FOR

   Computes the elapsed time in R*8 days between two 6(I*2) times
   (YY,DDD,HH,MM,SS,FFF).  Input times with 2 digit year values less
   than 77 are considered to be in the 21st century.

ENGOUT.FOR

   Reads engineering data and maps words to proper deck number.

EXTRACTDATE.FOR

   Extracts time from an ASCII pointing vector record.

FILENAME.FOR

   Extracts filename from the fully qualified filename, ie, directory 
   path and extension are removed.

FLAGS.FOR

   Writes VOYPROD command flags to the log file.

GETBIT.FOR

   Gets value of a bit at a user designated offset in an array.

GETFLAGS.FOR

   Reads VOYPROD command flags from an ASCII input file.

GETSEDR.FOR

   Master routine to read both navigation record files and pointing
   vector record files.  Calls subroutines to process navigation and 
   pointing vector data.

GETTIME.FOR

   Converts EDR time tags (SCET,SERT,EERT) into calendar time.

GETZERO.FOR

   Reads ASCII zero table file and extracts zero table with time tag
   closest to but not exceeding the current EDR time tag.  
   
GS3AVE.FOR

   Calls GS-3 routines to compute ambient and spacecraft fields, output 
   detail data OR compute 1.92 second averages to be passed to BIGAVE.

GS3CNT.FOR (replaced by MAKEGAMMAS.FOR)

   Converts GS-X MAG counts to gammas.

GS3COMM.FOR (replaced by MAGSTATUS.FOR)

   Extracts MAG status words from GS-X EDR sub-header block.

GS3DET.FOR       

   GS-X detail data output routine.  Rotates detail data into heliographic 
   (HG) or planetary (S1,L1,U1 or N1) coordinates when flagged.

GS3DIFF.FOR (replace by DIFFERENCE.FOR)

   Reconstructs GS-X 12 bit full words from 6 bit differences.  

GS3FLD.FOR       

   Computes spacecraft field from GS-X detail data.

GS3LFM.FOR       

   Calls GS-3 routines to get MAG status words, reconstruct differenced words,
   convert counts to gammas and perform sensor and boom alignment rotations.

GS3PNS.FOR

   Interpolates GS-X secondary MAG data to primary MAG rate then calls 
   GS3PRI.  Secondary MAG data replaces spacecraft field data in the call 
   to GS3PRI to allow inclusion of both primary and secondary MAG data in
   the summary record.

GS3PRI.FOR       

   Creates 48 second blocks of 1.92 second averages from GS-X detail data.
   Calls BIGAVE to calculate 9.6 and 48 second averages and output summary
   record.

GS3SCF.FOR       

   Computes 48 second averaged GS-X spacecraft field values.

GS3SEC.FOR       

   Interpolates GS-X secondary MAG detail data (0.12 sec) to primary sample
   rate (0.06 sec).  Calls GS3PRI passing secondary MAG data as primary
   data stream.

HDR1OUT.FOR      

   Write informational HDR1 record describing attributes of a particular
   processing run.

HEADCHK.FOR      

   Checks key EDR header block fields for acceptable values.  Returns an
   error flag when bad values are encountered.

HEADFILL.FOR     

   Write data to the header block of a 48 second summary record.

HG.FOR (defunct routine)

   Old heliographic coordinate routine.  Removed

IHG.FOR (defunct routine)

   Old heliographic coordinate routine.  Removed

INC_TIME.FOR     

   Increments integer calendar time (yy-ddd/hh:mm:ss:fff) by an integer
   delta value.

LEAP.FOR       

   Returns double precision days in an I*2 year.

MAGCR1.FOR

   Unpacks CR-1 MAG EDR science block.

MAGCR2.FOR

   Unpacks CR-2 MAG EDR science block.

MAGCR3.FOR

   Unpacks CR-3 MAG EDR science block.

MAGCR4.FOR

   Unpacks CR-4 MAG EDR science block.

MAGCR5.FOR

   Unpacks CR-5 MAG EDR science block.

MAGCR6.FOR

   Unpacks CR-6 MAG EDR science block.

MAGGS3.FOR       

   Unpacks GS-X MAG EDR science block.

MAGVIM5.FOR      

   Unpacks VIM-5 MAG EDR science block.

MAGSTATUS.FOR

   Extracts values from MAG status words unpacked from EDR sub-header block.

MAG_SENS.FOR     

   Reads MAG sensitivity tables.

MAKEGAMMAS.FOR

   Convert integer counts to gammas.

MAIN.FOR
   
   Main calling routine of VOYPROD.

MAKEGAMMAS.FOR

   Converts integer MAG counts to real field strength (gammas).
       
MODE.FOR       

   Identifies telemetry mode of current record.

MOVBIT.FOR       

   Extracts N bits of data from an array starting at a designated bit offset.

MPRD.FOR        

   Contains routines to perform matrice multiplication (3x3 by 3x1 and 
   3x3 by 3x3).

PLSCR1.FOR       

   Unpacks CR-1 MAG EDR sub-header block data.

PLSCR2.FOR       

   Unpacks CR-2 MAG EDR sub-header block data.

PLSCR3.FOR       

   Unpacks CR-3 MAG EDR sub-header block data.

PLSCR4.FOR       

   Unpacks CR-4 MAG EDR sub-header block data.

PLSCR5.FOR       

   Unpacks CR-5 MAG EDR sub-header block data.

PLSCR6.FOR       

   Unpacks CR-6 MAG EDR sub-header block data.

PLSGS3.FOR       

   Unpacks GS-X MAG EDR sub-header block data.

PLSVIM5.FOR     
 
   Unpacks VIM-5 MAG EDR sub-header block data.

POS.FOR (defunct routine)

   Rotate spacecraft position and velocity from EME'50 coordinates to
   IHG coordinates.  Old routine, removed.  See SEDRCRU.FOR.

QUE.FOR          

   Buffers data prior to entry into the filtering routine CLEAN1.

REALTIME.FOR     

   Converts integer calendar time into decimal year real time.

ROTATE.FOR

   Rotates N 3 element vectors with row-major represented 3x3 matrix.

ROTATE1.FOR

   Rotates 3 element vectors with row-major represented 3x3 matrix.

SCTDIFF.FOR  

   Returns time period covered by an EDR in double precision.   

SEDRCRU.FOR

   Computes heliographic coordinate transformation matrices, spacecraft
   latitude and longitude.

SEDRENC.FOR

   Computes planetary coordinate transformation matrices, spacecraft
   latitude and longitude.

SEDRIP.FOR

   Linear interpolation routine for scalar, vector and 3x3 matrix quantities.

SEDRPROC.FOR (defunct routine)

   Old heliographic coordinate routine.  Removed
   

SENSOR_ALIGN.FOR

   Applies sensor alignment matrices to payload MAG data.

SENSOR_DAT.FOR   

   Reads sensor alignment matrices for inboard and outboard mags.

SETBIT.FOR     

   Sets the value of a designated bit in an array.

SHIVOT.FOR

   Adjusts reconstructed delta modulated predicted words to track 12 bit
   reference words.

STATS.FOR        

   Calculates field magnitude, modulus and averages.

TBOUND.FOR       

   Gets EDR processing start and stop times.

TRANS31.FOR      

   Rotates a 3-element vector with a column-major 3x3 matrix.

UNHEAD.FOR       

   Routine to unpack data from header block of EDR.  Unpacked values are
   placed in a common block for global sharing.  See UNPACK.INC

UNPACKCR1.FOR      

   Master calling routine to unpack CR-1 EDR sub-header and science block 
   data.

UNPACKCR2.FOR      

   Master calling routine to unpack CR-2 EDR sub-header and science block 
   data.

UNPACKCR3.FOR      

   Master calling routine to unpack CR-3 EDR sub-header and science block 
   data.

UNPACKCR4.FOR      

   Master calling routine to unpack CR-4 EDR sub-header and science block 
   data.

UNPACKCR5.FOR      

   Master calling routine to unpack CR-5 EDR sub-header and science block 
   data.

UNPACKCR6.FOR      

   Master calling routine to unpack CR-6 EDR sub-header and science block 
   data.

UNPACKDEC.FOR   

   Master calling routine to unpack decommutation records.

UNPACKENG.FOR   

   Master calling routine to unpack engineering records.

UNPACKGS3.FOR      

   Master calling routine to unpack GS-3 EDR sub-header and science block data.

UNPACKVIM5.FOR     

   Master calling routine to unpack VIM-5 EDR sub-header and science block data.

VIM5AVE.FOR      

   Calls routines to compute ambient and spacecraft fields, output detail
   data OR compute 1.92 second averages to be passed to BIGAVE.

VIM5CNT.FOR (replaced by MAKEGAMMAS.FOR)

   Converts VIM-5 MAG counts to gammas.

VIM5COMM.FOR (replaced by MAGSTATUS.FOR)

   Extracts MAG status words from VIM-5 EDR sub-header block.
    
VIM5DET.FOR      

   VIM-5 detail data output routine.  Rotates detail data into heliographic 
   (HG) or planetary (S1,L1,U1 or N1) coordinates when flagged.

VIM5DIFF.FOR (replace by DIFFERENCE.FOR)

   Reconstructs GS-X 12 bit full words from 6 bit differences.  
       
VIM5FLD.FOR      

   Computes ambient and spacecraft fields from VIM-5 detail data.

VIM5LFM.FOR      

   Calls VIM-5 routines to get status words, reconstruct differenced words,
   convert counts to gammas and perform sensor and boom alignment rotations.

VIM5PNS.FOR

   Interpolates VIM-5 secondary MAG data to primary MAG rate then calls 
   VIM5PRI.  Secondary MAG data replaces spacecraft field data in the call 
   to VIM5PRI to allow inclusion of both primary and secondary MAG data in
   the summary record.

VIM5PRI.FOR      

   Creates a 48 second block of 1.92 second averages from VIM-5 detail data.
   Calls BIGAVE to output 48 second summary record.

VIM5SCF.FOR      

   Computes 48 second averaged VIM-5 spacecraft field values.

VIM5SEC.FOR      

   Interpolates VIM-5 secondary MAG detail data (24 sec) to primary sample 
   rate (.48 sec).

UNPACK.INC

   Include file containing common blocks to pass header, sub-header, 
   science and processed data between VOYPROD routines.

WRITE_DELTA_COUNTS.FOR

   Output counts from delta reconstruction.

WRITE_DIFF_COUNTS.FOR

   Output counts from difference reconstruction.