C ***REGR93.FOR***
C FORTRAN PROGRAM TO READ THE FILE REGR93.DAT FROM NDP-061A
C
      INTEGER C, N, REP
      REAL HT, DIA, LFBM, BRBM, STBM, RTBM
      CHARACTER*6 CHBR 
C
      OPEN (UNIT=1, FILE='regr93.dat')
    1 CONTINUE                        
      READ(1,100,END=99) C, N, CHBR, REP, HT, DIA, LFBM, BRBM,
     + STBM, RTBM       
  100 FORMAT(2I6,A6,I6,2F6.1,4F6.2)
C
      GO TO 1 
   99 CONTINUE         
      STOP       
      END