       SUBROUTINE RTABEL(IUNIT,A,M,N,MAXKOL,ILENG,IBREED,CODE)
C
C------Wegschrijven tabel A met reals
C
       REAL A(M,N)
       CHARACTER CODE(N)*4
       CHARACTER CFORM*15
C
       WRITE(IUNIT,900)
       NTAB=INT(REAL(IBREED)/REAL(MAXKOL)-0.000001)+1 
       DO ITAB=1,NTAB
          IBEG=MAXKOL*(ITAB-1)+1
          IEND=MIN(MAXKOL*ITAB,IBREED)
          CFORM='(10X,00A10)'
          NWEG=IEND-IBEG+1
          WRITE(CFORM(6:7),910)NWEG
          WRITE(IUNIT,FMT=CFORM)(CODE(I),I=IBEG,IEND)
          WRITE(IUNIT,900)
          CFORM='(I4,6X,00F10.2)'
          WRITE(CFORM(8:9),910)NWEG
          DO I=1,ILENG
             WRITE(IUNIT,FMT=CFORM)I,(A(I,J),J=IBEG,IEND)
          END DO
          WRITE(IUNIT,900)
          WRITE(IUNIT,900)
       END DO
C
900    FORMAT(1X)
910    FORMAT(I2)
       RETURN
       END