c
c
c  THIS PROGRAM TESTS FOR SUPPORT OF 1024 BYTE RECORD UNFORMATTED
C  I/O.
C
      character*80 filnam,intfil
      INTEGER BUFFER(256)
C
C GENERATE NAMES FOR AND OPEN 10 DIRECT I/O FILES.
C
      DO 10 I = 10,19
      write(intfil,2000) i
2000  format('DIRT',i2)
      read(intfil,fmt='(A)') filnam
      OPEN(UNIT=I,FORM='UNFORMATTED',ACCESS='DIRECT',STATUS='NEW',
     .     FILE=FILNAM,
     .     RECL=1024)
10    CONTINUE
C
C ZERO THE BUFFER.
C
      DO 1 I = 1,256
      BUFFER(I) = 0
1     CONTINUE
C
C WRITE 10 RECORDS INTO EACH OF THE 10 FILES.
C
      DO 2 I = 1, 10
      BUFFER(I) = I
      DO 22 J = 10,19
        WRITE(J,REC=I) BUFFER
22      CONTINUE
2     CONTINUE
C
C READ THE 10 RECORDS BACK IN , IN REVERSE ORDER
C
      DO 3 I = 1, 10
      K = 10+1 -I
      DO 33 J = 10,19
        READ(J,REC=K) BUFFER
        IF (BUFFER(K) .NE. K) THEN
          PRINT *, ' ERROR ON READ. ',J,K,BUFFER(K)
        ENDIF
33      CONTINUE
3     CONTINUE
C
C CLOSE UP THE UNITS.
C
      DO 4 I = 10,19
      CLOSE(I)
4     CONTINUE
      STOP ' THE END.'
      END