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