Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/684/A170 into FORTRAN code for reading data files line by line.
Note that special values are assigned to unknown or unspecified
numbers (also called NULL numbers);
when necessary, the coordinate components making up the right ascension
and declination are converted into floating-point numbers
representing these angles in degrees.
program load_ReadMe
C=============================================================================
C F77-compliant program generated by readme2f_1.81 (2015-09-23), on 2026-Feb-12
C=============================================================================
* This code was generated from the ReadMe file documenting a catalogue
* according to the "Standard for Documentation of Astronomical Catalogues"
* currently in use by the Astronomical Data Centers (CDS, ADC, A&A)
* (see full documentation at URL http://vizier.u-strasbg.fr/doc/catstd.htx)
* Please report problems or questions to
C=============================================================================
implicit none
* Unspecified or NULL values, generally corresponding to blank columns,
* are assigned one of the following special values:
* rNULL__ for unknown or NULL floating-point values
* iNULL__ for unknown or NULL integer values
real*4 rNULL__
integer*4 iNULL__
parameter (rNULL__=--2147483648.) ! NULL real number
parameter (iNULL__=(-2147483647-1)) ! NULL int number
integer idig ! testing NULL number
C=============================================================================
Cat. J/A+A/684/A170 BL Her stars Gaia PL relation (Das+, 2024)
*================================================================================
*Theoretical framework for BL Her stars.
*II. New period-luminosity relations in Gaia passbands.
* Das S., Molnar L., Kanbur S.M., Joyce M., Bhardwaj A., Singh H.P.,
* Marconi M., Ripepi V., Smolec R.
* <Astron. Astrophys. 684, A170 (2024)>
* =2024A&A...684A.170D (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Light curve parameters of BL Her models
computed using MESA-RSP
integer*4 nr__
parameter (nr__=30816) ! Number of records
character*86 ar__ ! Full-size record
real*8 Z ! Mass fraction of heavy elements
real*8 X ! Mass fraction of hydrogen
character*2 lambda ! Gaia passband: G, Gbp, Grp
real*4 M ! (Msun) Stellar mass in units of solar mass
character*2 Mode ! Mode of pulsation (FU=Fundamental)
integer*4 Teff ! (K) Effective temperature
integer*4 logL ! ([Lsun]) Stellar luminosity in units of solar luminosity
real*4 logP ! ([d]) Logarithmic pulsation period
real*4 Amp ! (mag) Amplitude of the theoretical light curve
real*4 m0 ! (mag) Mean magnitude
real*4 R21 ! Fourier amplitude parameter R21
real*4 R31 ! Fourier amplitude parameter R31
real*4 phi21 ! Fourier phase parameter phi21
real*4 phi31 ! Fourier phase parameter phi31
real*4 logR ! ([Rsun]) Stellar radius in units of solar radius
character*1 Set ! Convection set used
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! Light curve parameters of observed BL Her stars
from the Gaia DR3 catalogue
integer*4 nr__1
parameter (nr__1=1483) ! Number of records
character*110 ar__1 ! Full-size record
character*7 Sub_region ! Gaia DR3 sub-region (All Sky, LMC, SMC)
character*2 lambda_1 ! Gaia passband: G, Gbp, Grp
integer*8 GaiaDR3 ! Gaia DR3 Source ID
real*4 logP_1 ! ([d]) Logarithmic pulsation period
integer*4 Order ! Order of Fourier fit (N= 4 to 8)
real*4 Amp_1 ! (mag) Amplitude of the observed light curve
real*4 m0_1 ! (mag) Mean magnitude
real*4 e_m0 ! (mag) Error in mean magnitude
real*4 R21_1 ! Fourier amplitude parameter R21
real*4 e_R21 ! Error in the Fourier amplitude parameter R21
real*4 R31_1 ! Fourier amplitude parameter R31
real*4 e_R31 ! Error in the Fourier amplitude parameter R31
real*4 phi21_1 ! Fourier phase parameter phi21
real*4 e_phi21 ! Error in the Fourier phase parameter phi21
real*4 phi31_1 ! Fourier phase parameter phi31
real*4 e_phi31 ! Error in the Fourier phase parameter phi31
C=============================================================================
C Loading file 'table2.dat' ! Light curve parameters of BL Her models
* computed using MESA-RSP
C Format for file interpretation
1 format(
+ F7.5,1X,F7.5,1X,A2,1X,F4.2,1X,A2,1X,I4,1X,I3,1X,F5.3,1X,F5.3,
+ 1X,F6.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,A1)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,30816
read(1,'(A86)')ar__
read(ar__,1)
+ Z,X,lambda,M,Mode,Teff,logL,logP,Amp,m0,R21,R31,phi21,phi31,
+ logR,Set
c ..............Just test output...........
write(6,1)
+ Z,X,lambda,M,Mode,Teff,logL,logP,Amp,m0,R21,R31,phi21,phi31,
+ logR,Set
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4.dat' ! Light curve parameters of observed BL Her stars
* from the Gaia DR3 catalogue
C Format for file interpretation
2 format(
+ A7,1X,A2,1X,I19,1X,F6.3,1X,I1,1X,F6.3,1X,F6.3,1X,F6.3,1X,F5.3,
+ 1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'table4.dat')
write(6,*) '....Loading file: table4.dat'
do i__=1,1483
read(1,'(A110)')ar__1
read(ar__1,2)
+ Sub_region,lambda_1,GaiaDR3,logP_1,Order,Amp_1,m0_1,e_m0,
+ R21_1,e_R21,R31_1,e_R31,phi21_1,e_phi21,phi31_1,e_phi31
c ..............Just test output...........
write(6,2)
+ Sub_region,lambda_1,GaiaDR3,logP_1,Order,Amp_1,m0_1,e_m0,
+ R21_1,e_R21,R31_1,e_R31,phi21_1,e_phi21,phi31_1,e_phi31
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end