alot06all_mod.f

34 lines · 1 definitions · on GitHub (7be4133)

Python version: alot06all_mod.py, 16 lines, on the right (switch to Python above the code).

Variables on this page (4)

captalex06, numd, numt, numxz

Purpose

ALOT06ALL_MOD holds all the tables of the low-temperature opacities of Ferguson et al. (2005), called ALEX06 in the code (READALEX06), CAPTALEX06(NUMXZ,NUMT,NUMD), for 143 compositions on the grid of 85 temperatures and 19 values of $R$. It replaces COMMON/ALOT06ALL/ (MHP via Claude, 10/14/26); the sizes are private.

Who sets it, who reads it. Read in by READALEX06; ALEX06TAB interpolates from it the table for one composition (CAPALEX06 in ALOT06_MOD).

Definitions

moduleALOT06ALL_MOD

lines 23–34 · GitHub

Used by (2 units)

ALEX06TAB, READALEX06

Change log

The changes since rp_1

Changed since rp_1. New file: COMMON/ALOT06ALL/ as a module.

1C 2C 3C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 4C ALOT06ALL_MOD 5C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 6C 10/14/26 MHP via Claude 7C code changed to convert COMMON/ALOT06ALL/ into this module. 8C 9C Imported with a blanket USE, the convention for the conversion. 10C All 2 files declared this block identically, so the USE 11C imports exactly the names the declaration already made global in 12C each scoping unit and cannot change meaning. 13C 14C The types restate what the implicit rules supplied: L is 15C LOGICAL*4, I/J/K/M/N are INTEGER*4, everything else REAL*8. 16C SAVE is explicit rather than relying on module variables being 17C implicitly saved, which holds only from Fortran 2008 while ifort 18C Classic predates it. That matches COMMON's semantics. 19C 20C The dimension parameters are PRIVATE: the importing files 21C declare their own PARAMETER statements for these, and an 22C exported copy would collide with them. 23 MODULE ALOT06ALL_MOD 24 25 IMPLICIT NONE 26 SAVE 27 28 INTEGER*4, PARAMETER, PRIVATE :: NUMD = 19 29 INTEGER*4, PARAMETER, PRIVATE :: NUMT = 85 30 INTEGER*4, PARAMETER, PRIVATE :: NUMXZ = 143 31 32 REAL*8 :: CAPTALEX06(NUMXZ,NUMT,NUMD) 33 34 END MODULE ALOT06ALL_MOD

1"""Python version of alot06all_mod.f (YREC 7be4133): all the low-temperature opacity tables, formerly COMMON/ALOT06ALL/. 2 3Translates: alot06all_mod.f#ALOT06ALL_MOD (7be4133) 4 5Module-level names, as in the Fortran module, in lower case. Routines that 6USE ALOT06ALL_MOD import this module and write ``alot06all_mod.<name>``. 7""" 8 9import numpy as np 10 11_NUMD = 19 # PRIVATE in the Fortran (lines 28–30) 12_NUMT = 85 13_NUMXZ = 143 14 15# The 143 compositions' tables (readalex06) (Fortran line 32). 16captalex06 = np.zeros((_NUMXZ + 1, _NUMT + 1, _NUMD + 1))