C ***TREES91.FOR***
C FORTRAN PROGRAM TO READ THE FILE TREES91.DAT FROM NDP-061A
C
      INTEGER C, N, REP, LFBCC, STBCC, RTBCC
      REAL LFBM, STBM, RTBM, LFNCC, STNCC, RTNCC, LFCACC,
     + STCACC, RTCACC, LFKCC, STKCC, RTKCC, LFMGCC, STMGCC,
     + RTMGCC, LFPCC, STPCC, RTPCC, LFSCC, STSCC, RTSCC
      CHARACTER*6 CHBR 
C
      OPEN (UNIT=1, FILE='trees91.dat')
    1 CONTINUE                        
      READ(1,100,END=99) C, N, CHBR, REP, LFBM, STBM, RTBM, LFNCC,
     + STNCC, RTNCC, LFBCC, STBCC, RTBCC, LFCACC, STCACC, RTCACC,
     + LFKCC, STKCC, RTKCC, LFMGCC, STMGCC, RTMGCC, LFPCC, STPCC,
     + RTPCC, LFSCC, STSCC, RTSCC
C 
  100 FORMAT(2I6,A6,I6,6F6.2,3I6,15F6.2)
C
      GO TO 1 
   99 CONTINUE         
      STOP       
      END