C FIXFID.F - FOR MULTIPLYING TH EFIDS BY 4 TO MAKE INTEGER
      CHARACTER*12 FIRST
      CHARACTER*228 LAST
      REAL*8 FID
      INTEGER*4 IFID
C
      OPEN(UNIT=3,FILE='cressy.ldt',ACTION='READ')
      OPEN(UNIT=4,FILE='conv.ldt')
C
   10 READ(3,100,END=20) FIRST,FID,LAST
  100 FORMAT(A12,F9.2,A228)
      IFID=FID*4.0D00
      WRITE(4,200) FIRST,IFID,LAST
  200 FORMAT(A12,I9,A228)
      GOTO 10
C
   20 CONTINUE
      END