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