PROGRAM MOLBINH2XX
      REAL*8 WL,E,EP,LABEL,LABELP,WAVENO
      REAL*4 GFLOG,XJ,XJP,CODE
      OPEN(UNIT=1,STATUS='OLD',READONLY)
      OPEN(UNIT=2,STATUS='NEW',FORM='UNFORMATTED',
     1RECORDTYPE='FIXED',RECL=16)
      LOGGR=0
      DO 8 ILINE=1,99999999
      READ(1,2,END=9)WL,GFLOG,XJ,E,XJP,EP,ICODE,LABEL,LABELP,ISO,WAVENO
    2 FORMAT(F11.4,F7.3,F5.1,F10.3,F5.1,F11.3,I4,A8,A8,I2,F10.3)
      CODE=ICODE
      WRITE(2)WL,E,EP,LABEL,LABELP,GFLOG,XJ,XJP,CODE,ISO,LOGGR
      IF(MOD(ILINE,1000).NE.0)GO TO 8
      PRINT 4,ILINE,WL,GFLOG,XJ,E,XJP,EP,CODE,LABEL,LABELP,ISO,WAVENO
    4 FORMAT(I10,1X,F11.4,F7.3,F5.1,F12.3,F5.1,F12.3,F9.2,A8,2X,A8,I2,
     1 F10.3)
    8 CONTINUE
    9 N=ILINE-1
      PRINT 4,ILINE,WL,GFLOG,XJ,E,XJP,EP,CODE,LABEL,LABELP,ISO,WAVENO
      CALL EXIT
      END