Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/690/A318 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-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 ! LMC (1/2 Zsun) or SMC (1/5 Zsun) model
real*8 Teff ! (K) Effective temperature of the model
real*4 logg ! ([cm/s2]) Surface gravity of the model
real*4 U ! (mag) Absolute magnitude in the U band
real*4 B ! (mag) Absolute magnitude in the B band
real*4 V ! (mag) Absolute magnitude in the V band
real*4 J ! (mag) Absolute magnitude in the J band
real*4 H ! (mag) Absolute magnitude in the H band
real*4 K ! (mag) Absolute magnitude in the K band
real*4 R ! (mag) Absolute magnitude in the R band
real*4 I ! (mag) Absolute magnitude in the I band
real*4 F070W ! (mag) Absolute magnitude in the F070W band
real*4 F090W ! (mag) Absolute magnitude in the F090W band
real*4 F115W ! (mag) Absolute magnitude in the F115W band
real*4 F150W ! (mag) Absolute magnitude in the F150W band
real*4 F200W ! (mag) Absolute magnitude in the F200W band
real*4 LSST_u ! (mag) Absolute magnitude in the LSST u band
real*4 LSST_g ! (mag) Absolute magnitude in the LSST g band
real*4 LSST_r ! (mag) Absolute magnitude in the LSST r band
real*4 LSST_i ! (mag) Absolute magnitude in the LSST i band
real*4 LSST_z ! (mag) Absolute magnitude in the LSST z band
real*4 LSST_y ! (mag) Absolute magnitude in the LSST y band
real*4 GAIA_G ! (mag) Absolute magnitude in the GAIA G band
real*4 GAIA_Bp ! (mag) Absolute magnitude in the GAIA bp band
real*4 GAIA_Rp ! (mag) Absolute magnitude in the GAIA rp band
real*4 BC_U ! (mag) Bolometric correction in the U band
real*4 BC_B ! (mag) Bolometric correction in the B band
real*4 BC_V ! (mag) Bolometric correction in the V band
real*4 BC_J ! (mag) Bolometric correction in the J band
real*4 BC_H ! (mag) Bolometric correction in the H band
real*4 BC_K ! (mag) Bolometric correction in the K band
real*4 BC_R ! (mag) Bolometric correction in the R band
real*4 BC_I ! (mag) Bolometric correction in the I band
real*4 BC_F070W ! (mag) Bolometric correction in the F070W band
real*4 BC_F090W ! (mag) Bolometric correction in the F090W band
real*4 BC_F115W ! (mag) Bolometric correction in the F115W band
real*4 BC_F150W ! (mag) Bolometric correction in the F150W band
real*4 BC_F200W ! (mag) Bolometric correction in the F200W band
real*4 BC_LSST_u ! (mag) Bolometric correction in the LSST u band
real*4 BC_LSST_g ! (mag) Bolometric correction in the LSST g band
real*4 BC_LSST_r ! (mag) Bolometric correction in the LSST r band
real*4 BC_LSST_i ! (mag) Bolometric correction in the LSST i band
real*4 BC_LSST_z ! (mag) Bolometric correction in the LSST z band
real*4 BC_LSST_y ! (mag) Bolometric correction in the LSST y band
real*4 BC_GAIA_G ! (mag) Bolometric correction in the GAIA G band
real*4 BC_GAIA_Bp ! (mag) Bolometric correction in the GAIA bp band
real*4 BC_GAIA_Rp ! (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,Teff,logg,U,B,V,J,H,K,R,I,F070W,F090W,F115W,F150W,
+ F200W,LSST_u,LSST_g,LSST_r,LSST_i,LSST_z,LSST_y,GAIA_G,
+ GAIA_Bp,GAIA_Rp,BC_U,BC_B,BC_V,BC_J,BC_H,BC_K,BC_R,BC_I,
+ BC_F070W,BC_F090W,BC_F115W,BC_F150W,BC_F200W,BC_LSST_u,
+ BC_LSST_g,BC_LSST_r,BC_LSST_i,BC_LSST_z,BC_LSST_y,BC_GAIA_G,
+ BC_GAIA_Bp,BC_GAIA_Rp
c ..............Just test output...........
write(6,1)
+ Galaxy,Teff,logg,U,B,V,J,H,K,R,I,F070W,F090W,F115W,F150W,
+ F200W,LSST_u,LSST_g,LSST_r,LSST_i,LSST_z,LSST_y,GAIA_G,
+ GAIA_Bp,GAIA_Rp,BC_U,BC_B,BC_V,BC_J,BC_H,BC_K,BC_R,BC_I,
+ BC_F070W,BC_F090W,BC_F115W,BC_F150W,BC_F200W,BC_LSST_u,
+ BC_LSST_g,BC_LSST_r,BC_LSST_i,BC_LSST_z,BC_LSST_y,BC_GAIA_G,
+ BC_GAIA_Bp,BC_GAIA_Rp
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end