Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/573/A129 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/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 (nr__) ! [1/3102] HeViCS identification number
real*8 RAdeg (nr__) ! (deg) Right ascension at 250um (J2000.0)
real*8 DEdeg (nr__) ! (deg) Declination at 250um (J2000.0)
integer*8 objID (nr__) ! Identification in SDSS-DR10
real*8 RASdeg (nr__) ! (deg) Right ascension in SDSS (J2000.0)
real*8 DESdeg (nr__) ! (deg) Declination in SDSS (J2000.0)
real*4 zsp (nr__) ! [-0.01/7.01]?=0 Spectroscopic redshift in SDSS
real*4 e_zsp (nr__) ! [0/0.005]?=0 Error in spectroscopic redshift
real*8 zph (nr__) ! [0/0.9]?=0 Photometric redshift in SDSS
real*8 e_zph (nr__) ! [0/0.4]?=-1 Error in the photometric redshift
real*8 rmag (nr__) ! (mag) [9.3/29.3] Extinction corrected r-band AB mag
real*8 F250 (nr__) ! (mJy) [20/473] Flux density at 250um
real*8 e_F250 (nr__) ! (mJy) [3/21] Error in the 250um flux estimation
real*8 F350 (nr__) ! (mJy) [20/321] Flux density at 350um
real*8 e_F350 (nr__) ! (mJy) [3/10] Error in the 350um flux estimation
real*8 d350 (nr__) ! (arcsec) [0/12] Distance between the source at 250um
* and the associated source at 350um
real*8 F500 (nr__) ! (mJy) [20/402] Flux density at 500um
real*8 e_F500 (nr__) ! (mJy) [3.4/6.1] Error in the 500um flux estimation
real*8 d500 (nr__) ! (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 (nr__1) ! [1/52020] HeViCS identification number
real*8 RAdeg_1 (nr__1) ! (deg) Right ascension at 250um (J2000.0)
real*8 DEdeg_1 (nr__1) ! (deg) Declination at 250um (J2000.0)
real*4 e_RAdeg (nr__1) ! (deg) Right ascension error at 250um
real*4 e_DEdeg (nr__1) ! (deg) Declination error at 250um
real*8 F250_1 (nr__1) ! (mJy) [20/717] Flux density at 250um
real*8 e_F250_1 (nr__1) ! (mJy) [2/47] Error in the 250um flux estimation
integer*8 objID_1 (nr__1) ! ?=0 Identification in SDSS-DR10
real*8 RASdeg_1 (nr__1) ! (deg) ?=0 SDSS right ascension in SDSS (J2000.0)
real*8 DESdeg_1 (nr__1) ! (deg) ?=0 SDSS declination in SDSS (J2000.0)
real*4 zsp_1 (nr__1) ! [-0.01/7.01]?=0 Spectroscopic redshift in SDSS
real*4 e_zsp_1 (nr__1) ! [0/0.005]?=-1 Error in spectroscopic redshift
real*8 zph_1 (nr__1) ! [-0.01/1.0]?=0 Photometric redshift in SDSS
real*8 e_zph_1 (nr__1) ! [0/0.35]?=-1 Error in photometric redshift
real*8 rmag_1 (nr__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 (nr__2) ! [1/42278] HeViCS identification number
real*8 RAdeg_2 (nr__2) ! (deg) Right ascension at 350um (J2000.0)
real*8 DEdeg_2 (nr__2) ! (deg) Declination at 350um (J2000.0)
real*4 e_RAdeg_1 (nr__2) ! (deg) Right ascension error at 350um
real*4 e_DEdeg_1 (nr__2) ! (deg) Declination error at 350um
real*8 F350_1 (nr__2) ! (mJy) [20/321] Flux density at 350um
real*8 e_F350_1 (nr__2) ! (mJy) i[2.8/12.6] Error in the 350um flux estimation
integer*8 objID_2 (nr__2) ! ?=0 Identification in SDSS-DR10
real*8 RASdeg_2 (nr__2) ! (deg) ?=0 Right ascension in SDSS (J2000.0)
real*8 DESdeg_2 (nr__2) ! (deg) ?=0 Declination in SDSS (J2000.0)
real*4 zsp_2 (nr__2) ! [-0.01/3.5]?=0 Spectroscopic redshift in SDSS
real*4 e_zsp_2 (nr__2) ! [0/7.8]?=-1 Error in spectroscopic redshift
real*8 zph_2 (nr__2) ! [-0.01/1.0]?=0 Photometric redshift in SDSS
real*8 e_zph_2 (nr__2) ! [0/0.34]?=-1 Error in the photometric redshift
real*8 rmag_2 (nr__2) ! (mag) Extinction corrected r-band AB mag
real*8 d250 (nr__2) ! (arcsec) [0/12] Distance from the associated sources
* at 250um
integer*4 tc (nr__2) ! [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 (nr__3) ! [1/18691] HeViCS identification number
real*8 RAdeg_3 (nr__3) ! (deg) Right ascension at 500um (J2000.0)
real*8 DEdeg_3 (nr__3) ! (deg) Declination at 500um (J2000.0)
real*4 e_RAdeg_2 (nr__3) ! (deg) Right ascension error at 500um
real*4 e_DEdeg_2 (nr__3) ! (deg) Declination error at 500um
real*8 F500_1 (nr__3) ! (mJy) Flux density at 500um
real*8 e_F500_1 (nr__3) ! (mJy) Error in the 500um flux estimation
integer*8 objID_3 (nr__3) ! ?=0 Identification in SDSS-DR10
real*8 RASdeg_3 (nr__3) ! (deg) ?=0 Right ascension in SDSS (J2000.0)
real*8 DESdeg_3 (nr__3) ! (deg) ?=0 Declination in SDSS (J2000.0)
real*4 zsp_3 (nr__3) ! [-0.01/7.01]?=0 Spectroscopic redshift in SDSS
real*4 e_zsp_3 (nr__3) ! [0/0.05]?=0 Error in spectroscopic redshift
real*8 zph_3 (nr__3) ! [-0.01/1.0]?=0 Photometric redshift in SDSS
real*8 e_zph_3 (nr__3) ! [0/0.34]?=-1 Error in the photometric redshift
real*8 rmag_3 (nr__3) ! (mag) Extinction corrected r-band AB mag
real*8 d250_1 (nr__3) ! (arcsec) [0/18] Distance from the associated source
* at 250um
integer*4 tc_1 (nr__3) ! [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(i__),RAdeg(i__),DEdeg(i__),objID(i__),RASdeg(i__),
+ DESdeg(i__),zsp(i__),e_zsp(i__),zph(i__),e_zph(i__),rmag(i__),
+ F250(i__),e_F250(i__),F350(i__),e_F350(i__),d350(i__),
+ F500(i__),e_F500(i__),d500(i__)
c ..............Just test output...........
write(6,1)
+ HVCS(i__),RAdeg(i__),DEdeg(i__),objID(i__),RASdeg(i__),
+ DESdeg(i__),zsp(i__),e_zsp(i__),zph(i__),e_zph(i__),rmag(i__),
+ F250(i__),e_F250(i__),F350(i__),e_F350(i__),d350(i__),
+ F500(i__),e_F500(i__),d500(i__)
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(i__),RAdeg_1(i__),DEdeg_1(i__),e_RAdeg(i__),
+ e_DEdeg(i__),F250_1(i__),e_F250_1(i__),objID_1(i__),
+ RASdeg_1(i__),DESdeg_1(i__),zsp_1(i__),e_zsp_1(i__),
+ zph_1(i__),e_zph_1(i__),rmag_1(i__)
c ..............Just test output...........
write(6,2)
+ HVCS250(i__),RAdeg_1(i__),DEdeg_1(i__),e_RAdeg(i__),
+ e_DEdeg(i__),F250_1(i__),e_F250_1(i__),objID_1(i__),
+ RASdeg_1(i__),DESdeg_1(i__),zsp_1(i__),e_zsp_1(i__),
+ zph_1(i__),e_zph_1(i__),rmag_1(i__)
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(i__),RAdeg_2(i__),DEdeg_2(i__),e_RAdeg_1(i__),
+ e_DEdeg_1(i__),F350_1(i__),e_F350_1(i__),objID_2(i__),
+ RASdeg_2(i__),DESdeg_2(i__),zsp_2(i__),e_zsp_2(i__),
+ zph_2(i__),e_zph_2(i__),rmag_2(i__),d250(i__),tc(i__)
c ..............Just test output...........
write(6,3)
+ HVCS350(i__),RAdeg_2(i__),DEdeg_2(i__),e_RAdeg_1(i__),
+ e_DEdeg_1(i__),F350_1(i__),e_F350_1(i__),objID_2(i__),
+ RASdeg_2(i__),DESdeg_2(i__),zsp_2(i__),e_zsp_2(i__),
+ zph_2(i__),e_zph_2(i__),rmag_2(i__),d250(i__),tc(i__)
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(i__),RAdeg_3(i__),DEdeg_3(i__),e_RAdeg_2(i__),
+ e_DEdeg_2(i__),F500_1(i__),e_F500_1(i__),objID_3(i__),
+ RASdeg_3(i__),DESdeg_3(i__),zsp_3(i__),e_zsp_3(i__),
+ zph_3(i__),e_zph_3(i__),rmag_3(i__),d250_1(i__),tc_1(i__)
c ..............Just test output...........
write(6,4)
+ HVCS500(i__),RAdeg_3(i__),DEdeg_3(i__),e_RAdeg_2(i__),
+ e_DEdeg_2(i__),F500_1(i__),e_F500_1(i__),objID_3(i__),
+ RASdeg_3(i__),DESdeg_3(i__),zsp_3(i__),e_zsp_3(i__),
+ zph_3(i__),e_zph_3(i__),rmag_3(i__),d250_1(i__),tc_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end