19 lines
475 B
Fortran
19 lines
475 B
Fortran
FUNCTION GNTK(I,FR)
|
|
C ===================
|
|
C
|
|
C Hydrogenic bound-free Gaunt factor for the principal quantum
|
|
C number I and frequency FR (from Klaus Werner)
|
|
C
|
|
INCLUDE 'PARAMS.FOR'
|
|
GNTK=1.
|
|
IF(I.GT.3) GO TO 16
|
|
Y=1./FR
|
|
GO TO (1,2,3),I
|
|
1 GNTK=0.9916+Y*(2.71852D13-Y*2.26846D30)
|
|
GO TO 16
|
|
2 GNTK=1.1050-Y*(2.37490D14-Y*4.07677D28)
|
|
GO TO 16
|
|
3 GNTK=1.1010-Y*(0.98632D14-Y*1.03540D28)
|
|
16 RETURN
|
|
END
|