Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/711/A10 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-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 (nr__) ! ? Euclid identifier of the object
real*8 RAdeg (nr__) ! (deg) Right ascension (J2000) of the dwarf galaxy
* candidate
real*8 DEdeg (nr__) ! (deg) Declination (J2000) of the dwarf galaxy
* candidate
character*2 Morph (nr__) ! Morphological type of the dwarf galaxy
* candidate
character*3 GC_rich (nr__) ! Yes if dwarf galaxy candidate is GC-rich,
* No otherwise
character*3 Nucleated (nr__) ! Yes if dwarf galaxy candidate is nucleated,
* No otherwise
character*3 Disturbed (nr__) ! Yes if dwarf galaxy candidate has a
* disturbed Morphology, No otherwise
character*3 Blue_cored (nr__) ! 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 (nr__1) ! ? Euclid identifier of the object
real*8 RAdeg_1 (nr__1) ! (deg) Right ascension (J2000) of the
* dwarf galaxy candidate
real*8 DEdeg_1 (nr__1) ! (deg) Declination (J2000) of the
* dwarf galaxy candidate
real*4 IEmag (nr__1) ! (mag) ? Magnitude in Euclid I_E band
real*4 e_IEmag (nr__1) ! (mag) ? Magnitude uncertainty in Euclid I_E band
real*8 Area (nr__1) ! (arcsec+2) ? Segmentation area of the
* dwarf galaxy candidate
real*4 ell (nr__1) ! ? Ellipticity of the dwarf galaxy candidate
real*4 PA (nr__1) ! (deg) []? Position angle of the
* dwarf galaxy candidate
real*4 SB (nr__1) ! (mag/arcsec2) ? Surface brightness of the
* dwarf galaxy candidate
real*4 e_SB (nr__1) ! (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 (nr__2) ! Euclid identifier of the object (1)
character*1 n_ID (nr__2) ! [*] Note (1)
real*4 IEmag_1 (nr__2) ! (mag) Magnitude in Euclid I_E band
real*4 e_IEmag_1 (nr__2) ! (mag) Magnitude uncertainty in Euclid I_E band
real*4 EC_IE (nr__2) ! (mag) Extinction correction for Euclid I_E band
real*4 e_EC_IE (nr__2) ! (mag) Extinction correction uncertainty for
* Euclid I_E band
real*4 YEmag (nr__2) ! (mag) ? Magnitude in Euclid Y_E band
real*4 e_YEmag (nr__2) ! (mag) Magnitude uncertainty in Euclid Y_E band
real*4 EC_YE (nr__2) ! (mag) Extinction correction for Euclid Y_E band
real*4 e_EC_YE (nr__2) ! (mag) Extinction correction uncertainty for
* Euclid Y_E band
real*4 JEmag (nr__2) ! (mag) ? Magnitude in Euclid J_E band
real*4 e_JEmag (nr__2) ! (mag) Magnitude uncertainty in Euclid J_E band
real*4 EC_JE (nr__2) ! (mag) Extinction correction for Euclid J_E band
real*4 e_EC_JE (nr__2) ! (mag) Extinction correction uncertainty for
* Euclid J_E band
real*4 HEmag (nr__2) ! (mag) ? Magnitude in Euclid H_E band
real*4 e_HEmag (nr__2) ! (mag) Magnitude uncertainty in Euclid H_E band
real*4 EC_HE (nr__2) ! (mag) Extinction correction for Euclid H_E band
real*4 e_EC_HE (nr__2) ! (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 (nr__3) ! Euclid identifier of the object
real*8 RAdeg_2 (nr__3) ! (deg) Right ascension (J2000) of the
* dwarf galaxy candidate
real*8 DEdeg_2 (nr__3) ! (deg) Declination (J2000) of the
* dwarf galaxy candidate
real*4 logM_z0_1 (nr__3) ! ([Msun]) Stellar mass estimate assuming z=0.1
real*4 e_logM_z0_1(nr__3) ! ([Msun]) Lower uncertainty bound for the stellar mass
* estimate assuming z=0.1
real*4 E_logM_z0_1_1(nr__3) ! ([Msun]) Upper uncertainty bound for the stellar mass
* estimate assuming z=0.1
real*4 logM_z0_05 (nr__3) ! ([Msun]) Stellar mass estimate assuming z=0.05
real*4 e_logM_z0_05(nr__3) ! ([Msun]) Lower uncertainty bound for the stellar mass
* estimate assuming z=0.05
real*4 E_logM_z0_05_1(nr__3) ! ([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 (nr__4) ! Euclid identifier of the object
real*8 RAdeg_3 (nr__4) ! (deg) Right ascension (J2000) of the
* dwarf galaxy candidate
real*8 DEdeg_3 (nr__4) ! (deg) Declination(J2000) of the
* dwarf galaxy candidate
real*4 logM_zspAll(nr__4) ! ([Msun]) Stellar mass estimate assuming z=z_spec
* using all bands
real*4 e_logM_zspAll(nr__4) ! ([Msun]) Lower uncertainty bound for the stellar
* mass estimate assuming z=z_spec
* using all bands
real*4 E_logM_zspAll_1(nr__4) ! ([Msun]) Upper uncertainty bound for the stellar
* mass estimate assuming z=z_spec
* using all bands
real*4 logM_zspE (nr__4) ! ([Msun]) Stellar mass estimate assuming z=z_spec
* using only Euclid bands
real*4 e_logM_zspE(nr__4) ! ([Msun]) Lower uncertainty bound for the stellar mass
* estimate assuming z=z_spec
* using only Euclid bands
real*4 E_logM_zspE_1(nr__4) ! ([Msun]) Upper uncertainty bound for the stellar mass
* estimate assuming z=z_spec
* using only Euclid bands
real*4 logM_zspSB (nr__4) ! ([Msun]) Stellar mass estimate assuming z=z_spec
* using single burst model (all bands)
real*4 e_logM_zspSB(nr__4) ! ([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(nr__4) ! ([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(i__),RAdeg(i__),DEdeg(i__),Morph(i__),GC_rich(i__),
+ Nucleated(i__),Disturbed(i__),Blue_cored(i__)
if(ar__(1:19) .EQ. '') ID(i__) = iNULL__
c ..............Just test output...........
write(6,1)
+ ID(i__),RAdeg(i__),DEdeg(i__),Morph(i__),GC_rich(i__),
+ Nucleated(i__),Disturbed(i__),Blue_cored(i__)
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(i__),RAdeg_1(i__),DEdeg_1(i__),IEmag(i__),e_IEmag(i__),
+ Area(i__),ell(i__),PA(i__),SB(i__),e_SB(i__)
if(ar__1(1:19) .EQ. '') ID_1(i__) = iNULL__
if(ar__1(42:47) .EQ. '') IEmag(i__) = rNULL__
if(ar__1(49:53) .EQ. '') e_IEmag(i__) = rNULL__
if(ar__1(55:61) .EQ. '') Area(i__) = rNULL__
if(ar__1(63:67) .EQ. '') ell(i__) = rNULL__
if(ar__1(69:74) .EQ. '') PA(i__) = rNULL__
if(ar__1(76:81) .EQ. '') SB(i__) = rNULL__
if(ar__1(83:87) .EQ. '') e_SB(i__) = rNULL__
c ..............Just test output...........
write(6,2)
+ ID_1(i__),RAdeg_1(i__),DEdeg_1(i__),IEmag(i__),e_IEmag(i__),
+ Area(i__),ell(i__),PA(i__),SB(i__),e_SB(i__)
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(i__),n_ID(i__),IEmag_1(i__),e_IEmag_1(i__),EC_IE(i__),
+ e_EC_IE(i__),YEmag(i__),e_YEmag(i__),EC_YE(i__),e_EC_YE(i__),
+ JEmag(i__),e_JEmag(i__),EC_JE(i__),e_EC_JE(i__),HEmag(i__),
+ e_HEmag(i__),EC_HE(i__),e_EC_HE(i__)
if(ar__2(49:54) .EQ. '') YEmag(i__) = rNULL__
if(ar__2(76:81) .EQ. '') JEmag(i__) = rNULL__
if(ar__2(103:108) .EQ. '') HEmag(i__) = rNULL__
c ..............Just test output...........
write(6,3)
+ ID_2(i__),n_ID(i__),IEmag_1(i__),e_IEmag_1(i__),EC_IE(i__),
+ e_EC_IE(i__),YEmag(i__),e_YEmag(i__),EC_YE(i__),e_EC_YE(i__),
+ JEmag(i__),e_JEmag(i__),EC_JE(i__),e_EC_JE(i__),HEmag(i__),
+ e_HEmag(i__),EC_HE(i__),e_EC_HE(i__)
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(i__),RAdeg_2(i__),DEdeg_2(i__),logM_z0_1(i__),
+ e_logM_z0_1(i__),E_logM_z0_1_1(i__),logM_z0_05(i__),
+ e_logM_z0_05(i__),E_logM_z0_05_1(i__)
c ..............Just test output...........
write(6,4)
+ ID_3(i__),RAdeg_2(i__),DEdeg_2(i__),logM_z0_1(i__),
+ e_logM_z0_1(i__),E_logM_z0_1_1(i__),logM_z0_05(i__),
+ e_logM_z0_05(i__),E_logM_z0_05_1(i__)
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(i__),RAdeg_3(i__),DEdeg_3(i__),logM_zspAll(i__),
+ e_logM_zspAll(i__),E_logM_zspAll_1(i__),logM_zspE(i__),
+ e_logM_zspE(i__),E_logM_zspE_1(i__),logM_zspSB(i__),
+ e_logM_zspSB(i__),E_logM_zspSB_1(i__)
c ..............Just test output...........
write(6,5)
+ ID_4(i__),RAdeg_3(i__),DEdeg_3(i__),logM_zspAll(i__),
+ e_logM_zspAll(i__),E_logM_zspAll_1(i__),logM_zspE(i__),
+ e_logM_zspE(i__),E_logM_zspE_1(i__),logM_zspSB(i__),
+ e_logM_zspSB(i__),E_logM_zspSB_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end