PROGRAM VAX_TO_SUN
C
C    FUNCTION:  Writes every 100th  formatted record of ICE-3 108 sec
C               data and every 1000th formatted record of ICE-3 1.5sec 
C               modulated and demodulated data.
C               Input file is a VAX binary file. 
C         
C               This program can be easily adapted to write unformatted binary
C               data that contains all the bytes in the stream input file.
C
C    VARIABLES:
C       NAME            TYPE    DESCRIPTION
C      LOCAL VARIABLES
C       Ans             C*1     The user's response to what type of data
C                               should be examined.
C                               Y = The data should be examined.
C                               N = The data should not be examined.
C       Wrt_108         L*1     Write 108 sec data flag
C       Wrt_15          L*1     Write 1.5 sec data flag
C       Wrt_spin        L*1     Write spin data flag
C
C
C  A. Tekle.    June, 1994       Baseline version   
C
C-- X -- 1 -- X -- 2 -- X -- 3 -- X -- 4 -- X -- 5 -- X -- 6 -- X -- 7 |
C
        IMPLICIT  NONE

        CHARACTER Ans*1,  datestring*6
        LOGICAL*1  WRT_108, WRT_15, WRT_SPIN

C
C-- X -- 1 -- X -- 2 -- X -- 3 -- X -- 4 -- X -- 5 -- X -- 6 -- X -- 7 |
C

        WRITE (6,1000)

        Ans = ' '
        DO WHILE ((Ans .NE. 'n') .AND. (Ans .NE. 'y')
     .            .AND. (Ans .NE. 'Y') .AND. (Ans .NE. 'N'))
            WRITE (6,'(A)') '$WRITE 108 SEC DATA? '
            READ (5,'(A)') Ans
        ENDDO
        IF (Ans .EQ. 'Y' .OR. Ans .EQ. 'y') THEN
            WRT_108 = .TRUE.
        ENDIF

        Ans = ' '
        DO WHILE ((Ans .NE. 'N') .AND. (Ans .NE. 'Y')
     .           .AND. (Ans .NE. 'n') .AND. (Ans .NE. 'y'))
            WRITE (6,'(A)') '$WRITE 1.5 SEC DATA? '
            READ (5,'(A)') Ans
        ENDDO
     
        IF (Ans .EQ. 'Y' .OR. Ans .EQ. 'y') THEN
            WRT_15 = .TRUE.
        ENDIF

        Ans = ' '
        DO WHILE ((Ans .NE. 'N') .AND. (Ans .NE. 'Y')
     .            .AND. (Ans .NE. 'y') .AND. (Ans .NE. 'n'))
            WRITE (6,'(A)') '$WRITE SPIN DATA? '
            READ (5,'(A)') Ans
        ENDDO
        IF (Ans .EQ. 'Y' .OR. Ans .EQ. 'y') THEN
            WRT_SPIN = .TRUE.
        ENDIF
        WRITE(6,1001)

        IF(WRT_108 .OR. WRT_15 .OR. WRT_SPIN) THEN
           WRITE(6,*) ' ENTER DATE (YYMMDD)'
           READ(5,'(a6)')datestring
        ELSE
          STOP 'NO files written.'
        ENDIF

        IF(WRT_108) THEN
          CALL CONVERT_108(datestring)
        ENDIF

        IF(WRT_15) THEN
          CALL CONVERT_15S(datestring)
        ENDIF

        IF(WRT_SPIN) THEN
          CALL CONVERT_SPIN (datestring)
        ENDIF

1000    FORMAT(/'  PROGRAM VAX_TO_SUN '//       
     .         ' WRITES FORMATTED ICE-3 RADIO '/
     .         ' 108 sec , 1.5 sec AND SPIN DATA.'//
     .         ' THE OUTPUT ASCII FILES ARE NAMED: '/
     .         ' ICEyymmdd.DEMOD ===> spin data'/
     .         ' ICEyymmdd.15S   ===> 1.5 sec data'/
     .         ' ICEyymmdd.A108  ===> 108 sec data'/)
1001    FORMAT (/' ')

        END