Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/632/A15 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-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 (nr__) ! SHARDS ID (release DR3 beta)
real*8 RAdeg (nr__) ! (deg) Right Ascension (J2000)
real*8 DEdeg (nr__) ! (deg) Declination (J2000)
real*4 logMass (nr__) ! ([Msun]) Stellar mass of the galaxy
* (taken from 2019A&A...621A..52L)
real*4 E_logMass (nr__) ! ([Msun]) Error on logMass (upper value)
real*4 e_logMass_1(nr__) ! ([Msun]) Error on logMass (lower value)
real*8 logsSFR (nr__) ! ([yr-1]) Specific star formation rate
* (SFR/Stellar Mass)
* (taken from 2019A&A...621A..52L)
real*4 E_logsSFR (nr__) ! ([yr-1]) Error on logsSFR (upper value)
real*4 e_logsSFR_1(nr__) ! ([yr-1]) Error on logsSFR (lower value)
real*4 Umag (nr__) ! (mag) Synthetic AB mag of the Sersic model
* of the host galaxy in the
* Johnson U filter
real*4 E_Umag (nr__) ! (mag) Error on Umag (upper value)
real*4 e_Umag_1 (nr__) ! (mag) Error on Umag (lower value)
real*4 Vmag (nr__) ! (mag) ?=99 Synthetic AB mag of the Sersic
* model of the host galaxy in the
* Johnson V filter
real*4 E_Vmag (nr__) ! (mag) ?=99 Error on Vmag (upper value)
real*4 e_Vmag_1 (nr__) ! (mag) ?=99 Error on Vmag (lower value)
real*4 Jmag (nr__) ! (mag) Synthetic AB mag of the Sersic model
* of the host galaxy in the
* Johnson J filter
real*4 E_Jmag (nr__) ! (mag) Error on Jmag (upper value)
real*4 e_Jmag_1 (nr__) ! (mag) Error on Jmag (lower value)
real*4 gmag (nr__) ! (mag) Synthetic AB mag of the Sersic model
* of the host galaxy in the
* SDSS g filter
real*4 E_gmag (nr__) ! (mag) Error on gmag (upper value)
real*4 e_gmag_1 (nr__) ! (mag) Error on gmag (lower value)
real*4 rmag (nr__) ! (mag) ?=99 Synthetic AB mag of the Sersic
* model of the host galaxy in the
* SDSS r filter
real*4 E_rmag (nr__) ! (mag) ?=99 Error on rmag (upper value)
real*4 e_rmag_1 (nr__) ! (mag) ?=99 Error on rmag (lower value)
real*4 g_rgrad (nr__) ! (mag/arcsec+2/kpc) g-r color gradient of
* the host galaxy model
real*4 E_g_rgrad (nr__) ! (mag/arcsec+2/kpc) Error on g-r_grad (upper value)
real*4 e_g_rgrad_1(nr__) ! (mag/arcsec+2/kpc) Error on g-r_grad (lower value)
character*1 Class (nr__) ! [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 (nr__1) ! SHARDS ID (release DR3 beta)
character*6 Filter (nr__1) ! ? HST filter
real*4 chi2 (nr__1) ! ? Chi-squared value of the model fitting
real*4 mue (nr__1) ! (mag/arcsec+2) ? Surface brightness of the Sersic model
* at the effective radius
real*4 E_mue (nr__1) ! (mag/arcsec+2) ? Error on mu_e (upper value)
real*4 e_mue_1 (nr__1) ! (mag/arcsec+2) ? Error on mu_e (lower value)
real*4 Re (nr__1) ! (kpc) ? Effective radius of the Sersic model
real*4 E_Re (nr__1) ! (kpc) ? Error on Re (upper value)
real*4 e_Re_1 (nr__1) ! (kpc) ? Error on Re (lower value)
real*4 n (nr__1) ! ? Sersic index of the model
real*4 E_n (nr__1) ! ? Error on n (upper value)
real*4 e_n_1 (nr__1) ! ? Error on n (lower value)
real*4 q (nr__1) ! ? Axis ratio of the Sersic model
real*4 E_q (nr__1) ! ? Error on q (upper value)
real*4 e_q_1 (nr__1) ! ? Error on q (lower value)
real*8 PA (nr__1) ! (deg) ? Position angle of the Sersic model
real*8 E_PA (nr__1) ! (deg) ? Error on PA (upper value)
real*8 e_PA_1 (nr__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(i__),RAdeg(i__),DEdeg(i__),logMass(i__),E_logMass(i__),
+ e_logMass_1(i__),logsSFR(i__),E_logsSFR(i__),e_logsSFR_1(i__),
+ Umag(i__),E_Umag(i__),e_Umag_1(i__),Vmag(i__),E_Vmag(i__),
+ e_Vmag_1(i__),Jmag(i__),E_Jmag(i__),e_Jmag_1(i__),gmag(i__),
+ E_gmag(i__),e_gmag_1(i__),rmag(i__),E_rmag(i__),e_rmag_1(i__),
+ g_rgrad(i__),E_g_rgrad(i__),e_g_rgrad_1(i__),Class(i__)
c ..............Just test output...........
write(6,1)
+ ID(i__),RAdeg(i__),DEdeg(i__),logMass(i__),E_logMass(i__),
+ e_logMass_1(i__),logsSFR(i__),E_logsSFR(i__),e_logsSFR_1(i__),
+ Umag(i__),E_Umag(i__),e_Umag_1(i__),Vmag(i__),E_Vmag(i__),
+ e_Vmag_1(i__),Jmag(i__),E_Jmag(i__),e_Jmag_1(i__),gmag(i__),
+ E_gmag(i__),e_gmag_1(i__),rmag(i__),E_rmag(i__),e_rmag_1(i__),
+ g_rgrad(i__),E_g_rgrad(i__),e_g_rgrad_1(i__),Class(i__)
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(i__),Filter(i__),chi2(i__),mue(i__),E_mue(i__),
+ e_mue_1(i__),Re(i__),E_Re(i__),e_Re_1(i__),n(i__),E_n(i__),
+ e_n_1(i__),q(i__),E_q(i__),e_q_1(i__),PA(i__),E_PA(i__),
+ e_PA_1(i__)
if(ar__1(17:20) .EQ. '') chi2(i__) = rNULL__
if(ar__1(22:27) .EQ. '') mue(i__) = rNULL__
if(ar__1(29:33) .EQ. '') E_mue(i__) = rNULL__
if(ar__1(35:39) .EQ. '') e_mue_1(i__) = rNULL__
if(ar__1(41:46) .EQ. '') Re(i__) = rNULL__
if(ar__1(48:53) .EQ. '') E_Re(i__) = rNULL__
if(ar__1(55:60) .EQ. '') e_Re_1(i__) = rNULL__
if(ar__1(62:66) .EQ. '') n(i__) = rNULL__
if(ar__1(68:72) .EQ. '') E_n(i__) = rNULL__
if(ar__1(74:78) .EQ. '') e_n_1(i__) = rNULL__
if(ar__1(80:84) .EQ. '') q(i__) = rNULL__
if(ar__1(86:90) .EQ. '') E_q(i__) = rNULL__
if(ar__1(92:96) .EQ. '') e_q_1(i__) = rNULL__
if(ar__1(98:104) .EQ. '') PA(i__) = rNULL__
if(ar__1(106:112) .EQ. '') E_PA(i__) = rNULL__
if(ar__1(114:120) .EQ. '') e_PA_1(i__) = rNULL__
c ..............Just test output...........
write(6,2)
+ ID_1(i__),Filter(i__),chi2(i__),mue(i__),E_mue(i__),
+ e_mue_1(i__),Re(i__),E_Re(i__),e_Re_1(i__),n(i__),E_n(i__),
+ e_n_1(i__),q(i__),E_q(i__),e_q_1(i__),PA(i__),E_PA(i__),
+ e_PA_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end