PROGRAM getcell

c	Reads DSN2 file for CELL records

	REAL   		cell(6)
	CHARACTER*60	filename
	DATA		word /'CELL'/

	WRITE (6, 1000) 'Enter filename for DSN2 file:'
1000	FORMAT (a)

	READ (5, 1000) filename
	OPEN (unit=1, status='OLD', form='UNFORMATTED', recordsize=16,
	1	access='DIRECT', file=filename)

	DO irec = 1,1000000
	  READ (1, rec=irec, err=9) type
	  IF (type .EQ. word) THEN
	    READ (1, rec=irec) type, cell
	    WRITE (6, 1001) cell
1001	    FORMAT (6f10.4)
	  endIF
	endDO

9	CLOSE (unit=1)
	end