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,9 @@
+      FUNCTION SFFHMI_old(POPI,FR,T)
+C     ==========================
+C
+C     Free-free cross section for H- (After Kurucz,1970,SAO 309, P.80)
+C
+      INCLUDE 'PARAMS.FOR'
+      SFFHMI_old=(1.3727E-25+(4.3748E-10-2.5993E-7/T)/FR)*POPI/FR
+      RETURN
+      END