	SUBROUTINE NODA(A,N)
	DIMENSION A(500)
	LOGICAL*1 Y(3)
	REWIND 1
C	THE FOLLOWING FIVE STATEMENTS WILL COUNT THE NUMBER OF DATA
C	POINTS AS THE APPROPRIATE DATA FILE IS READ INTO ARRAY A.
	N=0
3	N=N+1
	READ(1,5,END=10)A(N)
5	FORMAT(1X,F10.4)
	GO TO 3
10	N=N-1
	WRITE(5,15)N
15	FORMAT(1X,' THE NUMBER OF DATA POINTS=',I5)
20	WRITE(5,25)
25	FORMAT(1X,' DO YOU WANT A HARD COPY OF THE NUMBERS OF DATA '/
     C' POINTS, YES/NO ?  '$)
	READ(5,30)(Y(J),J=1,3)
30	FORMAT(3A1)
	IF(Y(1).EQ.'Y')GO TO 40
	IF(Y(1).EQ.'N')GO TO 50
	WRITE(5,35)
35	FORMAT( ' YOU HAVE MADE AN ERROR. TRY AGAIN.')
	GO TO 20
40	WRITE(6,45)N
45	FORMAT(1X,' THE NUMBER OF DATA POINTS IS=',I5)
50 	RETURN 
	END
