PROGRAM CNVWN
      CHARACTER*24 XFILE,IQN
      INTEGER NFILE,IQNU(3),JQNU(3),IQNL(3),JQNL(3),LUIN,LUOUT,
     :        ML,ISO
      PARAMETER (NFILE=2)
      CHARACTER*4 EXT(NFILE)
      CHARACTER*64 CFIL(NFILE)
      CHARACTER*58 CBUF
      REAL*8 FREQ,F,ERR,C
      EXT(1)='cat'
      EXT(2)='wvn'
      LUIN =60
      LUOUT=61
      C=29979.2458D0 
      CALL FILGET(CFIL,EXT,NFILE) 
      CALL OPENLU(LUIN,CFIL(1),'R')
      CALL OPENLU(LUOUT,CFIL(2),'WP') 
   1  READ(LUIN,100,END=10) FREQ,ERR,CBUF
      F=FREQ/C
      ERR=-ERR/C
      WRITE(LUOUT,101) F,ERR,CBUF
      GO TO 1 
C 
  10  STOP
 100  FORMAT(F13.4,F8.4,A) 
 101  FORMAT(F13.6,F8.5,A)
      END