IMPLICIT        NONE
        REAL*4          data (144, 72)
        INTEGER         i,j,k

c       ************************************************
        open(8,file='pentad_v1.0.out.1992',
     +  form='unformatted',access='sequential')

c       ************************************************
        DO 110 k=1,73
        read(8) ((data(i,j), i=1,144),j=1,72)
  110   CONTINUE
c       ************************************************

        STOP
        END