Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/676/184 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 2024-Apr-16
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/ApJ/676/184 Peculiar motion away from the Local Void (Tully+, 2008)
*================================================================================
*Our peculiar motion away from the Local Void.
* Tully R.B., Shaya E.J., Karachentsev I.D., Courtois H.M., Kocevski D.D.,
* Rizzi L., Peel A.
* <Astrophys. J., 676, 184-205 (2008)>
* =2008ApJ...676..184T
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Distance estimates for 1791 galaxies
(from erratum 2008ApJ...686.1523T)
integer*4 nr__
parameter (nr__=1791) ! Number of records
character*202 ar__ ! Full-size record
C J2000 position composed of: RAh RAm RAs DE- DEd DEm DEs
real*8 RAdeg (nr__) ! (deg) Right Ascension J2000
real*8 DEdeg (nr__) ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 RAh (nr__) ! (h) Hour of Right Ascension (J2000)
integer*4 RAm (nr__) ! (min) Minute of Right Ascension (J2000)
real*4 RAs (nr__) ! (s) Second of Right Ascension (J2000)
character*1 DE_ (nr__) ! Sign of the Declination (J2000)
integer*4 DEd (nr__) ! (deg) Degree of Declination (J2000)
integer*4 DEm (nr__) ! (arcmin) Arcminute of Declination (J2000)
integer*4 DEs (nr__) ! (arcsec) Arcsecond of Declination (J2000)
integer*4 PGC (nr__) ! Principal Galaxies Catalogue name
* (leda.univ-lyon1.fr)
character*11 Name (nr__) ! Common name
integer*4 GrID (nr__) ! Group ID for cross reference with Table 2
character*8 NBG (nr__) ! Nearby Galaxies Catalog filament/group ID
real*8 GLON (nr__) ! (deg) Galactic longitude
real*8 GLAT (nr__) ! (deg) Galactic latitude
real*8 SGL (nr__) ! (deg) [0,360[ Supergalactic longitude
real*8 SGB (nr__) ! (deg) [-90,+90] Supergalactic latitude
integer*4 T (nr__) ! Numeric morphological code
real*4 E_B_V (nr__) ! (mag) Differential Galactic Reddening
* (Schlegel et al., 1998ApJ...500..525S)
real*4 BT (nr__) ! (mag) Total B magnitude, mostly from 3rd Reference
* Catalogue (Cat. VII/155)
integer*4 HRV (nr__) ! (km/s) ? Heliocentric radial velocity
integer*4 VGSR (nr__) ! (km/s) ? Velocity in the Galactic standard of rest
integer*4 VLS (nr__) ! (km/s) ? Velocity in the Local Sheet reference frame
integer*4 VCMB (nr__) ! (km/s) ? Velocity in the CMB reference frame
real*4 b_a (nr__) ! [0,1]? Ratio of minor axis to major axis
integer*4 Nb_a (nr__) ! ? Number of sources for the measurement of
* axial ratio
real*4 Bmag (nr__) ! (mag) ? Total B magnitude from CCD area photometry
real*4 Rmag (nr__) ! (mag) ? Total R magnitude from CCD area photometry
integer*4 NR (nr__) ! ? Number of sources for R magnitude
real*4 Imag (nr__) ! (mag) ? Total I magnitude from CCD area photometry
integer*4 NI (nr__) ! ? Number of sources for I magnitude
real*4 Hap (nr__) ! (mag) ? H -0.5 aperture magnitude
integer*4 NH (nr__) ! ? Number of sources for H magnitude
integer*4 HVHI (nr__) ! (km/s) ? Heliocentric velocity from HI observations
integer*4 W20 (nr__) ! (km/s) ? HI linewidth at 20% of peak intensity
real*4 DMLL (nr__) ! (mag) ? Distance modulus from the
* luminosity-linewidth method
real*4 e_DMLL (nr__) ! (mag) ? Uncertainty in DMLL
real*4 DMFG (nr__) ! (mag) ? Distance modulus if in the Flat Galaxy -
* 2MASS sample (see Cat. J/other/BSAO/57.5)
real*4 DMSRC (nr__) ! (mag) ? SBF, TRGB, and/or Cepheid distance modulus (G1)
character*3 r_DMSRC (nr__) ! [src ] Method used for DMSRC (G1)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Averaged distance estimates for 743 groups
integer*4 nr__1
parameter (nr__1=743) ! Number of records
character*159 ar__1 ! Full-size record
C Position composed of: GLON GLAT
integer*4 GrID_1 (nr__1) ! Group identification number
character*8 NBG_1 (nr__1) ! Nearby Galaxies Catalog filament/group ID
real*4 GLON_1 (nr__1) ! (deg) [0/360]?=0 Galactic longitude
real*4 GLAT_1 (nr__1) ! (deg) [-87/88]?=0 Galactic latitude
real*4 SGL_1 (nr__1) ! (deg) [0/355] Supergalactic longitude
real*4 SGB_1 (nr__1) ! (deg) [-85/80] Supergalactic latitude
real*4 logLB (nr__1) ! ([solLum]) Log of B absolute luminosity for group at
* measured distance
integer*4 HRV_1 (nr__1) ! (km/s) Heliocentric radial velocity of group
integer*4 VGSR_1 (nr__1) ! (km/s) Velocity of group in the Galactic
* standard of rest
integer*4 VLS_1 (nr__1) ! (km/s) Velocity of group in the Local Sheet reference
* frame
integer*4 VCMB_1 (nr__1) ! (km/s) Velocity of group in the CMB reference frame
real*4 DM (nr__1) ! (mag) Distance modulus of group, weighted average
* all measures
real*4 e_DM (nr__1) ! (mag) Uncertainty in DM
real*4 Dist (nr__1) ! (Mpc) Distance, weighted average all measures
real*4 SGX (nr__1) ! (Mpc) Component of distance aligned with
* supergalactic X
real*4 SGY (nr__1) ! (Mpc) Component of distance aligned with
* supergalactic Y
real*4 SGZ (nr__1) ! (Mpc) Component of distance aligned with
* supergalactic Z
integer*4 Vpec (nr__1) ! (km/s) Peculiar velocity, Vpec = VLS - 74 Dist
integer*4 NLL (nr__1) ! ? Number of luminosity-linewidth distance
* measures
real*4 DMLL_1 (nr__1) ! (mag) ? Distance modulus, averaged
* luminosity-linewidth measures
real*4 e_DMLL_1 (nr__1) ! (mag) ? Uncertainty in DMLL
integer*4 NFG (nr__1) ! ? Number of distance measures from Flat Galaxy
* sample
real*4 DMFG_1 (nr__1) ! (mag) ? Distance modulus, averaged Flat Galaxy sample
real*4 e_DMFG (nr__1) ! (mag) ? Uncertainty in DMFG
integer*4 NSRC (nr__1) ! ? Number of SBF, TRGB, or Cepheid distance
* measures
real*4 DMSRC_1 (nr__1) ! (mag) ? Distance modulus, average of SBF, TRGB,
* Cepheid measures (G1)
real*4 e_DMSRC (nr__1) ! (mag) ? Uncertainty in DMSRC
C=============================================================================
C Loading file 'table1.dat' ! Distance estimates for 1791 galaxies
* (from erratum 2008ApJ...686.1523T)
C Format for file interpretation
1 format(
+ I2,I2,F4.1,A1,I2,I2,I2,1X,I7,1X,A11,1X,I4,1X,A8,2X,F8.4,1X,
+ F8.4,1X,F8.4,1X,F8.4,2X,I2,1X,F5.3,1X,F5.2,2X,I4,1X,I4,1X,I4,
+ 1X,I4,3X,F4.2,1X,I1,1X,F5.2,1X,F5.2,1X,I1,1X,F5.2,1X,I1,1X,
+ F5.2,1X,I1,1X,I4,1X,I3,3X,F5.2,1X,F4.2,2X,F5.2,2X,F5.2,1X,A3)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,1791
read(1,'(A202)')ar__
read(ar__,1)
+ RAh(i__),RAm(i__),RAs(i__),DE_(i__),DEd(i__),DEm(i__),
+ DEs(i__),PGC(i__),Name(i__),GrID(i__),NBG(i__),GLON(i__),
+ GLAT(i__),SGL(i__),SGB(i__),T(i__),E_B_V(i__),BT(i__),
+ HRV(i__),VGSR(i__),VLS(i__),VCMB(i__),b_a(i__),Nb_a(i__),
+ Bmag(i__),Rmag(i__),NR(i__),Imag(i__),NI(i__),Hap(i__),
+ NH(i__),HVHI(i__),W20(i__),DMLL(i__),e_DMLL(i__),DMFG(i__),
+ DMSRC(i__),r_DMSRC(i__)
if(ar__(105:108) .EQ. '') HRV(i__) = iNULL__
if(ar__(110:113) .EQ. '') VGSR(i__) = iNULL__
if(ar__(115:118) .EQ. '') VLS(i__) = iNULL__
if(ar__(120:123) .EQ. '') VCMB(i__) = iNULL__
if(ar__(127:130) .EQ. '') b_a(i__) = rNULL__
if(ar__(132:132) .EQ. '') Nb_a(i__) = iNULL__
if(ar__(134:138) .EQ. '') Bmag(i__) = rNULL__
if(ar__(140:144) .EQ. '') Rmag(i__) = rNULL__
if(ar__(146:146) .EQ. '') NR(i__) = iNULL__
if(ar__(148:152) .EQ. '') Imag(i__) = rNULL__
if(ar__(154:154) .EQ. '') NI(i__) = iNULL__
if(ar__(156:160) .EQ. '') Hap(i__) = rNULL__
if(ar__(162:162) .EQ. '') NH(i__) = iNULL__
if(ar__(164:167) .EQ. '') HVHI(i__) = iNULL__
if(ar__(169:171) .EQ. '') W20(i__) = iNULL__
if(ar__(175:179) .EQ. '') DMLL(i__) = rNULL__
if(ar__(181:184) .EQ. '') e_DMLL(i__) = rNULL__
if(ar__(187:191) .EQ. '') DMFG(i__) = rNULL__
if(ar__(194:198) .EQ. '') DMSRC(i__) = rNULL__
RAdeg(i__) = rNULL__
DEdeg(i__) = rNULL__
c Derive coordinates RAdeg and DEdeg from input data
c (RAdeg and DEdeg are set to rNULL__ when unknown)
if(RAh(i__) .GT. -180) RAdeg(i__)=RAh(i__)*15.
if(RAm(i__) .GT. -180) RAdeg(i__)=RAdeg(i__)+RAm(i__)/4.
if(RAs(i__) .GT. -180) RAdeg(i__)=RAdeg(i__)+RAs(i__)/240.
if(DEd(i__) .GE. 0) DEdeg(i__)=DEd(i__)
if(DEm(i__) .GE. 0) DEdeg(i__)=DEdeg(i__)+DEm(i__)/60.
if(DEs(i__) .GE. 0) DEdeg(i__)=DEdeg(i__)+DEs(i__)/3600.
if(DE_(i__).EQ.'-'.AND.DEdeg(i__).GE.0) DEdeg(i__)=-DEdeg(i__)
c ..............Just test output...........
write(6,1)
+ RAh(i__),RAm(i__),RAs(i__),DE_(i__),DEd(i__),DEm(i__),
+ DEs(i__),PGC(i__),Name(i__),GrID(i__),NBG(i__),GLON(i__),
+ GLAT(i__),SGL(i__),SGB(i__),T(i__),E_B_V(i__),BT(i__),
+ HRV(i__),VGSR(i__),VLS(i__),VCMB(i__),b_a(i__),Nb_a(i__),
+ Bmag(i__),Rmag(i__),NR(i__),Imag(i__),NI(i__),Hap(i__),
+ NH(i__),HVHI(i__),W20(i__),DMLL(i__),e_DMLL(i__),DMFG(i__),
+ DMSRC(i__),r_DMSRC(i__)
write(6,'(6H Pos: 2F8.4)') RAdeg(i__),DEdeg(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! Averaged distance estimates for 743 groups
C Format for file interpretation
2 format(
+ I4,1X,A8,3X,F6.2,1X,F6.2,2X,F6.2,1X,F6.2,2X,F5.2,2X,I4,1X,I4,
+ 1X,I4,1X,I4,3X,F5.2,1X,F4.2,2X,F5.1,1X,F5.1,1X,F5.1,1X,F5.1,
+ 1X,I5,2X,I2,1X,F5.2,1X,F4.2,1X,I2,1X,F5.2,1X,F4.2,1X,I2,1X,
+ F5.2,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,743
read(1,'(A159)')ar__1
read(ar__1,2)
+ GrID_1(i__),NBG_1(i__),GLON_1(i__),GLAT_1(i__),SGL_1(i__),
+ SGB_1(i__),logLB(i__),HRV_1(i__),VGSR_1(i__),VLS_1(i__),
+ VCMB_1(i__),DM(i__),e_DM(i__),Dist(i__),SGX(i__),SGY(i__),
+ SGZ(i__),Vpec(i__),NLL(i__),DMLL_1(i__),e_DMLL_1(i__),
+ NFG(i__),DMFG_1(i__),e_DMFG(i__),NSRC(i__),DMSRC_1(i__),
+ e_DMSRC(i__)
if(ar__1(119:120) .EQ. '') NLL(i__) = iNULL__
if(ar__1(122:126) .EQ. '') DMLL_1(i__) = rNULL__
if(ar__1(128:131) .EQ. '') e_DMLL_1(i__) = rNULL__
if(ar__1(133:134) .EQ. '') NFG(i__) = iNULL__
if(ar__1(136:140) .EQ. '') DMFG_1(i__) = rNULL__
if(ar__1(142:145) .EQ. '') e_DMFG(i__) = rNULL__
if(ar__1(147:148) .EQ. '') NSRC(i__) = iNULL__
if(ar__1(150:154) .EQ. '') DMSRC_1(i__) = rNULL__
if(ar__1(156:159) .EQ. '') e_DMSRC(i__) = rNULL__
c ..............Just test output...........
write(6,2)
+ GrID_1(i__),NBG_1(i__),GLON_1(i__),GLAT_1(i__),SGL_1(i__),
+ SGB_1(i__),logLB(i__),HRV_1(i__),VGSR_1(i__),VLS_1(i__),
+ VCMB_1(i__),DM(i__),e_DM(i__),Dist(i__),SGX(i__),SGY(i__),
+ SGZ(i__),Vpec(i__),NLL(i__),DMLL_1(i__),e_DMLL_1(i__),
+ NFG(i__),DMFG_1(i__),e_DMFG(i__),NSRC(i__),DMSRC_1(i__),
+ e_DMSRC(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end