The following Fortran program will list the contents of the NSSDC COHO data for one quantity:

C       EXTRACTS SPECIFIED ITEM FROM A VOYAGER NSSDC FORMATTED FILE
         IMPLICIT NONE
         CHARACTER*12 SATID
         CHARACTER*19 START,END,T
         CHARACTER*132 LABEL
         CHARACTER*100 FMTSTRING
         CHARACTER*40 FNAME
         INTEGER I,IBIN,NOBINS
         REAL FLUX,ERROR
         WRITE (6,*) 'FILE:'
         READ(5,'((A))') FNAME
         OPEN(UNIT=1,FILE=FNAME,STATUS='OLD')
         READ(1,'((A))') SATID
         WRITE(6,'((A))') SATID
         READ(1,'((A))') START
         WRITE(6,'((A))') START
         READ(1,'((A))') END
         WRITE(6,'((A))') END
         READ(1,*) NOBINS
         WRITE(6,*) 'BIN NUMBER:'
         READ(5,*) IBIN
         IF ((IBIN .LT. 1) .OR. (IBIN .GT. NOBINS)) THEN
              WRITE(6,*) 'BIN # ',IBIN,' NOT IN RANGE (1,',NOBINS,').'
                   STOP
         ENDIF
         WRITE(FMTSTRING,1) 2*(IBIN-1)*15
1        FORMAT('((A),',I5,'X,2E15.5)')
         DO 10 I=1,IBIN-1
            READ(1,'((A))') LABEL
10       CONTINUE

         READ(1,'((A))') LABEL
         WRITE(6,*) LABEL

         DO 20 I=IBIN+1,NOBINS
            READ(1,'((A))') LABEL
20       CONTINUE

         DO 30 I=1,1000000
            READ(1,FMTSTRING,END=100) T,FLUX,ERROR
            WRITE(6,25) T,FLUX,ERROR
25          FORMAT(1X,A19,1X,2E15.5)
30       CONTINUE
         STOP
100      WRITE(6,*) 'END OF FILE'
         STOP
         END

Return to the Voyager Cosmic Ray Subsytem page.