Conversion of standardized ReadMe file for
file /./ftp/cats/J/MNRAS/471/629 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-May-17
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 ! Designation, B-HiZELS_NN
real*8 RAdeg ! (deg) Right ascension (J2000)
real*8 DEdeg ! (deg) Declination (J2000)
real*4 zdualNB ! dual-NB redshift
real*4 zsp ! ? Spectroscopic redshift
real*4 Imag ! (mag) I magnitude
character*50 Note ! 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 ! Designation, B-HiZELS_NB392_NN
real*8 RAdeg_1 ! (deg) Right ascension (J2000)
real*8 DEdeg_1 ! (deg) Declination (J2000)
real*4 Imag_1 ! (mag) ?=99 I magnitude
real*4 Lineflux ! (10-16mW/m2) Line flux in NB392 (392nm) filter
integer*4 EW ! (0.1nm) Observed equivalent width
integer*4 LAE_z2p2 ! [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 ! Designation, B-HiZELS_stV_NN
real*8 RAdeg_2 ! (deg) Right ascension (J2000)
real*8 DEdeg_2 ! (deg) Declination (J2000)
real*4 lineflux_1 ! (10-19W/m2) Line flux in stV (410nm) filter
integer*4 EW_1 ! (0.1nm) Observed equivalent width
real*4 Imag_2 ! (mag) I magnitude
integer*4 LAE_z2p4 ! [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 ! Designation, B-HiZELS_NB501_NN
real*8 RAdeg_3 ! (deg) Right ascension (J2000)
real*8 DEdeg_3 ! (deg) Declination (J2000)
real*4 Imag_3 ! (mag) ?=99 I magnitude
real*4 lineflux_2 ! (10-19W/m2) Line flux in NB501 (501nm) filter
integer*4 EW_2 ! (0.1nm) Observed equivalent width
integer*4 LAE_z3p1 ! [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 ! Designation, B-HiZELS_NB921_NNNN
real*8 RAdeg_4 ! (deg) Right ascension (J2000)
real*8 DEdeg_4 ! (deg) Declination (J2000)
real*4 lineflux_3 ! (10-19W/m2) Line flux in NB921 (919nm) filter
integer*4 EW_3 ! (0.1nm) Observed equivalent width
real*4 Imag_4 ! (mag) ?=99 I magnitude
integer*4 Unclassed ! [0/1] 1 for unclassed
integer*4 HA_z0p4 ! [0/1] 1 for H{alpha} at z=0.4
integer*4 O3_z0p8 ! [0/1] 1 for H{beta}/[OIII] at z=0.8
integer*4 O2_z1p47 ! [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 ! Designation, B-HiZELS_NBH_NNN
real*8 RAdeg_5 ! (deg) Right ascension (J2000)
real*8 DEdeg_5 ! (deg) Declination (J2000)
real*4 lineflux_4 ! (10-19W/m2) Line flux in NB_H_ (1620nm) filter
integer*4 EW_4 ! (0.1nm) Observed equivalent width
real*4 Imag_5 ! (mag) ?=99 I magnitude
integer*4 Unclassed_1 ! [0/1] 1 for unclassed
integer*4 HA_z1p5 ! [0/1] 1 for H{alpha} at z=1.47
integer*4 O3_z2p2 ! [0/1] 1 for H{beta}/[OIII] at z=2.2
integer*4 O2_z3p3 ! [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 ! Designation, B-HiZELS_NBK_NNN
real*8 RAdeg_6 ! (deg) Right ascension (J2000)
real*8 DEdeg_6 ! (deg) Declination (J2000)
real*4 lineflux_5 ! (10-19W/m2) Line flux in NB_K_ (2120nm) filter
integer*4 EW_5 ! (0.1nm) Observed equivalent width
real*4 Imag_6 ! (mag) ?=99 I magnitude
integer*4 Unclassed_2 ! [0/1] 1 for unclassed
integer*4 Lowz_sel ! [0/1] 1 for z<1
integer*4 HA_z2p2 ! [0/1] 1 for H{alpha} at z=2.23
integer*4 O3_z3p3 ! [0/1] 1 for H{beta}/[OIII] at z3.2
integer*4 O2_z4p7 ! [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,RAdeg,DEdeg,zdualNB,zsp,Imag,Note
if(ar__(34:37) .EQ. '') zsp = rNULL__
c ..............Just test output...........
write(6,1)ID,RAdeg,DEdeg,zdualNB,zsp,Imag,Note
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,RAdeg_1,DEdeg_1,Imag_1,Lineflux,EW,LAE_z2p2
c ..............Just test output...........
write(6,2)ID_1,RAdeg_1,DEdeg_1,Imag_1,Lineflux,EW,LAE_z2p2
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,RAdeg_2,DEdeg_2,lineflux_1,EW_1,Imag_2,LAE_z2p4
c ..............Just test output...........
write(6,3)
+ ID_2,RAdeg_2,DEdeg_2,lineflux_1,EW_1,Imag_2,LAE_z2p4
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,RAdeg_3,DEdeg_3,Imag_3,lineflux_2,EW_2,LAE_z3p1
c ..............Just test output...........
write(6,4)
+ ID_3,RAdeg_3,DEdeg_3,Imag_3,lineflux_2,EW_2,LAE_z3p1
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,RAdeg_4,DEdeg_4,lineflux_3,EW_3,Imag_4,Unclassed,HA_z0p4,
+ O3_z0p8,O2_z1p47
c ..............Just test output...........
write(6,5)
+ ID_4,RAdeg_4,DEdeg_4,lineflux_3,EW_3,Imag_4,Unclassed,HA_z0p4,
+ O3_z0p8,O2_z1p47
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,RAdeg_5,DEdeg_5,lineflux_4,EW_4,Imag_5,Unclassed_1,
+ HA_z1p5,O3_z2p2,O2_z3p3
c ..............Just test output...........
write(6,6)
+ ID_5,RAdeg_5,DEdeg_5,lineflux_4,EW_4,Imag_5,Unclassed_1,
+ HA_z1p5,O3_z2p2,O2_z3p3
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,RAdeg_6,DEdeg_6,lineflux_5,EW_5,Imag_6,Unclassed_2,
+ Lowz_sel,HA_z2p2,O3_z3p3,O2_z4p7
c ..............Just test output...........
write(6,7)
+ ID_6,RAdeg_6,DEdeg_6,lineflux_5,EW_5,Imag_6,Unclassed_2,
+ Lowz_sel,HA_z2p2,O3_z3p3,O2_z4p7
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end