Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/124/1651 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-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/124/1651 Faint high-latitude carbon stars SDSS photometry (Margon+, 2002)
*================================================================================
*Faint high-latitude carbon stars discovered by the Sloan Digital Sky Survey:
*methods and initial results.
* Margon B., Anderson S.F., Harris H.C., Strauss M.A., Knapp G.R., Fan X.,
* Schneider D.P., Vanden Berk D.E., Schlegel D.J., Deutsch E.W., Ivezic Z.,
* Hall P.B., Williams B.F., Davidsen A.F., Brinkmann J., Csabai I.,
* Hayes J.J.E., Hennessy G., Kinney E.K., Kleinman S.J., Lamb D.Q., Long D.,
* Neilsen E.H., Nichol R., Nitta A., Snedden S.A., York D.G.
* <Astron. J. 124, 1651 (2002)>
* =2002AJ....124.1651M
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Faint high-latitude carbon stars discovered in
SDSS commissioning data
integer*4 nr__
parameter (nr__=39) ! Number of records
character*68 ar__ ! Full-size record
character*16 SDSS (nr__) ! SDSS designation
real*4 r_mag (nr__) ! (mag) SDSS r* magnitude
real*4 u__g_ (nr__) ! (mag) SDSS u*-g* colour index
real*4 g__r_ (nr__) ! (mag) SDSS g*-r* colour index
real*4 r__i_ (nr__) ! (mag) SDSS r*-i* colour index
real*4 i__z_ (nr__) ! (mag) SDSS i*-z* colour index
integer*4 pm (nr__) ! (mas/yr) ? Proper motion
integer*4 e_pm (nr__) ! (mas/yr) ? rms uncertainty on pm
integer*4 PA (nr__) ! (deg) ? Position angle
real*4 HRV (nr__) ! (km/s) ? Heliocentric radial velocity
real*4 e_HRV (nr__) ! (km/s) ? rms uncertainty on HRV
character*1 n_SDSS (nr__) ! [b-d] Individual notes (1)
*Note (1): Notes are coded as follows:
* b: Two separate observations exist; the weighted average RV is quoted
* c: ARC 3.5m spectrum only; no RV data is available
* d: The object is very faint; there is no suitable first-epoch data
* for quantitative proper-motion analysis, although informal
* indications are that any motion must be small
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! SDSS faint high-latitude carbon stars in
released 2MASS fields
integer*4 nr__1
parameter (nr__1=17) ! Number of records
character*74 ar__1 ! Full-size record
character*16 SDSS_1 (nr__1) ! SDSS designation
character*1 n_SDSS_1 (nr__1) ! [c] Note on SDSS (2)
character*15 v2MASS (nr__1) ! 2MASS designation (1)
character*1 n_2MASS (nr__1) ! [b] Note on 2MASS (2)
real*4 z_mag (nr__1) ! (mag) SDSS z* magnitude
real*4 Jmag (nr__1) ! (mag) ? 2MASS J Magnitude
real*4 e_Jmag (nr__1) ! (mag) ? rms uncertainty on Jmag
real*4 Hmag (nr__1) ! (mag) ? 2MASS H magnitude
real*4 e_Hmag (nr__1) ! (mag) ? rms uncertainty on Hmag
character*1 l_Kmag (nr__1) ! Limit flag on Kmag
real*4 Kmag (nr__1) ! (mag) ? 2MASS K magnitude
real*4 e_Kmag (nr__1) ! (mag) ? rms uncertainty on Kmag
*Note (1): Blank entry indicates object lies within 2MASS survey area,
* but was not detected by 2MASS.
*Note (2): Individual notes:
* b: Faintly visible on sky GIF images, but not catalogued by 2MASS.
* c: Not part of autonomously selected sample, but included here for
* completeness; see Sect. 2.2.2 of the paper.
C=============================================================================
C Loading file 'table1.dat' ! Faint high-latitude carbon stars discovered in
* SDSS commissioning data
C Format for file interpretation
1 format(
+ A16,1X,F5.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F5.2,1X,I3,1X,I2,1X,I3,
+ 1X,F6.1,1X,F4.1,1X,A1)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,39
read(1,'(A68)')ar__
read(ar__,1)
+ SDSS(i__),r_mag(i__),u__g_(i__),g__r_(i__),r__i_(i__),
+ i__z_(i__),pm(i__),e_pm(i__),PA(i__),HRV(i__),e_HRV(i__),
+ n_SDSS(i__)
if(ar__(45:47) .EQ. '') pm(i__) = iNULL__
if(ar__(49:50) .EQ. '') e_pm(i__) = iNULL__
if(ar__(52:54) .EQ. '') PA(i__) = iNULL__
if(ar__(56:61) .EQ. '') HRV(i__) = rNULL__
if(ar__(63:66) .EQ. '') e_HRV(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ SDSS(i__),r_mag(i__),u__g_(i__),g__r_(i__),r__i_(i__),
+ i__z_(i__),pm(i__),e_pm(i__),PA(i__),HRV(i__),e_HRV(i__),
+ n_SDSS(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! SDSS faint high-latitude carbon stars in
* released 2MASS fields
C Format for file interpretation
2 format(
+ A16,A1,1X,A15,A1,1X,F5.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,
+ A1,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,17
read(1,'(A74)')ar__1
read(ar__1,2)
+ SDSS_1(i__),n_SDSS_1(i__),v2MASS(i__),n_2MASS(i__),z_mag(i__),
+ Jmag(i__),e_Jmag(i__),Hmag(i__),e_Hmag(i__),l_Kmag(i__),
+ Kmag(i__),e_Kmag(i__)
if(ar__1(42:46) .EQ. '') Jmag(i__) = rNULL__
if(ar__1(48:51) .EQ. '') e_Jmag(i__) = rNULL__
if(ar__1(53:57) .EQ. '') Hmag(i__) = rNULL__
if(ar__1(59:62) .EQ. '') e_Hmag(i__) = rNULL__
if(ar__1(65:69) .EQ. '') Kmag(i__) = rNULL__
if(ar__1(71:74) .EQ. '') e_Kmag(i__) = rNULL__
c ..............Just test output...........
write(6,2)
+ SDSS_1(i__),n_SDSS_1(i__),v2MASS(i__),n_2MASS(i__),z_mag(i__),
+ Jmag(i__),e_Jmag(i__),Hmag(i__),e_Hmag(i__),l_Kmag(i__),
+ Kmag(i__),e_Kmag(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end