git push -u origin main

2026-03-19 14:05:33 +08:00
commit 1e30b7bc63
739 changed files with 572150 additions and 0 deletions
@@ -0,0 +1,18 @@
+      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