Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/690/A318 into FORTRAN code for loading all data files into arrays.
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-Apr-23
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/690/A318 MC OB stars CMFGEN grids of atmosphere models (Marcolino+, 2024)
*================================================================================
*CMFGEN grids of atmosphere models for massive stars.
*OB-type stars at the Magellanic Clouds.
* Marcolino W., Bouret J.-C., Martins F., Hillier D.J.
* <Astron. Astrophys. 690, A318 (2024)>
* =2024A&A...690A.318M (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table.dat' ! Absolute magnitudes and bolometric corrections
integer*4 nr__
parameter (nr__=606) ! Number of records
character*279 ar__ ! Full-size record
character*3 Galaxy (nr__) ! LMC (1/2 Zsun) or SMC (1/5 Zsun) model
real*8 Teff (nr__) ! (K) Effective temperature of the model
real*4 logg (nr__) ! ([cm/s2]) Surface gravity of the model
real*4 U (nr__) ! (mag) Absolute magnitude in the U band
real*4 B (nr__) ! (mag) Absolute magnitude in the B band
real*4 V (nr__) ! (mag) Absolute magnitude in the V band
real*4 J (nr__) ! (mag) Absolute magnitude in the J band
real*4 H (nr__) ! (mag) Absolute magnitude in the H band
real*4 K (nr__) ! (mag) Absolute magnitude in the K band
real*4 R (nr__) ! (mag) Absolute magnitude in the R band
real*4 I (nr__) ! (mag) Absolute magnitude in the I band
real*4 F070W (nr__) ! (mag) Absolute magnitude in the F070W band
real*4 F090W (nr__) ! (mag) Absolute magnitude in the F090W band
real*4 F115W (nr__) ! (mag) Absolute magnitude in the F115W band
real*4 F150W (nr__) ! (mag) Absolute magnitude in the F150W band
real*4 F200W (nr__) ! (mag) Absolute magnitude in the F200W band
real*4 LSST_u (nr__) ! (mag) Absolute magnitude in the LSST u band
real*4 LSST_g (nr__) ! (mag) Absolute magnitude in the LSST g band
real*4 LSST_r (nr__) ! (mag) Absolute magnitude in the LSST r band
real*4 LSST_i (nr__) ! (mag) Absolute magnitude in the LSST i band
real*4 LSST_z (nr__) ! (mag) Absolute magnitude in the LSST z band
real*4 LSST_y (nr__) ! (mag) Absolute magnitude in the LSST y band
real*4 GAIA_G (nr__) ! (mag) Absolute magnitude in the GAIA G band
real*4 GAIA_Bp (nr__) ! (mag) Absolute magnitude in the GAIA bp band
real*4 GAIA_Rp (nr__) ! (mag) Absolute magnitude in the GAIA rp band
real*4 BC_U (nr__) ! (mag) Bolometric correction in the U band
real*4 BC_B (nr__) ! (mag) Bolometric correction in the B band
real*4 BC_V (nr__) ! (mag) Bolometric correction in the V band
real*4 BC_J (nr__) ! (mag) Bolometric correction in the J band
real*4 BC_H (nr__) ! (mag) Bolometric correction in the H band
real*4 BC_K (nr__) ! (mag) Bolometric correction in the K band
real*4 BC_R (nr__) ! (mag) Bolometric correction in the R band
real*4 BC_I (nr__) ! (mag) Bolometric correction in the I band
real*4 BC_F070W (nr__) ! (mag) Bolometric correction in the F070W band
real*4 BC_F090W (nr__) ! (mag) Bolometric correction in the F090W band
real*4 BC_F115W (nr__) ! (mag) Bolometric correction in the F115W band
real*4 BC_F150W (nr__) ! (mag) Bolometric correction in the F150W band
real*4 BC_F200W (nr__) ! (mag) Bolometric correction in the F200W band
real*4 BC_LSST_u (nr__) ! (mag) Bolometric correction in the LSST u band
real*4 BC_LSST_g (nr__) ! (mag) Bolometric correction in the LSST g band
real*4 BC_LSST_r (nr__) ! (mag) Bolometric correction in the LSST r band
real*4 BC_LSST_i (nr__) ! (mag) Bolometric correction in the LSST i band
real*4 BC_LSST_z (nr__) ! (mag) Bolometric correction in the LSST z band
real*4 BC_LSST_y (nr__) ! (mag) Bolometric correction in the LSST y band
real*4 BC_GAIA_G (nr__) ! (mag) Bolometric correction in the GAIA G band
real*4 BC_GAIA_Bp (nr__) ! (mag) Bolometric correction in the GAIA bp band
real*4 BC_GAIA_Rp (nr__) ! (mag) Bolometric correction in the GAIA rp band
C=============================================================================
C Loading file 'table.dat' ! Absolute magnitudes and bolometric corrections
C Format for file interpretation
1 format(
+ A3,1X,F7.1,1X,F3.1,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,
+ F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,
+ 1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,
+ F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,
+ 1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,
+ F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,
+ 1X,F5.2)
C Effective file loading
open(unit=1,status='old',file=
+'table.dat')
write(6,*) '....Loading file: table.dat'
do i__=1,606
read(1,'(A279)')ar__
read(ar__,1)
+ Galaxy(i__),Teff(i__),logg(i__),U(i__),B(i__),V(i__),J(i__),
+ H(i__),K(i__),R(i__),I(i__),F070W(i__),F090W(i__),F115W(i__),
+ F150W(i__),F200W(i__),LSST_u(i__),LSST_g(i__),LSST_r(i__),
+ LSST_i(i__),LSST_z(i__),LSST_y(i__),GAIA_G(i__),GAIA_Bp(i__),
+ GAIA_Rp(i__),BC_U(i__),BC_B(i__),BC_V(i__),BC_J(i__),
+ BC_H(i__),BC_K(i__),BC_R(i__),BC_I(i__),BC_F070W(i__),
+ BC_F090W(i__),BC_F115W(i__),BC_F150W(i__),BC_F200W(i__),
+ BC_LSST_u(i__),BC_LSST_g(i__),BC_LSST_r(i__),BC_LSST_i(i__),
+ BC_LSST_z(i__),BC_LSST_y(i__),BC_GAIA_G(i__),BC_GAIA_Bp(i__),
+ BC_GAIA_Rp(i__)
c ..............Just test output...........
write(6,1)
+ Galaxy(i__),Teff(i__),logg(i__),U(i__),B(i__),V(i__),J(i__),
+ H(i__),K(i__),R(i__),I(i__),F070W(i__),F090W(i__),F115W(i__),
+ F150W(i__),F200W(i__),LSST_u(i__),LSST_g(i__),LSST_r(i__),
+ LSST_i(i__),LSST_z(i__),LSST_y(i__),GAIA_G(i__),GAIA_Bp(i__),
+ GAIA_Rp(i__),BC_U(i__),BC_B(i__),BC_V(i__),BC_J(i__),
+ BC_H(i__),BC_K(i__),BC_R(i__),BC_I(i__),BC_F070W(i__),
+ BC_F090W(i__),BC_F115W(i__),BC_F150W(i__),BC_F200W(i__),
+ BC_LSST_u(i__),BC_LSST_g(i__),BC_LSST_r(i__),BC_LSST_i(i__),
+ BC_LSST_z(i__),BC_LSST_y(i__),BC_GAIA_G(i__),BC_GAIA_Bp(i__),
+ BC_GAIA_Rp(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end