PROGRAM CNVHITRAN
      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
      CONQ=-1.43878/300.
      STOT=0.
      STOT2=0.
      IMOL=11
      HS=0.3
      WTD=-0.7
      SHFT=0.
   1  READ(60,100,END=10) FREQ,STR,ELOW,IG,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
      D=IG*(EXP(ELOW*CONQ)-EXP((ELOW+F)*CONQ))
      TP=DS300*F*F*7.5344E+11/D
      STOT=STOT+DS300
      STOT2=STOT2+DS
      WRITE(51,101) IMOL,F,DS,TP,H,HS,ELOW,WTD,SHFT,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,I3,A)
 101  FORMAT(I3,F12.6,2E10.3,2F5.4,F10.4,F4.2,F8.5,A)
      END