C ***TREES93.FOR***
C FORTRAN PROGRAM TO READ THE FILE TREES93.DAT FROM NDP-061A
C
      INTEGER C, N, REP, HT
      REAL DIA, N1CCC, N1NCC, N2CCC, N2NCC, CDCCC,
     + CDNCC, NOCCC, NONCC, NSCCC, NSNCC, BRCCC,
     + BRNCC, FRCCC, FRNCC, TRCCC, TRNCC, LRCCC,
     + LRNCC, TTCCC, TTNCC, TMCCC, TMNCC, TBCCC, TBNCC, NOPCC,
     + NOKCC, NOSCC, NOCACC, NOMGCC, NOMNCC, NOFECC, NOCUCC,
     + NOBCC, NOZNCC, TRPCC, TRKCC, TRSCC, TRCACC, TRMGCC, TRMNCC,
     + TRFECC, TRCUCC, TRBCC, TRZNCC, LRPCC, LRKCC, LRSCC, LRCACC,
     + LRMGCC, LRMNCC, LRFECC, LRCUCC, LRBCC, LRZNCC, FRPCC,
     + FRKCC, FRSCC, FRCACC, FRMGCC, FRMNCC, FRFECC, FRCUCC,
     + FRBCC, FRZNCC, BRPCC, BRKCC, BRSCC, BRCACC, BRMGCC,
     + BRMNCC, BRFECC, BRCUCC, BRBCC, BRZNCC, NSPCC, NSKCC,
     + NSSCC, NSCACC, NSMGCC, NSMNCC, NSFECC, NSCUCC, NSBCC,
     + NSZNCC, TTPCC, TTKCC, TTSCC, TTCACC, TTMGCC, TTMNCC,
     + TTFECC, TTCUCC, TTBCC, TTZNCC, TMPCC, TMKCC, TMSCC,
     + TMCACC, TMMGCC, TMMNCC, TMFECC, TMCUCC, TMBCC, TMZNCC,
     + TBPCC, TBKCC, TBSCC, TBCACC, TBMGCC, TBMNCC, TBFECC, TBCUCC,
     + TBBCC, TBZNCC, N1PCC, N1KCC, N1SCC, N1CACC, N1MGCC, N1MNCC,
     + N1FECC, N1CUCC, N1BCC, N1ZNCC, N2PCC, N2KCC, N2SCC, N2CACC,
     + N2MGCC, N2MNCC, N2FECC, N2CUCC,N2BCC, N2ZNCC, CDPCC, CDKCC,
     + CDSCC, CDCACC, CDMGCC, CDMNCC, CDFECC, CDCUCC, CDBCC, CDZNCC
      CHARACTER*7 CHBR 
C
      OPEN (UNIT=1, FILE='trees93.dat')
    1 CONTINUE                        
      READ(1,100,END=99) C, N, CHBR, REP, HT, DIA, N1CCC,
     + N1NCC, N2CCC, N2NCC, CDCCC, CDNCC, NOCCC, NONCC, NSCCC,
     + NSNCC, BRCCC, BRNCC, FRCCC, FRNCC, TRCCC, TRNCC, LRCCC,
     + LRNCC, TTCCC, TTNCC, TMCCC, TMNCC, TBCCC, TBNCC, NOPCC,
     + NOKCC, NOSCC, NOCACC, NOMGCC, NOMNCC, NOFECC, NOCUCC,
     + NOBCC, NOZNCC, TRPCC, TRKCC, TRSCC, TRCACC, TRMGCC, TRMNCC,
     + TRFECC, TRCUCC, TRBCC, TRZNCC, LRPCC, LRKCC, LRSCC, LRCACC,
     + LRMGCC, LRMNCC, LRFECC, LRCUCC, LRBCC, LRZNCC, FRPCC,
     + FRKCC, FRSCC, FRCACC, FRMGCC, FRMNCC, FRFECC, FRCUCC,
     + FRBCC, FRZNCC, BRPCC, BRKCC, BRSCC, BRCACC, BRMGCC,
     + BRMNCC, BRFECC, BRCUCC, BRBCC, BRZNCC, NSPCC, NSKCC,
     + NSSCC, NSCACC, NSMGCC, NSMNCC, NSFECC, NSCUCC, NSBCC,
     + NSZNCC, TTPCC, TTKCC, TTSCC, TTCACC, TTMGCC, TTMNCC,
     + TTFECC, TTCUCC, TTBCC, TTZNCC, TMPCC, TMKCC, TMSCC,
     + TMCACC, TMMGCC, TMMNCC, TMFECC, TMCUCC, TMBCC, TMZNCC,
     + TBPCC, TBKCC, TBSCC, TBCACC, TBMGCC, TBMNCC, TBFECC, TBCUCC,
     + TBBCC, TBZNCC, N1PCC, N1KCC, N1SCC, N1CACC, N1MGCC, N1MNCC,
     + N1FECC, N1CUCC, N1BCC, N1ZNCC, N2PCC, N2KCC, N2SCC, N2CACC,
     + N2MGCC, N2MNCC, N2FECC, N2CUCC,N2BCC, N2ZNCC, CDPCC, CDKCC,
     + CDSCC, CDCACC, CDMGCC, CDMNCC, CDFECC, CDCUCC, CDBCC, CDZNCC    
C 
  100 FORMAT(2I7,A7,2I7,F7.1,144F7.2)
C
      GO TO 1 
   99 CONTINUE         
      STOP       
      END