Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/573/A129 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/573/A129 HeViCS. SPIRE point-source catalogs (Pappalardo+, 2015)
*================================================================================
*The Herschel Virgo Cluster Survey.
*XVII. SPIRE point-source catalogs and number counts.
* Pappalardo C., Bendo G.J., Bianchi S., Hunt L., Zibetti S., Corbelli E.,
* di Serego Alighieri S., Grossi M., Davies J., Baes M., De Looze I.,
* Fritz J., Pohlen M., Smith M.W.L., Verstappen J., Boquien M., Boselli A.,
* Cortese L., Hughes T., Viaene S., Bizzocchi L., Clemens M.
* <Astron. Astrophys. 573, A129 (2015)>
* =2015A&A...573A.129P
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'hevics.dat' ! *Herschel Virgo Cluster Survey: cross correlation
between 250, 350 and 500um catalogs
integer*4 nr__
parameter (nr__=3102) ! Number of records
character*346 ar__ ! Full-size record
C J2000.0 position composed of: RAdeg DEdeg
integer*4 HVCS ! [1/3102] HeViCS identification number
real*8 RAdeg ! (deg) Right ascension at 250um (J2000.0)
real*8 DEdeg ! (deg) Declination at 250um (J2000.0)
integer*8 objID ! Identification in SDSS-DR10
real*8 RASdeg ! (deg) Right ascension in SDSS (J2000.0)
real*8 DESdeg ! (deg) Declination in SDSS (J2000.0)
real*4 zsp ! [-0.01/7.01]?=0 Spectroscopic redshift in SDSS
real*4 e_zsp ! [0/0.005]?=0 Error in spectroscopic redshift
real*8 zph ! [0/0.9]?=0 Photometric redshift in SDSS
real*8 e_zph ! [0/0.4]?=-1 Error in the photometric redshift
real*8 rmag ! (mag) [9.3/29.3] Extinction corrected r-band AB mag
real*8 F250 ! (mJy) [20/473] Flux density at 250um
real*8 e_F250 ! (mJy) [3/21] Error in the 250um flux estimation
real*8 F350 ! (mJy) [20/321] Flux density at 350um
real*8 e_F350 ! (mJy) [3/10] Error in the 350um flux estimation
real*8 d350 ! (arcsec) [0/12] Distance between the source at 250um
* and the associated source at 350um
real*8 F500 ! (mJy) [20/402] Flux density at 500um
real*8 e_F500 ! (mJy) [3.4/6.1] Error in the 500um flux estimation
real*8 d500 ! (arcsec) [0/18] Distance between the source at 250um
* and the associated source at 500um
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'hevic250.dat' ! Catalog of point sources selected at 250um
integer*4 nr__1
parameter (nr__1=52020) ! Number of records
character*277 ar__1 ! Full-size record
C J2000.0 position composed of: RAdeg DEdeg
integer*4 HVCS250 ! [1/52020] HeViCS identification number
real*8 RAdeg_1 ! (deg) Right ascension at 250um (J2000.0)
real*8 DEdeg_1 ! (deg) Declination at 250um (J2000.0)
real*4 e_RAdeg ! (deg) Right ascension error at 250um
real*4 e_DEdeg ! (deg) Declination error at 250um
real*8 F250_1 ! (mJy) [20/717] Flux density at 250um
real*8 e_F250_1 ! (mJy) [2/47] Error in the 250um flux estimation
integer*8 objID_1 ! ?=0 Identification in SDSS-DR10
real*8 RASdeg_1 ! (deg) ?=0 SDSS right ascension in SDSS (J2000.0)
real*8 DESdeg_1 ! (deg) ?=0 SDSS declination in SDSS (J2000.0)
real*4 zsp_1 ! [-0.01/7.01]?=0 Spectroscopic redshift in SDSS
real*4 e_zsp_1 ! [0/0.005]?=-1 Error in spectroscopic redshift
real*8 zph_1 ! [-0.01/1.0]?=0 Photometric redshift in SDSS
real*8 e_zph_1 ! [0/0.35]?=-1 Error in photometric redshift
real*8 rmag_1 ! (mag) Extinction corrected r-band AB mag
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'hevic350.dat' ! Catalog of point sources selected at 350um
integer*4 nr__2
parameter (nr__2=42278) ! Number of records
character*266 ar__2 ! Full-size record
C J2000.0 position composed of: RAdeg DEdeg
integer*4 HVCS350 ! [1/42278] HeViCS identification number
real*8 RAdeg_2 ! (deg) Right ascension at 350um (J2000.0)
real*8 DEdeg_2 ! (deg) Declination at 350um (J2000.0)
real*4 e_RAdeg_1 ! (deg) Right ascension error at 350um
real*4 e_DEdeg_1 ! (deg) Declination error at 350um
real*8 F350_1 ! (mJy) [20/321] Flux density at 350um
real*8 e_F350_1 ! (mJy) i[2.8/12.6] Error in the 350um flux estimation
integer*8 objID_2 ! ?=0 Identification in SDSS-DR10
real*8 RASdeg_2 ! (deg) ?=0 Right ascension in SDSS (J2000.0)
real*8 DESdeg_2 ! (deg) ?=0 Declination in SDSS (J2000.0)
real*4 zsp_2 ! [-0.01/3.5]?=0 Spectroscopic redshift in SDSS
real*4 e_zsp_2 ! [0/7.8]?=-1 Error in spectroscopic redshift
real*8 zph_2 ! [-0.01/1.0]?=0 Photometric redshift in SDSS
real*8 e_zph_2 ! [0/0.34]?=-1 Error in the photometric redshift
real*8 rmag_2 ! (mag) Extinction corrected r-band AB mag
real*8 d250 ! (arcsec) [0/12] Distance from the associated sources
* at 250um
integer*4 tc ! [0/1] Presence of the source in the total
* catalog
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'hevic500.dat' ! Catalog of point sources selected at 500um
integer*4 nr__3
parameter (nr__3=18691) ! Number of records
character*263 ar__3 ! Full-size record
C J2000.0 position composed of: RAdeg DEdeg
integer*4 HVCS500 ! [1/18691] HeViCS identification number
real*8 RAdeg_3 ! (deg) Right ascension at 500um (J2000.0)
real*8 DEdeg_3 ! (deg) Declination at 500um (J2000.0)
real*4 e_RAdeg_2 ! (deg) Right ascension error at 500um
real*4 e_DEdeg_2 ! (deg) Declination error at 500um
real*8 F500_1 ! (mJy) Flux density at 500um
real*8 e_F500_1 ! (mJy) Error in the 500um flux estimation
integer*8 objID_3 ! ?=0 Identification in SDSS-DR10
real*8 RASdeg_3 ! (deg) ?=0 Right ascension in SDSS (J2000.0)
real*8 DESdeg_3 ! (deg) ?=0 Declination in SDSS (J2000.0)
real*4 zsp_3 ! [-0.01/7.01]?=0 Spectroscopic redshift in SDSS
real*4 e_zsp_3 ! [0/0.05]?=0 Error in spectroscopic redshift
real*8 zph_3 ! [-0.01/1.0]?=0 Photometric redshift in SDSS
real*8 e_zph_3 ! [0/0.34]?=-1 Error in the photometric redshift
real*8 rmag_3 ! (mag) Extinction corrected r-band AB mag
real*8 d250_1 ! (arcsec) [0/18] Distance from the associated source
* at 250um
integer*4 tc_1 ! [0/1] Presence of the source in the total
* catalog
C=============================================================================
C Loading file 'hevics.dat' ! *Herschel Virgo Cluster Survey: cross correlation
* between 250, 350 and 500um catalogs
C Format for file interpretation
1 format(
+ 5X,I4,1X,F18.14,3X,F19.16,3X,I19,2X,F18.14,3X,F19.16,2X,
+ E21.17,1X,E21.17,3X,F8.6,2X,F9.6,4X,F10.7,2X,F19.15,2X,F19.16,
+ 2X,F8.4,4X,F18.16,3X,F21.18,1X,F8.4,4X,F18.16,1X,F21.18)
C Effective file loading
open(unit=1,status='old',file=
+'hevics.dat')
write(6,*) '....Loading file: hevics.dat'
do i__=1,3102
read(1,'(A346)')ar__
read(ar__,1)
+ HVCS,RAdeg,DEdeg,objID,RASdeg,DESdeg,zsp,e_zsp,zph,e_zph,rmag,
+ F250,e_F250,F350,e_F350,d350,F500,e_F500,d500
c ..............Just test output...........
write(6,1)
+ HVCS,RAdeg,DEdeg,objID,RASdeg,DESdeg,zsp,e_zsp,zph,e_zph,rmag,
+ F250,e_F250,F350,e_F350,d350,F500,e_F500,d500
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'hevic250.dat' ! Catalog of point sources selected at 250um
C Format for file interpretation
2 format(
+ 8X,I5,1X,F18.14,1X,F20.16,1X,E21.17,1X,E21.17,1X,F19.15,1X,
+ F19.16,1X,I19,1X,F18.14,1X,F20.16,1X,E21.17,1X,E21.17,1X,
+ F11.8,1X,F12.9,1X,F10.7)
C Effective file loading
open(unit=1,status='old',file=
+'hevic250.dat')
write(6,*) '....Loading file: hevic250.dat'
do i__=1,52020
read(1,'(A277)')ar__1
read(ar__1,2)
+ HVCS250,RAdeg_1,DEdeg_1,e_RAdeg,e_DEdeg,F250_1,e_F250_1,
+ objID_1,RASdeg_1,DESdeg_1,zsp_1,e_zsp_1,zph_1,e_zph_1,rmag_1
c ..............Just test output...........
write(6,2)
+ HVCS250,RAdeg_1,DEdeg_1,e_RAdeg,e_DEdeg,F250_1,e_F250_1,
+ objID_1,RASdeg_1,DESdeg_1,zsp_1,e_zsp_1,zph_1,e_zph_1,rmag_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'hevic350.dat' ! Catalog of point sources selected at 350um
C Format for file interpretation
3 format(
+ 8X,I5,1X,F7.3,1X,F8.5,1X,E21.17,1X,E21.17,1X,F8.4,1X,F19.16,
+ 1X,I19,1X,F18.14,1X,F19.16,1X,E22.17,1X,E21.17,1X,F10.7,1X,
+ F12.9,1X,F10.7,1X,F21.18,1X,I1)
C Effective file loading
open(unit=1,status='old',file=
+'hevic350.dat')
write(6,*) '....Loading file: hevic350.dat'
do i__=1,42278
read(1,'(A266)')ar__2
read(ar__2,3)
+ HVCS350,RAdeg_2,DEdeg_2,e_RAdeg_1,e_DEdeg_1,F350_1,e_F350_1,
+ objID_2,RASdeg_2,DESdeg_2,zsp_2,e_zsp_2,zph_2,e_zph_2,rmag_2,
+ d250,tc
c ..............Just test output...........
write(6,3)
+ HVCS350,RAdeg_2,DEdeg_2,e_RAdeg_1,e_DEdeg_1,F350_1,e_F350_1,
+ objID_2,RASdeg_2,DESdeg_2,zsp_2,e_zsp_2,zph_2,e_zph_2,rmag_2,
+ d250,tc
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'hevic500.dat' ! Catalog of point sources selected at 500um
C Format for file interpretation
4 format(
+ 8X,I5,1X,F7.3,1X,F8.5,1X,E21.17,1X,E21.17,1X,F8.4,1X,F18.16,
+ 1X,I19,1X,F18.14,1X,F19.16,1X,E22.17,1X,E21.17,1X,F11.8,1X,
+ F9.6,1X,F10.7,1X,F21.18,1X,I1)
C Effective file loading
open(unit=1,status='old',file=
+'hevic500.dat')
write(6,*) '....Loading file: hevic500.dat'
do i__=1,18691
read(1,'(A263)')ar__3
read(ar__3,4)
+ HVCS500,RAdeg_3,DEdeg_3,e_RAdeg_2,e_DEdeg_2,F500_1,e_F500_1,
+ objID_3,RASdeg_3,DESdeg_3,zsp_3,e_zsp_3,zph_3,e_zph_3,rmag_3,
+ d250_1,tc_1
c ..............Just test output...........
write(6,4)
+ HVCS500,RAdeg_3,DEdeg_3,e_RAdeg_2,e_DEdeg_2,F500_1,e_F500_1,
+ objID_3,RASdeg_3,DESdeg_3,zsp_3,e_zsp_3,zph_3,e_zph_3,rmag_3,
+ d250_1,tc_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end