fluxes_mod.f

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

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

Variables on this page (4)

clsnu, flux, fluxtot, gasnu

Purpose

FLUXES_MOD holds the solar neutrino fluxes: per gram at the current shell, summed over the star, and the capture rates for the chlorine and gallium experiments, shared by 4 routines. It replaces COMMON/FLUXES/ (MHP via Claude, 10/14/26). All members are REAL*8.

What its variables hold, who sets them, who reads them.

FLUX(10): the neutrino fluxes of the ten reactions produced per gram at one shell, scaled to the Earth's distance (divided by $4\pi\,\mathrm{AU}^2$), set by ENGEB.
FLUXTOT(10): their sums over the shells, weighted by the shell masses: built by COEFFT with LSNU, and by the main program in its neutrino-table block; written out by WRTOUT (which then zeroes them) and by the main program.
CLSNU, GASNU: the capture rates (SNU) for Cl37 and Ga71, $\sum_i f_i\,\Phi_i$ over the first eight fluxes with the factors CLSNUF, GASNUF, set by WRTOUT ("MHP 8/96"); written by WRTOUT and the main program.

Design

A blanket USE FLUXES_MOD.

Definitions

moduleFLUXES_MOD

lines 19–29 · GitHub

Used by (4 units)

(file level), COEFFT, ENGEB, WRTOUT

Change log

The changes since rp_1

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

1C 2C 3C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 4C FLUXES_MOD 5C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 6C 10/14/26 MHP via Claude 7C code changed to convert COMMON/FLUXES/ into this module. 8C 9C Imported with a blanket USE, the convention for the conversion. 10C All 4 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. 19 MODULE FLUXES_MOD 20 21 IMPLICIT NONE 22 SAVE 23 24 REAL*8 :: FLUX(10) 25 REAL*8 :: FLUXTOT(10) 26 REAL*8 :: CLSNU 27 REAL*8 :: GASNU 28 29 END MODULE FLUXES_MOD

1"""Python version of fluxes_mod.f (YREC 7be4133): the solar neutrino 2fluxes and capture rates, formerly COMMON/FLUXES/. 3 4Translates: fluxes_mod.f#FLUXES_MOD (7be4133) 5 6Routines that USE FLUXES_MOD import this module and write 7``fluxes_mod.<name>``. 8""" 9 10import numpy as np 11 12# Fortran lines 24–27. 13flux = np.zeros(11) # fluxes per gram at one shell (engeb), index 0 unused 14fluxtot = np.zeros(11) # mass-weighted sums over the star (coefft, main) 15clsnu = 0.0 # Cl37 capture rate, SNU (wrtout) 16gasnu = 0.0 # Ga71 capture rate, SNU (wrtout)