Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/127/2838 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. J/AJ/127/2838 Faint high-latitude carbon stars SDSS photometry (Downes+, 2004)
*================================================================================
*Faint high-latitude carbon stars discovered by the Sloan Digital Sky Survey:
*an initial catalog.
* Downes R.A., Margon B., Anderson S.F., Harris H.C., Knapp G.R.,
* Schroeder J., Schneider D.P., York D.G., Pier J.R., Brinkmann J.
* <Astron. J., 127, 2838-2849 (2004)>
* =2004AJ....127.2838D
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Faint High-Latitude Carbon Stars Discovered in SDSS
integer*4 nr__
parameter (nr__=251) ! Number of records
character*103 ar__ ! Full-size record
character*19 SDSS ! SDSS name (1)
real*8 Epoch ! ? Epoch of the observation (2)
real*4 rmag ! (mag) SDSS r-band magnitude (3)
character*1 f_rmag ! [gh] Flag on rmag (4)
real*4 u_g ! (mag) ? SDSS (u-g) color
real*4 g_r ! (mag) ? SDSS (g-r) color
real*4 r_i ! (mag) ? SDSS (r-i) color
real*4 i_z ! (mag) ? SDSS (i-z) color
real*4 J_H ! (mag) ? The (J-H) color
real*4 H_K ! (mag) ? The (H-K) color
real*4 r_J ! (mag) ? The (r-J) color
real*4 mu ! (mas/yr) ? Proper motion
real*4 e_mu ! (mas/yr) ? The 1 {sigma} error in mu
real*4 PA ! (deg) ? Position angle
character*1 Class ! Object class (5)
integer*4 f_Class ! ? Flag on Class (6)
*Note (1): As per normal convention, coordinate names are truncated rather
* than rounded; precise astrometry is available in the SDSS archive.
*Note (2): Epochs provided for those objects with proper motions detected
* with 3 {sigma} or greater significance.
*Note (3): An approximate transformation to the Cousins I magnitude,
* derived empirically from a comparison of SDSS observations of multiple
* standard stars with published broadband photometry (Grebel, 2004,
* Priv. Comm.), is I_c_=-0.333(r-i) + i - 0.443. Note that this
* transformation is not optimized for the specific case of C stars.
*Note (4): Flag on rmag as follows:
* g = Poor photometry: gmag given for crude guidance;
* h = Poor photometry.
*Note (5): Object class takes the following values:
* D = Dwarf;
* G = Giant;
* U = Uncertain;
* NULL = No data.
*Note (6): Flags on Class take the following values:
* 1 = "F/G carbon star";
* 2 = Possible "F/G carbon star";
* 3 = Poorly calibrated spectrum;
* 4 = FASST 2; see Hendon & Stone, 1998, Cat. <J/AJ/115/296>
* 5 = RASS and FIRST source nearby;
* 6 = LP 587-45;
* 7 = Composite;
* 8 = Variable?;
* 9 = Candidate extragalactic object (see Paper I, Margon et al.,
* Cat. <J/AJ/124/1651>);
* 10 = N-type; see Totten & Irwin (1998MNRAS.294....1T) and
* Hendon & Stone , 1998, Cat. <J/AJ/115/296>
* 11 = RASS source (QSO) nearby;
* 12 = In Draco dwarf galaxy (BASV 461);
* 13 = In Draco dwarf galaxy (Draco C-1); symbiotic variable; ROSAT source;
* 14 = In Draco dwarf galaxy (BASV 578);
* 15 = In Draco dwarf galaxy?
C=============================================================================
C Loading file 'table1.dat' ! Faint High-Latitude Carbon Stars Discovered in SDSS
C Format for file interpretation
1 format(
+ 5X,A19,1X,F7.2,1X,F5.2,A1,1X,F4.2,1X,F4.2,1X,F4.2,1X,F5.2,1X,
+ F5.2,1X,F5.2,1X,F4.2,1X,F5.1,1X,F4.1,1X,F5.1,1X,A1,1X,I2)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,251
read(1,'(A103)')ar__
read(ar__,1)
+ SDSS,Epoch,rmag,f_rmag,u_g,g_r,r_i,i_z,J_H,H_K,r_J,mu,e_mu,PA,
+ Class,f_Class
if(ar__(26:32) .EQ. '') Epoch = rNULL__
if(ar__(41:44) .EQ. '') u_g = rNULL__
if(ar__(46:49) .EQ. '') g_r = rNULL__
if(ar__(51:54) .EQ. '') r_i = rNULL__
if(ar__(56:60) .EQ. '') i_z = rNULL__
if(ar__(62:66) .EQ. '') J_H = rNULL__
if(ar__(68:72) .EQ. '') H_K = rNULL__
if(ar__(74:77) .EQ. '') r_J = rNULL__
if(ar__(79:83) .EQ. '') mu = rNULL__
if(ar__(85:88) .EQ. '') e_mu = rNULL__
if(ar__(90:94) .EQ. '') PA = rNULL__
if(ar__(98:99) .EQ. '') f_Class = iNULL__
c ..............Just test output...........
write(6,1)
+ SDSS,Epoch,rmag,f_rmag,u_g,g_r,r_i,i_z,J_H,H_K,r_J,mu,e_mu,PA,
+ Class,f_Class
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end