C ***TREES92.FOR***
C FORTRAN PROGRAM TO READ THE FILE TREES92.DAT FROM NDP-061A
C
      INTEGER C, N, REP, HT
      REAL DIA, LFNCC, BRNCC, STNCC, TRNCC, MRNCC, FRNCC,
     + LFCACC, STCACC, BRCACC, FRCACC, MRCACC, TRCACC,
     + LFMGCC, STMGCC, BRMGCC, FRMGCC, MRMGCC, TRMGCC,
     + LFSCC, STSCC, BRSCC, FRSCC, MRSCC, TRSCC, 
     + LFCUCC, STCUCC, BRCUCC, FRCUCC, MRCUCC, TRCUCC,
     + LFMNCC, STMNCC, BRMNCC, FRMNCC, MRMNCC, TRMNCC, 
     + LFZNCC, STZNCC, BRZNCC, FRZNCC, MRZNCC, TRZNCC,
     + LFKCC, STKCC, BRKCC, FRKCC, MRKCC, TRKCC, 
     + LFPCC, STPCC, BRPCC, FRPCC, MRPCC, TRPCC,
     + LFBCC, STBCC, BRBCC, FRBCC, MRBCC, TRBCC, 
     + LFFECC, STFECC, BRFECC, FRFECC, MRFECC, TRFECC
      CHARACTER*7 CHBR 
C
      OPEN (UNIT=1, FILE='trees92.dat')
    1 CONTINUE                        
      READ(1,100,END=99) C, N, CHBR, REP, HT,
     + DIA, LFNCC, BRNCC, STNCC, TRNCC, MRNCC, FRNCC,
     + LFCACC, STCACC, BRCACC, FRCACC, MRCACC, TRCACC,
     + LFMGCC, STMGCC, BRMGCC, FRMGCC, MRMGCC, TRMGCC,
     + LFSCC, STSCC, BRSCC, FRSCC, MRSCC, TRSCC, 
     + LFCUCC, STCUCC, BRCUCC, FRCUCC, MRCUCC, TRCUCC,
     + LFMNCC, STMNCC, BRMNCC, FRMNCC, MRMNCC, TRMNCC, 
     + LFZNCC, STZNCC, BRZNCC, FRZNCC, MRZNCC, TRZNCC,
     + LFKCC, STKCC, BRKCC, FRKCC, MRKCC, TRKCC, 
     + LFPCC, STPCC, BRPCC, FRPCC, MRPCC, TRPCC,
     + LFBCC, STBCC, BRBCC, FRBCC, MRBCC, TRBCC, 
     + LFFECC, STFECC, BRFECC, FRFECC, MRFECC, TRFECC     
C 
  100 FORMAT(2I7,A7,2I7,67F7.2)
C
      GO TO 1 
   99 CONTINUE         
      STOP       
      END