Conversion of standardized ReadMe file for
catalog 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 2024-Apr-19
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. II/207A Palomar-Green catalog UV-excess stellar objects (Green+ 1986)
*================================================================================
*The Palomar-Green catalog of ultraviolet-excess stellar objects.
* Green R.F., Schmidt M., Liebert J.
* <Astrophys. J. Suppl. Ser. 61, 305 (1986)>
* =1986ApJS...61..305G
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'catalog.dat' ! *Palomar-Green Survey Data (Table 5)
integer*4 nr__
parameter (nr__=1878) ! Number of records
character*144 ar__ ! Full-size record
C 1950 position composed of: RA50h RA50m RA50s DE50- DE50d DE50m DE50s
real*8 RAdeg ! (deg) Right Ascension 1950
real*8 DEdeg ! (deg) Declination 1950
C ---------------------------------- ! (position vector(s) in degrees)
character*9 PG ! PG name (1)
integer*4 RA50h ! (h) Published Right Ascension 1950 (hours)
integer*4 RA50m ! (min) Published Right Ascension 1950 (minutes)
real*4 RA50s ! (s) Published Right Ascension 1950 (seconds)
character*1 DE50_ ! Published Declination 1950 (sign)
integer*4 DE50d ! (deg) Published Declination 1950 (degrees)
integer*4 DE50m ! (arcmin) Published Declination 1950 (minutes)
integer*4 DE50s ! (arcsec) Published Declination 1950 (seconds)
real*4 Pmag ! (mag) Photographic magnitude, accuracy 0.29mag
real*4 Blim ! (mag) []?=0. Limiting magnitude of field (2)
character*9 Comment ! Other names, redshift or spectral type (3)
character*5 Class ! Spectral classification
character*1 n_Class ! [*] a high dispersion spectrum exists
real*4 Bmag ! (mag) ? Photoelectic Johnson's magnitude
character*1 u_Bmag ! Uncertainty flag (:) on Bmag
real*4 U_B ! (mag) ? Photoelectic Johnson's colour index
character*1 u_U_B ! Uncertainty flag (:) on U-B
real*4 B_V ! (mag) ? Photoelectic Johnson's colour index
real*4 vmag ! (mag) ? Palomar photometric index (4)
character*1 u_vmag ! Uncertainty flag (:) on vmag
real*4 u_v ! (mag) ? Palomar photometric index (4)
character*1 u_u_v ! Uncertainty flag (:) on u-v
real*4 b_v_1 ! (mag) ? Palomar photometric index (4)
real*4 g_r ! (mag) ? Palomar photometric index (4)
real*4 Vmag_1 ! (mag) ? V magnitude in Stroemgren system (5)
real*4 b_y ! (mag) ? Colour in Stroemgren system (5)
character*1 u_b_y ! Uncertainty flag (:) on b-y
real*4 u_b_1 ! (mag) ? Colour in Stroemgren system (5)
character*1 u_u_b_1 ! Uncertainty flag (:) on u-b
real*4 m1 ! (mag) ? Index (v-b)-(b-y) in Stroemgren system (5)
character*7 Refs ! [0-9, ] References (6)
*Note (1): This name did not exist in the original table, but appear as a
* caption in the finding charts; it has been built from RAh, RAm, DE-,
* DEd and a digit representing the rounded part of DEm, checked against
* the name used in the finding charts; in a few cases a suffix was added
* in case of name collision (see details in the "History" section below)
*Note (2): if the object was found in overlapping fields, Blim indicates
* the deeper exposure. A value of 0. means that the object is not
* part of the complete statistical sample, which can be due to
* faintness, undetection in automated scanning process, or presence
* in a field with abnormally bright Blim.
*Note (3): this column contains redshifts for extragalactic sources,
* spectral types for companions to the blue stars, and brief notes
* about spectral peculiarities or uncertainties. It contains also
* cross-identifications of the objects.
* For white dwarfs, see the McCook & Sion catalog <III/129>
* For PHL (Palomar-Haro-Luyten, 1962BITon...3...37H) see catalog <III/74>
* EG = Eggen and Greenstein (1965ApJ...141...83E, 1967ApJ...150..927E)
* T = Tonantzintla lists (1957BOTT....2G...3I, 1959BOTT....2I...3C)
* U = Usher and collaborators (1981ApJS...46..117U, 1982ApJS...48...51U,
* 1982ApJS...49...27U, 1984ApJS...56..393H)
* K = Kiso UV survey
* PB = Palomar-Berger (1977A&AS...28..123B)
* L,LB = Luyten lists (Univ. Minnesota)
* G,GD = Giclas Proper Motion Survey (see cats. <I/79>, <I/112>)
* F = Feige (1958ApJ...128..267F)
* HZ = Humason-Zwicky (1947ApJ...105...85H)
* C,CB = Pesch & Sandyuleak (1983ApJS...51..171P, 1984ApJS...55..517S)
*Note (4): Palomar 5m multichannel spectrophotometric indices defined
* by Greenstein (1976ApJ...207L.119G) centered at
* u=2.80um-1, g=2.12um-1, v=2.12um-1, r=1.44um-1 (wavenumbers micron-1)
* and calibrated in the AB79 system by Oke & Gunn (1983ApJ...266..713O)
*Note (5): See a description of Stroemgren system in Geneva
* General Catalog of Photometric Data <GCPD/04>
*Note (6): The values without citations are based on the authors'
* measurements. Otherwise the numbers refer to the following papers:
* 1 = Green =1980ApJ...238..685G
* 2 = Graham =1972AJ.....77..144G
* 3 = Greenstein =1984ApJ...276..602G
* 4 = Wegner =1983AJ.....88..109W
* 5 = Liebert & Stockman =1980PASP...92..657L
* 6 = Wesemael et al. =1985ApJS...58..379W
* 7 = Bond et al. =1984ApJ...279..751B
* 8 = Ferguson et al. =1981ApJ...251..205F
* 9 = Margon et al. =1981Natur.293..200M
* 10 = Ferguson et al. =1984ApJ...287..320F
* 11 = Green et al. =1982PASP...94..560G
* 12 = Becker et al. =1982MNRAS.201..265B
* 13 = Penning et al. =1984ApJ...276..233P
* 14 = Liebert et al. =1982ApJ...256..594L
* 15 = Liebert et al. =1984ApJ...277..692L
* 16 = Liebert et al. =1983ApJ...264..262L
* 17 = Barker & Cudworth =1984ApJ...278..610B
* 18 = Schmidt & Green =1983ApJ...269..352S
* 19 = Weymann et al. =1980Natur.285...64W
* 20 = Ellis et al. =1984PASP...96..283E
* 21 = Sion et al. =1985ApJ...292..477S
* 22 = Sion et al. =1985ApJ...292..471S
* 23 = Szkody et al. =1985ApJ...293..321S
* 24 = McGraw et al. =1979IAUCo..53..377M
* 25 = Winget et al. =1984IAUC.3932.....W
* 26 = Winget et al. =1984ApJ...279L..15W
* 27 = Nather et al. =1984IAUC.4021.....N
* 28 = Green =1976PASP...88..665G
C=============================================================================
C Loading file 'catalog.dat' ! *Palomar-Green Survey Data (Table 5)
C Format for file interpretation
1 format(
+ 3X,A9,1X,I2,1X,I2,1X,F4.1,1X,A1,I2,1X,I2,1X,I2,2X,F5.2,2X,
+ F5.2,2X,A9,1X,A5,1X,A1,1X,F5.2,A1,F5.2,A1,F5.2,2X,F5.2,A1,
+ F5.2,A1,F5.2,1X,F5.2,4X,F5.2,1X,F5.2,A1,F5.2,A1,F5.2,1X,A7)
C Effective file loading
open(unit=1,status='old',file=
+'II/207A/catalog.dat')
write(6,*) '....Loading file: catalog.dat'
do i__=1,1878
read(1,'(A144)')ar__
read(ar__,1)
+ PG,RA50h,RA50m,RA50s,DE50_,DE50d,DE50m,DE50s,Pmag,Blim,
+ Comment,Class,n_Class,Bmag,u_Bmag,U_B,u_U_B,B_V,vmag,u_vmag,
+ u_v,u_u_v,b_v_1,g_r,Vmag_1,b_y,u_b_y,u_b_1,u_u_b_1,m1,Refs
if(ar__(68:72) .EQ. '') Bmag = rNULL__
if(ar__(74:78) .EQ. '') U_B = rNULL__
if(ar__(80:84) .EQ. '') B_V = rNULL__
if(ar__(87:91) .EQ. '') vmag = rNULL__
if(ar__(93:97) .EQ. '') u_v = rNULL__
if(ar__(99:103) .EQ. '') b_v_1 = rNULL__
if(ar__(105:109) .EQ. '') g_r = rNULL__
if(ar__(114:118) .EQ. '') Vmag_1 = rNULL__
if(ar__(120:124) .EQ. '') b_y = rNULL__
if(ar__(126:130) .EQ. '') u_b_1 = rNULL__
if(ar__(132:136) .EQ. '') m1 = rNULL__
RAdeg = rNULL__
DEdeg = rNULL__
c Derive coordinates RAdeg and DEdeg from input data
c (RAdeg and DEdeg are set to rNULL__ when unknown)
if(RA50h .GT. -180) RAdeg=RA50h*15.
if(RA50m .GT. -180) RAdeg=RAdeg+RA50m/4.
if(RA50s .GT. -180) RAdeg=RAdeg+RA50s/240.
if(DE50d .GE. 0) DEdeg=DE50d
if(DE50m .GE. 0) DEdeg=DEdeg+DE50m/60.
if(DE50s .GE. 0) DEdeg=DEdeg+DE50s/3600.
if(DE50_.EQ.'-'.AND.DEdeg.GE.0) DEdeg=-DEdeg
c ..............Just test output...........
write(6,1)
+ PG,RA50h,RA50m,RA50s,DE50_,DE50d,DE50m,DE50s,Pmag,Blim,
+ Comment,Class,n_Class,Bmag,u_Bmag,U_B,u_U_B,B_V,vmag,u_vmag,
+ u_v,u_u_v,b_v_1,g_r,Vmag_1,b_y,u_b_y,u_b_1,u_u_b_1,m1,Refs
write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end