Conversion of standardized ReadMe file for
file /./ftp/cats/J/MNRAS/471/629 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-May-19
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/MNRAS/471/629 Bootes-HiZELS. Em-line galaxies at z=0.4-4.7 (Matthee+, 2017)
*================================================================================
*Bootes-HiZELS: an optical to near-infrared survey of emission-line galaxies at
*z = 0.4-4.7.
* Matthee J., Sobral D., Best P., Smail I., Bian F., Darvish B.,
* Rottgering H., Fan X.
* <Mon. Not. R. Astron. Soc., 471, 629-649 (2017)>
* =2017MNRAS.471..629M (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'tablec1.dat' ! List of sources that are observed as
dual-emitters (line-emitters in at least
two narrow-bands)
integer*4 nr__
parameter (nr__=42) ! Number of records
character*93 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
character*11 ID (nr__) ! Designation, B-HiZELS_NN
real*8 RAdeg (nr__) ! (deg) Right ascension (J2000)
real*8 DEdeg (nr__) ! (deg) Declination (J2000)
real*4 zdualNB (nr__) ! dual-NB redshift
real*4 zsp (nr__) ! ? Spectroscopic redshift
real*4 Imag (nr__) ! (mag) I magnitude
character*50 Note (nr__) ! list of emission lines that are detected.
* X-ray- and LOFAR-detected sources are indicated
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'tabled1.dat' ! Catalogue of NB392 line-emitters
integer*4 nr__1
parameter (nr__1=57) ! Number of records
character*49 ar__1 ! Full-size record
C J2000 position composed of: RAdeg DEdeg
character*17 ID_1 (nr__1) ! Designation, B-HiZELS_NB392_NN
real*8 RAdeg_1 (nr__1) ! (deg) Right ascension (J2000)
real*8 DEdeg_1 (nr__1) ! (deg) Declination (J2000)
real*4 Imag_1 (nr__1) ! (mag) ?=99 I magnitude
real*4 Lineflux (nr__1) ! (10-16mW/m2) Line flux in NB392 (392nm) filter
integer*4 EW (nr__1) ! (0.1nm) Observed equivalent width
integer*4 LAE_z2p2 (nr__1) ! [0/1] Class flag (1)
*Note (1): Class flag as follows:
* 0 = unclassed
* 1 = LAE at z=2.2
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'tabled2.dat' ! Catalogue of stV line-emitters
integer*4 nr__2
parameter (nr__2=39) ! Number of records
character*49 ar__2 ! Full-size record
C J2000 position composed of: RAdeg DEdeg
character*15 ID_2 (nr__2) ! Designation, B-HiZELS_stV_NN
real*8 RAdeg_2 (nr__2) ! (deg) Right ascension (J2000)
real*8 DEdeg_2 (nr__2) ! (deg) Declination (J2000)
real*4 lineflux_1 (nr__2) ! (10-19W/m2) Line flux in stV (410nm) filter
integer*4 EW_1 (nr__2) ! (0.1nm) Observed equivalent width
real*4 Imag_2 (nr__2) ! (mag) I magnitude
integer*4 LAE_z2p4 (nr__2) ! [0/1] Class flag (1)
*Note (1): Class flag as follows:
* 0 = unclassed
* 1 = LAE at z=2.4
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'tabled3.dat' ! Catalogue of NB501 line-emitters
integer*4 nr__3
parameter (nr__3=65) ! Number of records
character*49 ar__3 ! Full-size record
C J2000 position composed of: RAdeg DEdeg
character*17 ID_3 (nr__3) ! Designation, B-HiZELS_NB501_NN
real*8 RAdeg_3 (nr__3) ! (deg) Right ascension (J2000)
real*8 DEdeg_3 (nr__3) ! (deg) Declination (J2000)
real*4 Imag_3 (nr__3) ! (mag) ?=99 I magnitude
real*4 lineflux_2 (nr__3) ! (10-19W/m2) Line flux in NB501 (501nm) filter
integer*4 EW_2 (nr__3) ! (0.1nm) Observed equivalent width
integer*4 LAE_z3p1 (nr__3) ! [0/1] Class flag (1)
*Note (1): Class flag as follows:
* 0 = unclassed
* 1 = LAE at z=3.1
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'tabled4.dat' ! Catalogue of NB921 line-emitters
integer*4 nr__4
parameter (nr__4=1161) ! Number of records
character*58 ar__4 ! Full-size record
C J2000 position composed of: RAdeg DEdeg
character*19 ID_4 (nr__4) ! Designation, B-HiZELS_NB921_NNNN
real*8 RAdeg_4 (nr__4) ! (deg) Right ascension (J2000)
real*8 DEdeg_4 (nr__4) ! (deg) Declination (J2000)
real*4 lineflux_3 (nr__4) ! (10-19W/m2) Line flux in NB921 (919nm) filter
integer*4 EW_3 (nr__4) ! (0.1nm) Observed equivalent width
real*4 Imag_4 (nr__4) ! (mag) ?=99 I magnitude
integer*4 Unclassed (nr__4) ! [0/1] 1 for unclassed
integer*4 HA_z0p4 (nr__4) ! [0/1] 1 for H{alpha} at z=0.4
integer*4 O3_z0p8 (nr__4) ! [0/1] 1 for H{beta}/[OIII] at z=0.8
integer*4 O2_z1p47 (nr__4) ! [0/1] 1 for [OII] at z=1.47
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'tabled5.dat' ! Catalogue of NBH line-emitters
integer*4 nr__5
parameter (nr__5=301) ! Number of records
character*55 ar__5 ! Full-size record
C J2000 position composed of: RAdeg DEdeg
character*16 ID_5 (nr__5) ! Designation, B-HiZELS_NBH_NNN
real*8 RAdeg_5 (nr__5) ! (deg) Right ascension (J2000)
real*8 DEdeg_5 (nr__5) ! (deg) Declination (J2000)
real*4 lineflux_4 (nr__5) ! (10-19W/m2) Line flux in NB_H_ (1620nm) filter
integer*4 EW_4 (nr__5) ! (0.1nm) Observed equivalent width
real*4 Imag_5 (nr__5) ! (mag) ?=99 I magnitude
integer*4 Unclassed_1(nr__5) ! [0/1] 1 for unclassed
integer*4 HA_z1p5 (nr__5) ! [0/1] 1 for H{alpha} at z=1.47
integer*4 O3_z2p2 (nr__5) ! [0/1] 1 for H{beta}/[OIII] at z=2.2
integer*4 O2_z3p3 (nr__5) ! [0/1] 1 for [OII] at z=3.3
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'tabled6.dat' ! Catalogue of NBK line-emitters
integer*4 nr__6
parameter (nr__6=255) ! Number of records
character*57 ar__6 ! Full-size record
C J2000 position composed of: RAdeg DEdeg
character*16 ID_6 (nr__6) ! Designation, B-HiZELS_NBK_NNN
real*8 RAdeg_6 (nr__6) ! (deg) Right ascension (J2000)
real*8 DEdeg_6 (nr__6) ! (deg) Declination (J2000)
real*4 lineflux_5 (nr__6) ! (10-19W/m2) Line flux in NB_K_ (2120nm) filter
integer*4 EW_5 (nr__6) ! (0.1nm) Observed equivalent width
real*4 Imag_6 (nr__6) ! (mag) ?=99 I magnitude
integer*4 Unclassed_2(nr__6) ! [0/1] 1 for unclassed
integer*4 Lowz_sel (nr__6) ! [0/1] 1 for z<1
integer*4 HA_z2p2 (nr__6) ! [0/1] 1 for H{alpha} at z=2.23
integer*4 O3_z3p3 (nr__6) ! [0/1] 1 for H{beta}/[OIII] at z3.2
integer*4 O2_z4p7 (nr__6) ! [0/1] 1 for [OII] at z=4.7
C=============================================================================
C Loading file 'tablec1.dat' ! List of sources that are observed as
* dual-emitters (line-emitters in at least
* two narrow-bands)
C Format for file interpretation
1 format(A11,1X,F7.3,1X,F7.4,1X,F4.2,1X,F4.2,1X,F4.1,1X,A50)
C Effective file loading
open(unit=1,status='old',file=
+'tablec1.dat')
write(6,*) '....Loading file: tablec1.dat'
do i__=1,42
read(1,'(A93)')ar__
read(ar__,1)
+ ID(i__),RAdeg(i__),DEdeg(i__),zdualNB(i__),zsp(i__),Imag(i__),
+ Note(i__)
if(ar__(34:37) .EQ. '') zsp(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ ID(i__),RAdeg(i__),DEdeg(i__),zdualNB(i__),zsp(i__),Imag(i__),
+ Note(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'tabled1.dat' ! Catalogue of NB392 line-emitters
C Format for file interpretation
2 format(A17,1X,F7.3,1X,F7.4,1X,F4.1,1X,F4.1,1X,I3,1X,I1)
C Effective file loading
open(unit=1,status='old',file=
+'tabled1.dat')
write(6,*) '....Loading file: tabled1.dat'
do i__=1,57
read(1,'(A49)')ar__1
read(ar__1,2)
+ ID_1(i__),RAdeg_1(i__),DEdeg_1(i__),Imag_1(i__),Lineflux(i__),
+ EW(i__),LAE_z2p2(i__)
c ..............Just test output...........
write(6,2)
+ ID_1(i__),RAdeg_1(i__),DEdeg_1(i__),Imag_1(i__),Lineflux(i__),
+ EW(i__),LAE_z2p2(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'tabled2.dat' ! Catalogue of stV line-emitters
C Format for file interpretation
3 format(A15,1X,F7.3,1X,F7.4,1X,F5.1,1X,I4,1X,F4.1,1X,I1)
C Effective file loading
open(unit=1,status='old',file=
+'tabled2.dat')
write(6,*) '....Loading file: tabled2.dat'
do i__=1,39
read(1,'(A49)')ar__2
read(ar__2,3)
+ ID_2(i__),RAdeg_2(i__),DEdeg_2(i__),lineflux_1(i__),EW_1(i__),
+ Imag_2(i__),LAE_z2p4(i__)
c ..............Just test output...........
write(6,3)
+ ID_2(i__),RAdeg_2(i__),DEdeg_2(i__),lineflux_1(i__),EW_1(i__),
+ Imag_2(i__),LAE_z2p4(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'tabled3.dat' ! Catalogue of NB501 line-emitters
C Format for file interpretation
4 format(A17,1X,F7.3,1X,F7.4,1X,F4.1,1X,F4.1,1X,I3,1X,I1)
C Effective file loading
open(unit=1,status='old',file=
+'tabled3.dat')
write(6,*) '....Loading file: tabled3.dat'
do i__=1,65
read(1,'(A49)')ar__3
read(ar__3,4)
+ ID_3(i__),RAdeg_3(i__),DEdeg_3(i__),Imag_3(i__),
+ lineflux_2(i__),EW_2(i__),LAE_z3p1(i__)
c ..............Just test output...........
write(6,4)
+ ID_3(i__),RAdeg_3(i__),DEdeg_3(i__),Imag_3(i__),
+ lineflux_2(i__),EW_2(i__),LAE_z3p1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'tabled4.dat' ! Catalogue of NB921 line-emitters
C Format for file interpretation
5 format(
+ A19,1X,F7.3,1X,F7.4,1X,F4.1,1X,I4,1X,F4.1,1X,I1,1X,I1,1X,I1,
+ 1X,I1)
C Effective file loading
open(unit=1,status='old',file=
+'tabled4.dat')
write(6,*) '....Loading file: tabled4.dat'
do i__=1,1161
read(1,'(A58)')ar__4
read(ar__4,5)
+ ID_4(i__),RAdeg_4(i__),DEdeg_4(i__),lineflux_3(i__),EW_3(i__),
+ Imag_4(i__),Unclassed(i__),HA_z0p4(i__),O3_z0p8(i__),
+ O2_z1p47(i__)
c ..............Just test output...........
write(6,5)
+ ID_4(i__),RAdeg_4(i__),DEdeg_4(i__),lineflux_3(i__),EW_3(i__),
+ Imag_4(i__),Unclassed(i__),HA_z0p4(i__),O3_z0p8(i__),
+ O2_z1p47(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'tabled5.dat' ! Catalogue of NBH line-emitters
C Format for file interpretation
6 format(
+ A16,1X,F7.3,1X,F7.4,1X,F4.1,1X,I4,1X,F4.1,1X,I1,1X,I1,1X,I1,
+ 1X,I1)
C Effective file loading
open(unit=1,status='old',file=
+'tabled5.dat')
write(6,*) '....Loading file: tabled5.dat'
do i__=1,301
read(1,'(A55)')ar__5
read(ar__5,6)
+ ID_5(i__),RAdeg_5(i__),DEdeg_5(i__),lineflux_4(i__),EW_4(i__),
+ Imag_5(i__),Unclassed_1(i__),HA_z1p5(i__),O3_z2p2(i__),
+ O2_z3p3(i__)
c ..............Just test output...........
write(6,6)
+ ID_5(i__),RAdeg_5(i__),DEdeg_5(i__),lineflux_4(i__),EW_4(i__),
+ Imag_5(i__),Unclassed_1(i__),HA_z1p5(i__),O3_z2p2(i__),
+ O2_z3p3(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'tabled6.dat' ! Catalogue of NBK line-emitters
C Format for file interpretation
7 format(
+ A16,1X,F7.3,1X,F7.4,1X,F4.1,1X,I4,1X,F4.1,1X,I1,1X,I1,1X,I1,
+ 1X,I1,1X,I1)
C Effective file loading
open(unit=1,status='old',file=
+'tabled6.dat')
write(6,*) '....Loading file: tabled6.dat'
do i__=1,255
read(1,'(A57)')ar__6
read(ar__6,7)
+ ID_6(i__),RAdeg_6(i__),DEdeg_6(i__),lineflux_5(i__),EW_5(i__),
+ Imag_6(i__),Unclassed_2(i__),Lowz_sel(i__),HA_z2p2(i__),
+ O3_z3p3(i__),O2_z4p7(i__)
c ..............Just test output...........
write(6,7)
+ ID_6(i__),RAdeg_6(i__),DEdeg_6(i__),lineflux_5(i__),EW_5(i__),
+ Imag_6(i__),Unclassed_2(i__),Lowz_sel(i__),HA_z2p2(i__),
+ O3_z3p3(i__),O2_z4p7(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end