alatm02_mod.f

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

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

Variables on this page (9)

glmax, glmin, glxmax, glxmin, iglmax, iglmin, nta, tefflmax, tefflmin

Purpose

ALATM02_MOD holds the valid range of the Allard table, shared by 3 routines. It replaces COMMON/ALATM02/ (MHP via Claude, 10/14/26); the size NTA = 250 is private.

What its variables hold, who sets them, who reads them. Set by ALTABINIT:

GLmin(NTA), GLmax(NTA), IGLmin(NTA), IGLmax(NTA): for each $\log T_\mathrm{eff}$ row, the allowed range in $\log g$ and the first and last valid column;
TEFFLmin, TEFFLmax: the range in $\log T_\mathrm{eff}$ (recomputed, with the same formulas, by ALPRINT);
GLXmin, GLXmax: the extremes of $\log g$ over all rows.

Read by ALSURFP, which checks each request against them, and ALPRINT.

Definitions

moduleALATM02_MOD

lines 23–39 · GitHub

Used by (3 units)

ALPRINT, ALSURFP, ALTABINIT

Change log

The changes since rp_1

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

1C 2C 3C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 4C ALATM02_MOD 5C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 6C 10/14/26 MHP via Claude 7C code changed to convert COMMON/ALATM02/ into this module. 8C 9C Imported with a blanket USE, the convention for the conversion. 10C All 3 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 ALATM02_MOD 24 25 IMPLICIT NONE 26 SAVE 27 28 INTEGER*4, PARAMETER, PRIVATE :: NTA = 250 29 30 REAL*8 :: GLmin(NTA) 31 REAL*8 :: GLmax(NTA) 32 INTEGER*4 :: IGLmin(NTA) 33 INTEGER*4 :: IGLmax(NTA) 34 REAL*8 :: TEFFLmin 35 REAL*8 :: TEFFLmax 36 REAL*8 :: GLXmin 37 REAL*8 :: GLXmax 38 39 END MODULE ALATM02_MOD

1"""Python version of alatm02_mod.f (YREC 7be4133): the valid range of the Allard table, formerly COMMON/ALATM02/. 2 3Translates: alatm02_mod.f#ALATM02_MOD (7be4133) 4 5Module-level names, as in the Fortran module, in lower case. Routines that 6USE ALATM02_MOD import this module and write ``alatm02_mod.<name>``. 7""" 8 9import numpy as np 10 11# Fortran line 28. 12_NTA = 250 # PRIVATE in the Fortran 13 14# Set by altabinit; tefflmin, tefflmax also by alprint (Fortran lines 30–37). 15glmin = np.zeros(_NTA + 1) # per log Teff row: allowed log g range 16glmax = np.zeros(_NTA + 1) 17iglmin = np.zeros(_NTA + 1, dtype=int) # first and last valid column 18iglmax = np.zeros(_NTA + 1, dtype=int) 19tefflmin = 0.0 # log Teff range 20tefflmax = 0.0 21glxmin = 0.0 # extremes of log g over all rows 22glxmax = 0.0