CCSD3UF0000900000001

CCSD3KS00002MRK**002

/* FILE PIOPLAHR.SFD - FORTRAN code for ASCII listings of hourly average data */

TECHNICAL_CONTACT:              

				Dr. Paul Gazis
			    	Mail Stop 245-3
			    	NASA Ames Research Center
		    		Moffett Field, CA 94035
		    		PH: (415) 604-5704
				Internet > gazis@windee.span.nasa.gov
		    		DECnet > WINDEE::GAZIS

				Dr. John F. Cooper
				Hughes STX Corporation
				NASA Space Physics Data Facility
				Code 632.9
				NASA Goddard Space Flight Center
				Greenbelt, MD 20771
				Ph: (301) 441-4188
				Fx: (301) 441-9486
				Internet > JCOOPER@NSSDCA.GSFC.NASA.GOV
				DECnet   > NSSDCA::JCOOPER

CCSD$$MARKERMRK**002

CCSD3SF0000200000001

SUBMISSION_DATE:                1995-07-05

TITLE:                          FORTRAN CODE FOR ASCII LISTINGS FROM
				HOURLY AVG DATA FILES OF THE PIONEER PLASMA
				ANALYZER EXPERIMENT

DESCRIPTION:   	A FORTRAN program has been provided to make ASCII listings
		of selected parameters from hourly avg data files in VAX binary 
		format.


RELEASE_DATE:                   1995-07-05

REVISABLE_STATUS:               YES


C     PROGRAM PIOPLAHR:reads Pioneer 10/11 plasma experiment hourly averages
C                     dataset in VAX BINARY format and writes some parameters 
C                     within desired time interval in ASCII format.
C
C     Version: 6/29/95, J. F. Cooper / Hughes STX Corp.
C
C     INPUT FILE NAME: TEMPHR.DAT (copied from PnnV23HOUR.DAT)-VAX BINARY format
C    
C     DEFINE VARIABLE TYPES, DIMENSIONS, COMMON BLOCK, AND EQUIVALENCE
C
         IMPLICIT REAL*4 (A-H,O-W)
         REAL*4 JYDD,NHR,NBREC,NSWREC         
         DIMENSION REC1(30)
         CHARACTER*4 ISCID
         COMMON /CREC1/
     *   ISCID, JYDD, NHR, RAD, HLONG, HLAT, NBREC, NSWREC, 
     *   BNON1, BMAG, BAZM, BPOL, BNON2, RBMAG, RBAZM, RBPOL,
     *   TEM, DEN, VEL, AZM, POL, RTEM, RDEN, RVEL,
     *   RAZM, RPOL, FLUX, PRES, PCONV, ERG
         EQUIVALENCE (REC1(1),ISCID)
         DATA IU/6/,AU/1.497E8/
C
C     OPEN THE INPUT FILE
C
         OPEN(UNIT=10,FILE='TEMPHR.DAT',
     *      STATUS='OLD',READONLY,FORM='UNFORMATTED')
C
C..   READ IN DESIRED START, STOP DATES AS YYDDD.
C
         WRITE(6,*) ' Enter start & stop dates (yyddd): '
	 READ(5,*) ISTART,ISTOP
C	  WRITE(IU,1003)
C
C     READ DATA RECORDS FROM FT10F001. TEST FOR DESIRED INTERVAL.
C
20	 READ(10,END=100) REC1
	 IF(JYDD.LT.ISTART) GOTO 20
	 IF(JYDD.GT.ISTOP)  GOTO 100
C
C.....RECORD IS IN DESIRED INTERVAL. WRITE OUTPUT AND READ NEXT RECORD.
C
	 R=RAD/AU
	 WRITE(IU,1004) ISCID,JYDD,NHR,VEL,DEN,TEM,AZM,POL
         GOTO 20
C
C.....END OF LISTING
C
100      STOP
300      WRITE(6,*) ' END OF INPUT FILE'
         STOP
C
C     OUTPUT FORMAT STATEMENTS
C
1003  FORMAT(' ISCID  YYDDD  HR    VEL    DEN      TEMP   AZM   POL'//)
1004  FORMAT(2X,A4,1X,F6.0,1X,F3.0,1X,F8.1,1X,F8.3,1X,F9.0,1X,2F7.2)
      END