*********************************************************************
*                                                                   *
*     Reads in data file                                            *
*                                                                   *
*********************************************************************

	SUBROUTINE READIN

	  INCLUDE "rpavar.inc"

	  CHARACTER CJUNK
	  REAL JUNK

	  INTI=0

          OPEN(1,FILE='rwsavg.dat')
	  READ(1,*) CJUNK
	  READ(1,*) CJUNK
c	  READ(1,*) CJUNK
  100     INTI=INTI+1
             READ(1,*,END=105) VOLT(INTI),JUNK,JUNK,DATA(INTI)
             GO TO 100
  105     CLOSE(1)

	  N=INTI-1

	  RETURN
	  END