Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/138/606 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-Aug-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/AJ/138/606 Hot subdwarf stars in rejected PG catalog (Wade+, 2009)
*================================================================================
*Hot subdwarf stars among the objects rejected from the PG catalog:
*a first assessment using GALEX photometry.
* Wade R.A., Stark M.A., Green R.F., Durrell P.R.
* <Astron. J., 138, 606-614 (2009)>
* =2009AJ....138..606W
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! PGR sources and 2MASS counterparts
integer*4 nr__
parameter (nr__=88) ! Number of records
character*43 ar__ ! Full-size record
character*11 PGR ! Palomar Green Rejects name (JHHMMm+DDMM)
character*17 v2MASS ! 2MASS designation (JHHMMSSss+DDMMSSs)
character*3 n_PGR ! Additional note(s) for PGR (1)
*Note (1): Notes as follows:
* 1 = Positional offset between USNO-A2 and 2MASS exceeds 1.5"
* (80th percentile of offset size)
* 2 = There is a second 2MASS object within 10" of the USNO position
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! GALEX and V-band photometry of PGR objects
integer*4 nr__1
parameter (nr__1=88) ! Number of records
character*75 ar__1 ! Full-size record
character*11 PGR_1 ! Palomar Green Rejects name (JHHMMm+DDMM)
real*4 Fmag ! (mag) Galex FUV band AB magnitude
real*4 e_Fmag ! (mag) ? The 1{sigma} error in Fmag (1)
real*4 Nmag ! (mag) Galex NUV band AB magnitude
real*4 e_Nmag ! (mag) The 1{sigma} error in Nmag
real*4 Vmag ! (mag) V band magnitude
character*1 r_Vmag ! [A-D] Reference for Vmag (2)
character*1 l_F_N ! Limit flag on F-N
real*4 F_N ! (mag) Galex FUV-NUV color index (1)
real*4 N_V ! (mag) The NUV-V color index
real*4 E_B_V ! (mag) The B-V color excess (3)
real*4 v_N_V_0 ! (mag) Dereddened NUV-V color index (4)
character*5 Notes ! Additional note(s) (5)
*Note (1): If no error is reported, then Fmag is an upper limit and thus
* the (F-N) color is also a limit.
*Note (2): References as follows:
* A = Estimated with USNO-A2 data as: V=R_USNO_+0.32(B_USNO_-R_USNO_)+0.23
* B = Estimatid with SDSS data as V=g-0.58(g-r)-0.01
* C = photoelectric UBV photometry carried out by R.F.G. during the
* original PG survey
* D = photoelectric CCD photometry in V and I by the All Sky Automated
* Survey (ASAS; Pojmanski 2002, Cat. II/264)
*Note (3): From Schlegel et al. (1998ApJ...500..525S), as returned by the
* MAST query.
*Note (4): Using E(N-V)=4.8xE(B-V).
*Note (5): Notes as follows:
* LOCK = Lockman hole observation
* GI = Guest Investigator observation
* MIS = Medium Imaging Survey observation
* NGA = Nearby Galaxy Atlas observation
* comp? = above and to the right of the loci shown for single stars
* at T_eff_~7000K
* hot = near the hot end of the stellar locus
C=============================================================================
C Loading file 'table1.dat' ! PGR sources and 2MASS counterparts
C Format for file interpretation
1 format(4X,A11,7X,A17,1X,A3)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,88
read(1,'(A43)')ar__
read(ar__,1)PGR,v2MASS,n_PGR
c ..............Just test output...........
write(6,1)PGR,v2MASS,n_PGR
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! GALEX and V-band photometry of PGR objects
C Format for file interpretation
2 format(
+ 4X,A11,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F4.1,1X,A1,1X,A1,1X,
+ F5.2,1X,F4.2,1X,F5.3,1X,F5.2,1X,A5)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,88
read(1,'(A75)')ar__1
read(ar__1,2)
+ PGR_1,Fmag,e_Fmag,Nmag,e_Nmag,Vmag,r_Vmag,l_F_N,F_N,N_V,E_B_V,
+ v_N_V_0,Notes
if(ar__1(23:26) .EQ. '') e_Fmag = rNULL__
c ..............Just test output...........
write(6,2)
+ PGR_1,Fmag,e_Fmag,Nmag,e_Nmag,Vmag,r_Vmag,l_F_N,F_N,N_V,E_B_V,
+ v_N_V_0,Notes
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end