Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/632/A15 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-Aug-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/632/A15 Star-forming low-mass gal. stellar host (Lumbreras-Calle+, 2019)
*================================================================================
*The stellar host in star-forming low-mass galaxies: Evidence for two classes.
* Lumbreras-Calle A., Mendez-Abreu J., Munoz-Tunon C.
* <Astron. Astrophys. 632, A15 (2019)>
* =2019A&A...632A..15L (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Physical properties, synthetic magnitudes,
and class to which each galaxy belongs
integer*4 nr__
parameter (nr__=95) ! Number of records
character*189 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
integer*4 ID ! SHARDS ID (release DR3 beta)
real*8 RAdeg ! (deg) Right Ascension (J2000)
real*8 DEdeg ! (deg) Declination (J2000)
real*4 logMass ! ([Msun]) Stellar mass of the galaxy
* (taken from 2019A&A...621A..52L)
real*4 E_logMass ! ([Msun]) Error on logMass (upper value)
real*4 e_logMass_1 ! ([Msun]) Error on logMass (lower value)
real*8 logsSFR ! ([yr-1]) Specific star formation rate
* (SFR/Stellar Mass)
* (taken from 2019A&A...621A..52L)
real*4 E_logsSFR ! ([yr-1]) Error on logsSFR (upper value)
real*4 e_logsSFR_1 ! ([yr-1]) Error on logsSFR (lower value)
real*4 Umag ! (mag) Synthetic AB mag of the Sersic model
* of the host galaxy in the
* Johnson U filter
real*4 E_Umag ! (mag) Error on Umag (upper value)
real*4 e_Umag_1 ! (mag) Error on Umag (lower value)
real*4 Vmag ! (mag) ?=99 Synthetic AB mag of the Sersic
* model of the host galaxy in the
* Johnson V filter
real*4 E_Vmag ! (mag) ?=99 Error on Vmag (upper value)
real*4 e_Vmag_1 ! (mag) ?=99 Error on Vmag (lower value)
real*4 Jmag ! (mag) Synthetic AB mag of the Sersic model
* of the host galaxy in the
* Johnson J filter
real*4 E_Jmag ! (mag) Error on Jmag (upper value)
real*4 e_Jmag_1 ! (mag) Error on Jmag (lower value)
real*4 gmag ! (mag) Synthetic AB mag of the Sersic model
* of the host galaxy in the
* SDSS g filter
real*4 E_gmag ! (mag) Error on gmag (upper value)
real*4 e_gmag_1 ! (mag) Error on gmag (lower value)
real*4 rmag ! (mag) ?=99 Synthetic AB mag of the Sersic
* model of the host galaxy in the
* SDSS r filter
real*4 E_rmag ! (mag) ?=99 Error on rmag (upper value)
real*4 e_rmag_1 ! (mag) ?=99 Error on rmag (lower value)
real*4 g_rgrad ! (mag/arcsec+2/kpc) g-r color gradient of
* the host galaxy model
real*4 E_g_rgrad ! (mag/arcsec+2/kpc) Error on g-r_grad (upper value)
real*4 e_g_rgrad_1 ! (mag/arcsec+2/kpc) Error on g-r_grad (lower value)
character*1 Class ! [A/B] Class of the galaxy (A or B) (1)
*Note (1): Class of the galaxy as follows:
* A = subsample of galaxies with lower radius, higher n, and redder U-V color
* B = subsample of galaxies with larger, bluer, and lower n galaxies
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Photometric parameters obtained from PHI fitting
integer*4 nr__1
parameter (nr__1=665) ! Number of records
character*120 ar__1 ! Full-size record
integer*4 ID_1 ! SHARDS ID (release DR3 beta)
character*6 Filter ! ? HST filter
real*4 chi2 ! ? Chi-squared value of the model fitting
real*4 mue ! (mag/arcsec+2) ? Surface brightness of the Sersic model
* at the effective radius
real*4 E_mue ! (mag/arcsec+2) ? Error on mu_e (upper value)
real*4 e_mue_1 ! (mag/arcsec+2) ? Error on mu_e (lower value)
real*4 Re ! (kpc) ? Effective radius of the Sersic model
real*4 E_Re ! (kpc) ? Error on Re (upper value)
real*4 e_Re_1 ! (kpc) ? Error on Re (lower value)
real*4 n ! ? Sersic index of the model
real*4 E_n ! ? Error on n (upper value)
real*4 e_n_1 ! ? Error on n (lower value)
real*4 q ! ? Axis ratio of the Sersic model
real*4 E_q ! ? Error on q (upper value)
real*4 e_q_1 ! ? Error on q (lower value)
real*8 PA ! (deg) ? Position angle of the Sersic model
real*8 E_PA ! (deg) ? Error on PA (upper value)
real*8 e_PA_1 ! (deg) ? Error on PA (lower value)
C=============================================================================
C Loading file 'table2.dat' ! Physical properties, synthetic magnitudes,
* and class to which each galaxy belongs
C Format for file interpretation
1 format(
+ I8,1X,F9.5,1X,F8.5,1X,F6.3,1X,F5.3,1X,F5.3,1X,F7.3,1X,F5.3,1X,
+ F6.3,1X,F6.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,
+ 1X,F5.3,1X,F6.3,1X,F6.3,1X,F5.3,1X,F5.3,1X,F6.3,1X,F6.3,1X,
+ F6.3,1X,F6.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,95
read(1,'(A189)')ar__
read(ar__,1)
+ ID,RAdeg,DEdeg,logMass,E_logMass,e_logMass_1,logsSFR,
+ E_logsSFR,e_logsSFR_1,Umag,E_Umag,e_Umag_1,Vmag,E_Vmag,
+ e_Vmag_1,Jmag,E_Jmag,e_Jmag_1,gmag,E_gmag,e_gmag_1,rmag,
+ E_rmag,e_rmag_1,g_rgrad,E_g_rgrad,e_g_rgrad_1,Class
c ..............Just test output...........
write(6,1)
+ ID,RAdeg,DEdeg,logMass,E_logMass,e_logMass_1,logsSFR,
+ E_logsSFR,e_logsSFR_1,Umag,E_Umag,e_Umag_1,Vmag,E_Vmag,
+ e_Vmag_1,Jmag,E_Jmag,e_Jmag_1,gmag,E_gmag,e_gmag_1,rmag,
+ E_rmag,e_rmag_1,g_rgrad,E_g_rgrad,e_g_rgrad_1,Class
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table1.dat' ! Photometric parameters obtained from PHI fitting
C Format for file interpretation
2 format(
+ I8,1X,A6,1X,F4.2,1X,F6.3,1X,F5.3,1X,F5.3,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,F5.3,1X,F7.3,
+ 1X,F7.3,1X,F7.3)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,665
read(1,'(A120)')ar__1
read(ar__1,2)
+ ID_1,Filter,chi2,mue,E_mue,e_mue_1,Re,E_Re,e_Re_1,n,E_n,e_n_1,
+ q,E_q,e_q_1,PA,E_PA,e_PA_1
if(ar__1(17:20) .EQ. '') chi2 = rNULL__
if(ar__1(22:27) .EQ. '') mue = rNULL__
if(ar__1(29:33) .EQ. '') E_mue = rNULL__
if(ar__1(35:39) .EQ. '') e_mue_1 = rNULL__
if(ar__1(41:46) .EQ. '') Re = rNULL__
if(ar__1(48:53) .EQ. '') E_Re = rNULL__
if(ar__1(55:60) .EQ. '') e_Re_1 = rNULL__
if(ar__1(62:66) .EQ. '') n = rNULL__
if(ar__1(68:72) .EQ. '') E_n = rNULL__
if(ar__1(74:78) .EQ. '') e_n_1 = rNULL__
if(ar__1(80:84) .EQ. '') q = rNULL__
if(ar__1(86:90) .EQ. '') E_q = rNULL__
if(ar__1(92:96) .EQ. '') e_q_1 = rNULL__
if(ar__1(98:104) .EQ. '') PA = rNULL__
if(ar__1(106:112) .EQ. '') E_PA = rNULL__
if(ar__1(114:120) .EQ. '') e_PA_1 = rNULL__
c ..............Just test output...........
write(6,2)
+ ID_1,Filter,chi2,mue,E_mue,e_mue_1,Re,E_Re,e_Re_1,n,E_n,e_n_1,
+ q,E_q,e_q_1,PA,E_PA,e_PA_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end