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,22 @@
+      subroutine vopf(t,pf)
+c  
+c     partition function for VO from EXOMOILA data
+c
+      INCLUDE 'PARAMS.FOR'
+      dimension ttab(10000),pftab(10000)
+c  
+      data init /1/
+c
+      if(init.eq.1) then
+         open(67,file='./data/vo_exomol.pf',status='old')
+         do i=1,8000
+            read(67,*) ttab(i),pftab(i)
+         end do
+         close(67)
+         init=0
+      end if
+c  
+      itab=ifix(real(t))
+      pf=pftab(itab)+(t-ttab(itab))*(pftab(itab+1)-pftab(itab))
+      return
+      end