Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/87/1515 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.5, on 2013-May-22
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__
ter (rNULL__=-1.e37) ! NULL real number
parameter (iNULL__=-2147483647) ! NULL int number
C=============================================================================
Cat. J/AJ/87/1515 UBV photometry of AB stars in halo (Pier, 1982)
*================================================================================
*Stars of spectral type A and B in the southern galactic halo.
*I. UBV photometry
* Pier J.R.
* <Astron. J. 87, 1515 (1982)>
* =1982AJ.....87.1515P
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table6.dat' ! UBV photometry
integer*4 nr__
parameter (nr__=233) ! Number of records
character*100 ar__ ! Full-size record
real*8 RA_ (nr__) ! (deg) Right Ascension 1950
real*8 Dec (nr__) ! (deg) Declination 1950
character*9 BPS_CS (nr__) ! Curtis Schmidt plate number and the
* star number assigned by Preston designation
* as he scanned the plates
integer*4 RAh (nr__) ! (h) Right ascension 1950
integer*4 RAm (nr__) ! (min) Right ascension 1950
integer*4 RAs (nr__) ! (s) Right ascension 1950
character*1 DE_ (nr__) ! Declination sign
integer*4 DEd (nr__) ! (deg) Declination 1950
real*4 DEm (nr__) ! (arcmin) Declination 1950
real*4 GLON (nr__) ! (deg) Galactic longitude
real*4 GLAT (nr__) ! (deg) Galactic latitude
character*5 Class (nr__) ! Spectral and apparent brightness
* classifications assigned by Preston (1)
real*4 Vmag (nr__) ! (mag) V magnitude
real*4 B_V (nr__) ! (mag) B-V colour index
real*4 U_B (nr__) ! (mag) U-B colour index
integer*4 o_Vmag (nr__) ! Number of UBV observations
character*30 Names (nr__) ! Other designations (2)
*Note (1): b = bright, f = faint, m = medium, v= very
*Note (2): The abbreviations are:
* PHL numbers are from Haro and Luyten (1962BOTT....3...37H)
* PS from table2 of Philip and Sanduleak (1968BOTT....4..253P)
* SB numbers from Slettebak and Brundage (1971AJ.....76..338S)
* TS numbers from the southern Tonantzintla list of Chavira (1958,
* Bol. Obs. Tonantzintla y Tacubaya 2, No. 17, 15, 1958BOTT....2q..15C)
C=============================================================================
C Loading file 'table6.dat' ! UBV photometry
C Format for file interpretation
1 format(
+ 3X,A9,1X,I2,1X,I2,1X,I2,1X,A1,I2,1X,F4.1,1X,F5.1,1X,F5.1,1X,
+ A5,1X,F5.2,1X,F5.2,1X,F5.2,1X,I1,2X,A30)
C Effective file loading
open(unit=1,file='table6.dat', status='old')
write(6,*) '....Loading file: table6.dat'
do i__=1,233
read(1,'(A100)')ar__
read(ar__,1)
+ BPS_CS(i__),RAh(i__),RAm(i__),RAs(i__),DE_(i__),DEd(i__),
+ DEm(i__),GLON(i__),GLAT(i__),Class(i__),Vmag(i__),B_V(i__),
+ U_B(i__),o_Vmag(i__),Names(i__)
c Derive coordinates RA_ and Dec from input data
c (RA_ and Dec are set to rNULL_ when unknown)
RA_(i__) = RAh(i__)
if(RAh(i__) .GE. 0) RA_(i__)=RAh(i__)*15.
if(RAm(i__) .GE. 0) RA_(i__)=RA_(i__)+RAm(i__)/4.
if(RAs(i__) .GE. 0) RA_(i__)=RA_(i__)+RAs(i__)/240.
Dec(i__) = DEd(i__)
if(DEm(i__) .GE. 0) Dec(i__)=Dec(i__)+DEm(i__)/60.
if(DE_(i__).EQ.'-'.AND.Dec(i__).GE.0) Dec(i__)=-Dec(i__)
c ..............Just test output...........
write(6,1)
+ BPS_CS(i__),RAh(i__),RAm(i__),RAs(i__),DE_(i__),DEd(i__),
+ DEm(i__),GLON(i__),GLAT(i__),Class(i__),Vmag(i__),B_V(i__),
+ U_B(i__),o_Vmag(i__),Names(i__)
write(6,'(6H Pos: 2F8.4)') RA_(i__),Dec(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end