PROGRAM CNVAF
      IMPLICIT INTEGER(I-N) ,REAL*8 (A-H)
      CHARACTER*35 XFILE
      CALL GETARG(1,XFILE)
      OPEN(60,FILE=XFILE,STATUS='OLD',ERR=900)
      CALL GETARG(2,XFILE)
      OPEN(51,FILE=XFILE,ERR=900)
      H=0.100
      CON=-18.4768
      CONX=0.008744
      CONE=-2.81466E-5
      STOT=0.
      STOT2=0.
   1  READ(60,100,END=10) FREQ,STR,ELOW,XFILE
      E300=STR+CON
      E=E300+ELOW*CONE
      IF(E.LT.-99.) GO TO 1
      F=FREQ/29979.2458D0
      DS300=10.D0**E300
      DS=10.D0**E
      STOT=STOT+DS300
      STOT2=STOT2+DS
      WRITE(51,101) F,DS,H,ELOW,XFILE
      GO TO 1
C
  10        CLOSE(51)
            SSTOT=STOT*2.446273e+19
            SSTOT2=STOT2*2.47933e+19
            WRITE(*,*) ' TOTAL STRENGTH AT 300K ',STOT,SSTOT
            WRITE(*,*) ' TOTAL STRENGTH AT 296K ',STOT2,SSTOT2
 900        STOP
 100  FORMAT(F13.4,8X,F8.4,2X,F10.4,3X,A)
 101  FORMAT(F9.4,1P,E9.2,0P,F5.2,F10.4,11X,A)
      END