       SUBROUTINE RRWNSY
*
*  PROGRAMMER:  D. P. MATHEIS
*		ALFRED UNIVERSITY, JAN-1990
*
*	THIS ROUTINE READS IN A NUSY RAW DATA FILE
*	TO THE COMMON BLOCKS
*
     	INCLUDE 'FILECONV.CBS'
     	INTEGER*2 ITIT(40), ZERO(50)
*     	EQUIVALENCE (ITIT,SLID)
        CHARACTER RAW*4
*
        CLOSE(UNIT=IINP)
        OPEN( UNIT=IINP, FILE=FILINP, STATUS='OLD', READONLY,
     	1 FORM='UNFORMATTED', CARRIAGECONTROL='LIST', ERR=888 )
        READ(IINP,REC=1,ERR=888)RAW
        READ(IINP,REC=2,ERR=888)NPTS
        READ(IINP,REC=3,ERR=888)BANG(10)
        READ(IINP,REC=4,ERR=888)BANG(3)
        READ(IINP,REC=5,ERR=888)ZERO(5)
        READ(IINP,REC=6,ERR=888)ZERO(6)
        READ(IINP,REC=7,ERR=888)BANG(1)
        IREC= 7
        DO I=1, 11
          IREC = IREC + 1
          READ(IINP,REC=IREC,ERR=888)ZERO(I)
        ENDDO
        READ(IINP,REC=19,ERR=888)WAVE(1,6)
        READ(IINP,REC=20,ERR=888)WAVE(2,6)
        IREC=20
        DO I=1, 19
          IREC = IREC + 1
          READ(IINP,REC=IREC,ERR=888)ZERO(I)
        ENDDO
        IREC = 39
        DO I=1, NPTS
          IREC = IREC + 1
          READ(IINP,REC=IREC,ERR=888)YOBS(I)
        ENDDO
     	GOTO 999

777	IERR = 3		!BAIL OUT
     	GOTO 999
888	IERR = 1
999	RETURN
     	END

