       SUBROUTINE RTABRD(IUNIT,A,M,N,MAXKOL,ILENG,IBREED,CODE)
C
C------Inlezen tabel A met reals
C
       REAL A(M,N)
       INTEGER ICOD
       CHARACTER CODE(N)*4
       CHARACTER CFORM*15
C
       READ(IUNIT,900)
       NTAB=INT(REAL(IBREED)/REAL(MAXKOL)-0.000001)+1 
       DO 2 ITAB=1,NTAB
          IBEG=MAXKOL*(ITAB-1)+1
          IEND=MIN(MAXKOL*ITAB,IBREED)
          IF (IEND.GT.N.OR.IBEG.GT.IEND) STOP 'Foute aanroep RTABRD'
          CFORM='(10X,00A10)'
          NWEG=IEND-IBEG+1
          WRITE(CFORM(6:7),910)NWEG
          READ(IUNIT,FMT=CFORM)(CODE(I),I=IBEG,IEND)
          READ(IUNIT,900)
          CFORM='(I4,6X,00F10.2)'
          WRITE(CFORM(8:9),910)NWEG
          DO 1 I=1,ILENG
             READ(IUNIT,FMT=CFORM)ICOD,(A(I,J),J=IBEG,IEND)
             IF (I.NE.ICOD) STOP 'Fout in codering RTABRD'
1         CONTINUE
          READ(IUNIT,900)
          READ(IUNIT,900)
2      CONTINUE
C
900    FORMAT(1X)
910    FORMAT(I2)
       RETURN
       END