Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/711/A10 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-Sep-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/711/A10 Euclid (Q1). Census of dwarf galaxies (Euclid Coll., 2026)
*================================================================================
*Euclid: Quick Data Release (Q1). A census of dwarf galaxies across a range of
*distances and environments,
* Euclid Collaboration, Marleau F.R., Habas R., Carollo D., Tortora C.,
* Duc P.-A., Sola E., Saifollahi T., Fugenschuh M., Walmsley M., Zoller R.,
* Ferre-Mateu A., Cantiello M., Urbano M., Saremi E., Ragusa R., Laureijs R.,
* Hilker M., Muller O., Poulain M., Peletier R.F., Sprenger S.J., Marchal O.,
* Aghanim N., Altieri B., Amara A., Andreon S., Auricchio N., Aussel H.,
* Baccigalupi C., Baldi M., Balestra A., Bardelli S., Basset A., Battaglia P.,
* Bender R., Biviano A., Bonchi A., Bonino D., Branchini E., Brescia M.,
* Brinchmann J., Camera S., Canas-Herrera G., Capobianco V., Carbone C.,
* Carretero J., Casas S., Castellano M., Castignani G., Cavuoti S.,
* Chambers K.C., Cimatti A., Colodro-Conde C., Congedo G., Conselice C.J.,
* Conversi L., Copin Y., Corcione L., Courbin F., Courtois H.M., Cropper M.,
* Cuillandre J.-C., Da Silva A., Degaudenzi H., De Lucia G., Di Giorgio A.M.,
* Dolding C., Dole H., Dubath F., Dupac X., Dusini S., Escoffier S.,
* Fabricius M., Farina M., Faustini F., Ferriol S., Fosalba P., Fotopoulou S.,
* Frailis M., Franceschi E., Franzetti P., Fumana M., Galeotta S., George K.,
* Gillis B., Giocoli C., Granett B.R., Grazian A., Grupp F., Gwyn S.,
* Haugan S.V.H., Hoar J., Hoekstra H., Holmes W., Hormuth F., Hornstrup A.,
* Hudelot P., Jahnke K., Jhabvala M., Joachimi B., Keihanen E., Kermiche S.,
* Kiessling A., Kubik B., Kummel M., Kunz M., Kurki-Suonio H., Lahav O.,
* Le Boulc'h Q., Le Brun A.M.C., Le Mignant D., Ligori S., Lilje P.B.,
* Lindholm V., Lloro I., Mainetti G., Maino D., Maiorano E., Mansutti O.,
* Marcin S., Marggraf O., Martinelli M., Martinet N., Marulli F., Massey R.,
* Maurogordato S., McCracken H.J., Medinaceli E., Mei S., Melchior M.,
* Mellier Y., Meneghetti M., Merlin E., Meylan G., Mora A., Moresco M.,
* Moscardini L., Nakajima R., Neissner C., Niemi S.-M., Nightingale J.W.,
* Padilla C., Paltani S., Pasian F., Pedersen K., Percival W.J., Pettorino V.,
* Pires S., Polenta G., Poncet M., Popa L.A., Pozzetti L., Raison F., Rebolo R.,
* Renzi A., Rhodes J., Riccio G., Romelli E., Roncarelli M., Rossetti E.,
* Rusholme B., Saglia R., Sakr Z., Sanchez A.G., Sapone D., Sartoris B.,
* Sauvage M., Schewtschenko J.A., Schirmer M., Schneider P., Scodeggio M.,
* Secroun A., Seidel G., Seiffert M., Serrano S., Simon P., Sirignano C.,
* Sirri G., Skottfelt J., Stanco L., Steinwagner J., Tallada-Crespi P.,
* Tavagnacco D., Taylor A.N., Teplitz H.I., Tereno I., Toft S., Toledo-Moreo R.,
* Torradeflot F., Tutusaus I., Valenziano L., Valiviita J., Vassallo T.,
* Verdoes Kleijn G., Veropalumbo A., Wang Y., Weller J., Zacchei A.,
* Zamorani G., Zerbi F.M., Zucca E., Ballardini M., Bolzonella M., Burigana C.,
* Cabanac R., Cappi A., Di Ferdinando D., Escartin Vigo J.A., Gabarra L.,
* Huertas-Company M., Martin-Fleitas J., Matthew S., Mauri N., Metcalf R.B.,
* Pontinen M., Scottez V., Sereno M., Tenti M., Viel M., Wiesmann M., Akrami Y.,
* Andika I.T., Anselmi S., Archidiacono M., Atrio-Barandela F., Bertacca D.,
* Bethermin M., Blanchard A., Borgani S., Brown M.L., Bruton S., Buitrago F.,
* Calabro A., Camacho Quevedo B., Caro F., Carvalho C.S., Castro T., Cogato F.,
* Conseil S., Cooray A.R., Davini S., De Paolis F., Desprez G., Diaz-Sanchez A.,
* Di Domizio S., Diego J.M., Dimauro P., Enia A., Franco A., Ganga K.,
* Garcia-Bellido J., Gasparetto T., Gaztanaga E., Gianotti F., Gozaliasl G.,
* Guidi M., Gutierrez C.M., Hall A., Hernandez-Monteagudo C., Hildebrandt H.,
* Kajava J.J.E., Kang Y., Kansal V., Karagiannis D., Kiiveri K.,
* Kirkpatrick C.C., Kruk S., Legrand L., Lepori F., Leroy G., Lesci G.F.,
* Lesgourgues J., Liaudat T.I., Liu S.J., Macias-Perez J., Mannucci F.,
* Maoli R., Martins C.J.A.P., Maurin L., Miluzio M., Monaco P., Moretti C.,
* Morgante G., Navarro-Alsina A., Nicastro L., Paterson K., Patrizii L.,
* Potter D., Quai S., Radovich M., Rocci P.-F., Sacquegna S., Sahlen M.,
* Sanders D.B., Sarpa E., Schultheis M., Sciotti D., Sellentin E., Tanidis K.,
* Tao C., Testera G., Teyssier R., Tosi S., Troja A., Tucci M., Venhola A.,
* Vergani D., Verza G., Scott D.
* <Astron. Astrophys. 711, A10 (2026)>
* =2026A&A...711A..10E (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Entire sample of dwarf galaxy candidates
integer*4 nr__
parameter (nr__=2674) ! Number of records
character*59 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
integer*8 ID ! ? Euclid identifier of the object
real*8 RAdeg ! (deg) Right ascension (J2000) of the dwarf galaxy
* candidate
real*8 DEdeg ! (deg) Declination (J2000) of the dwarf galaxy
* candidate
character*2 Morph ! Morphological type of the dwarf galaxy
* candidate
character*3 GC_rich ! Yes if dwarf galaxy candidate is GC-rich,
* No otherwise
character*3 Nucleated ! Yes if dwarf galaxy candidate is nucleated,
* No otherwise
character*3 Disturbed ! Yes if dwarf galaxy candidate has a
* disturbed Morphology, No otherwise
character*3 Blue_cored ! Yes if dwarf galaxy candidate is
* blue-cored, No otherwise
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Photometric and structural properties of the
dwarf galaxy candidates
integer*4 nr__1
parameter (nr__1=2674) ! Number of records
character*87 ar__1 ! Full-size record
C J2000 position composed of: RAdeg DEdeg
integer*8 ID_1 ! ? Euclid identifier of the object
real*8 RAdeg_1 ! (deg) Right ascension (J2000) of the
* dwarf galaxy candidate
real*8 DEdeg_1 ! (deg) Declination (J2000) of the
* dwarf galaxy candidate
real*4 IEmag ! (mag) ? Magnitude in Euclid I_E band
real*4 e_IEmag ! (mag) ? Magnitude uncertainty in Euclid I_E band
real*8 Area ! (arcsec+2) ? Segmentation area of the
* dwarf galaxy candidate
real*4 ell ! ? Ellipticity of the dwarf galaxy candidate
real*4 PA ! (deg) []? Position angle of the
* dwarf galaxy candidate
real*4 SB ! (mag/arcsec2) ? Surface brightness of the
* dwarf galaxy candidate
real*4 e_SB ! (mag/arcsec2) ? Surface brightness uncertainty
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Aperture magnitudes and extinction corrections
(EC) of the dwarf galaxy candidates
integer*4 nr__2
parameter (nr__2=2640) ! Number of records
character*128 ar__2 ! Full-size record
integer*8 ID_2 ! Euclid identifier of the object (1)
character*1 n_ID ! [*] Note (1)
real*4 IEmag_1 ! (mag) Magnitude in Euclid I_E band
real*4 e_IEmag_1 ! (mag) Magnitude uncertainty in Euclid I_E band
real*4 EC_IE ! (mag) Extinction correction for Euclid I_E band
real*4 e_EC_IE ! (mag) Extinction correction uncertainty for
* Euclid I_E band
real*4 YEmag ! (mag) ? Magnitude in Euclid Y_E band
real*4 e_YEmag ! (mag) Magnitude uncertainty in Euclid Y_E band
real*4 EC_YE ! (mag) Extinction correction for Euclid Y_E band
real*4 e_EC_YE ! (mag) Extinction correction uncertainty for
* Euclid Y_E band
real*4 JEmag ! (mag) ? Magnitude in Euclid J_E band
real*4 e_JEmag ! (mag) Magnitude uncertainty in Euclid J_E band
real*4 EC_JE ! (mag) Extinction correction for Euclid J_E band
real*4 e_EC_JE ! (mag) Extinction correction uncertainty for
* Euclid J_E band
real*4 HEmag ! (mag) ? Magnitude in Euclid H_E band
real*4 e_HEmag ! (mag) Magnitude uncertainty in Euclid H_E band
real*4 EC_HE ! (mag) Extinction correction for Euclid H_E band
real*4 e_EC_HE ! (mag) Extinction correction uncertainty for
* Euclid H_E band
*Note (1): * denotes the dwarf candidates for which the colour information is
* affected by image defects.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! Stellar mass estimates assuming z=0.1 or z=0.05
integer*4 nr__3
parameter (nr__3=2635) ! Number of records
character*71 ar__3 ! Full-size record
C J2000 position composed of: RAdeg DEdeg
integer*8 ID_3 ! Euclid identifier of the object
real*8 RAdeg_2 ! (deg) Right ascension (J2000) of the
* dwarf galaxy candidate
real*8 DEdeg_2 ! (deg) Declination (J2000) of the
* dwarf galaxy candidate
real*4 logM_z0_1 ! ([Msun]) Stellar mass estimate assuming z=0.1
real*4 e_logM_z0_1 ! ([Msun]) Lower uncertainty bound for the stellar mass
* estimate assuming z=0.1
real*4 E_logM_z0_1_1 ! ([Msun]) Upper uncertainty bound for the stellar mass
* estimate assuming z=0.1
real*4 logM_z0_05 ! ([Msun]) Stellar mass estimate assuming z=0.05
real*4 e_logM_z0_05 ! ([Msun]) Lower uncertainty bound for the stellar mass
* estimate assuming z=0.05
real*4 E_logM_z0_05_1 ! ([Msun]) Upper uncertainty bound for the stellar mass
* estimate assuming z=0.05
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table5.dat' ! Stellar mass estimates with spectroscopic
redshifts available
integer*4 nr__4
parameter (nr__4=388) ! Number of records
character*86 ar__4 ! Full-size record
C J2000 position composed of: RAdeg DEdeg
integer*8 ID_4 ! Euclid identifier of the object
real*8 RAdeg_3 ! (deg) Right ascension (J2000) of the
* dwarf galaxy candidate
real*8 DEdeg_3 ! (deg) Declination(J2000) of the
* dwarf galaxy candidate
real*4 logM_zspAll ! ([Msun]) Stellar mass estimate assuming z=z_spec
* using all bands
real*4 e_logM_zspAll ! ([Msun]) Lower uncertainty bound for the stellar
* mass estimate assuming z=z_spec
* using all bands
real*4 E_logM_zspAll_1 ! ([Msun]) Upper uncertainty bound for the stellar
* mass estimate assuming z=z_spec
* using all bands
real*4 logM_zspE ! ([Msun]) Stellar mass estimate assuming z=z_spec
* using only Euclid bands
real*4 e_logM_zspE ! ([Msun]) Lower uncertainty bound for the stellar mass
* estimate assuming z=z_spec
* using only Euclid bands
real*4 E_logM_zspE_1 ! ([Msun]) Upper uncertainty bound for the stellar mass
* estimate assuming z=z_spec
* using only Euclid bands
real*4 logM_zspSB ! ([Msun]) Stellar mass estimate assuming z=z_spec
* using single burst model (all bands)
real*4 e_logM_zspSB ! ([Msun]) Lower uncertainty bound for the stellar mass
* estimate assuming z=z_spec
* using single burst model (all bands)
real*4 E_logM_zspSB_1 ! ([Msun]) Upper uncertainty bound for the stellar mass
* estimate assuming z=z_spec
* using single burst model (all bands)
C=============================================================================
C Loading file 'table1.dat' ! Entire sample of dwarf galaxy candidates
C Format for file interpretation
1 format(I19,1X,F10.6,1X,F9.6,1X,A2,1X,A3,1X,A3,1X,A3,1X,A3)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,2674
read(1,'(A59)')ar__
read(ar__,1)
+ ID,RAdeg,DEdeg,Morph,GC_rich,Nucleated,Disturbed,Blue_cored
if(ar__(1:19) .EQ. '') ID = iNULL__
c ..............Just test output...........
write(6,1)
+ ID,RAdeg,DEdeg,Morph,GC_rich,Nucleated,Disturbed,Blue_cored
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! Photometric and structural properties of the
* dwarf galaxy candidates
C Format for file interpretation
2 format(
+ I19,1X,F10.6,1X,F9.6,1X,F6.2,1X,F5.2,1X,F7.2,1X,F5.2,1X,F6.2,
+ 1X,F6.2,1X,F5.2)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,2674
read(1,'(A87)')ar__1
read(ar__1,2)
+ ID_1,RAdeg_1,DEdeg_1,IEmag,e_IEmag,Area,ell,PA,SB,e_SB
if(ar__1(1:19) .EQ. '') ID_1 = iNULL__
if(ar__1(42:47) .EQ. '') IEmag = rNULL__
if(ar__1(49:53) .EQ. '') e_IEmag = rNULL__
if(ar__1(55:61) .EQ. '') Area = rNULL__
if(ar__1(63:67) .EQ. '') ell = rNULL__
if(ar__1(69:74) .EQ. '') PA = rNULL__
if(ar__1(76:81) .EQ. '') SB = rNULL__
if(ar__1(83:87) .EQ. '') e_SB = rNULL__
c ..............Just test output...........
write(6,2)
+ ID_1,RAdeg_1,DEdeg_1,IEmag,e_IEmag,Area,ell,PA,SB,e_SB
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! Aperture magnitudes and extinction corrections
* (EC) of the dwarf galaxy candidates
C Format for file interpretation
3 format(
+ I19,A1,1X,F6.2,1X,F5.2,1X,F6.3,1X,F6.3,1X,F6.2,1X,F5.2,1X,
+ F6.3,1X,F6.3,1X,F6.2,1X,F5.2,1X,F6.3,1X,F6.3,1X,F6.2,1X,F5.2,
+ 1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,2640
read(1,'(A128)')ar__2
read(ar__2,3)
+ ID_2,n_ID,IEmag_1,e_IEmag_1,EC_IE,e_EC_IE,YEmag,e_YEmag,EC_YE,
+ e_EC_YE,JEmag,e_JEmag,EC_JE,e_EC_JE,HEmag,e_HEmag,EC_HE,
+ e_EC_HE
if(ar__2(49:54) .EQ. '') YEmag = rNULL__
if(ar__2(76:81) .EQ. '') JEmag = rNULL__
if(ar__2(103:108) .EQ. '') HEmag = rNULL__
c ..............Just test output...........
write(6,3)
+ ID_2,n_ID,IEmag_1,e_IEmag_1,EC_IE,e_EC_IE,YEmag,e_YEmag,EC_YE,
+ e_EC_YE,JEmag,e_JEmag,EC_JE,e_EC_JE,HEmag,e_HEmag,EC_HE,
+ e_EC_HE
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4.dat' ! Stellar mass estimates assuming z=0.1 or z=0.05
C Format for file interpretation
4 format(
+ I19,1X,F10.6,1X,F9.6,1X,F5.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F4.2,
+ 1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table4.dat')
write(6,*) '....Loading file: table4.dat'
do i__=1,2635
read(1,'(A71)')ar__3
read(ar__3,4)
+ ID_3,RAdeg_2,DEdeg_2,logM_z0_1,e_logM_z0_1,E_logM_z0_1_1,
+ logM_z0_05,e_logM_z0_05,E_logM_z0_05_1
c ..............Just test output...........
write(6,4)
+ ID_3,RAdeg_2,DEdeg_2,logM_z0_1,e_logM_z0_1,E_logM_z0_1_1,
+ logM_z0_05,e_logM_z0_05,E_logM_z0_05_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table5.dat' ! Stellar mass estimates with spectroscopic
* redshifts available
C Format for file interpretation
5 format(
+ I19,1X,F10.6,1X,F9.6,1X,F5.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F4.2,
+ 1X,F4.2,1X,F4.2,1X,F4.2,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table5.dat')
write(6,*) '....Loading file: table5.dat'
do i__=1,388
read(1,'(A86)')ar__4
read(ar__4,5)
+ ID_4,RAdeg_3,DEdeg_3,logM_zspAll,e_logM_zspAll,
+ E_logM_zspAll_1,logM_zspE,e_logM_zspE,E_logM_zspE_1,
+ logM_zspSB,e_logM_zspSB,E_logM_zspSB_1
c ..............Just test output...........
write(6,5)
+ ID_4,RAdeg_3,DEdeg_3,logM_zspAll,e_logM_zspAll,
+ E_logM_zspAll_1,logM_zspE,e_logM_zspE,E_logM_zspE_1,
+ logM_zspSB,e_logM_zspSB,E_logM_zspSB_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end