Conversion of standardized ReadMe file for
file /./ftp/cats/II/123A 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 2026-Oct-14
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/123A UBV Photometry of Faint Stars (V>14.5) in M67 (Frolov+ 1986)
*===============================================================================
*UBV Photometry of Faint Stars (V>14.5) in the Open Cluster M67
* Frolov V.N., Ananyevskaya J.K.
* <Astron. Tsirk. No. 1432, (1986)>
* =1986ATsir1432....5F
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'data.dat' ! The catalog of faint stars in M67
integer*4 nr__
parameter (nr__=1053) ! Number of records
character*58 ar__ ! Full-size record
integer*4 ID (nr__) ! *UBV-M67 number
character*2 flag (nr__) ! *Membership flag
integer*4 Sand (nr__) ! *Sanders number
real*4 Vmag (nr__) ! (mag) V magnitude
real*4 B_V (nr__) ! (mag) B-V color
real*4 U_B (nr__) ! (mag) ? U-B color
character*1 u_Vmag (nr__) ! Uncertainty flag (:) on the photometry
real*8 pmX (nr__) ! (arcsec/a) *Relative proper motion X
real*8 pmY (nr__) ! (arcsec/a) *Relative proper motion Y
integer*4 prob (nr__) ! (%) *Membership probability (percent)
*Note on ID:
* Number in this catalog (increasing, but not consecutive).
*Note on flag:
* Two-character code indicating whether this star is a member of M67 as
* determined by Frolov and Ananyevskaya (1986):
* * = Cluster member
* ** = Possible cluster member (probability < 50%)
* blank = Not a cluster member
*Note on Sand:
* Number of the star in the catalog of Sanders (1977A&AS...27...89S).
*Note on pmX, pmY:
* Relative proper motions of the star in x as determined by Sanders
* (1977A&AS...27...89S),
*Note on prob:
* Percentage probability that this star is a member of M67 as determined
* by Sanders (1977A&AS...27...89S).
*--------------------------------------------------------------------------------
*
*Remarks and Modifications
* The UBV Photometry of Faint Stars (V>14.5) in the Open Cluster M67
* (NGC 2682) (UBV-M67) was received by the Astronomical Data Center
* (ADC), NASA Goddard Space Flight Center, from the Centre de Donnees
* Astronomiques, Strasbourg (CDS), in December 1986.
*
* The original tape consisted of two text files: the first file
* contained a description of the catalog file and has been incorporated
* into this document; the second file contained the catalog data. No
* changes were made to the data file.
*
* A FORTRAN program was run to check the validity of each field
* according to its data type and value.
C=============================================================================
C Loading file 'data.dat' ! The catalog of faint stars in M67
C Format for file interpretation
1 format(
+ I5,A2,I5,2X,F5.2,3X,F4.2,2X,F5.2,A1,2X,F7.4,2X,F7.4,3X,I2)
C Effective file loading
open(unit=1,status='old',file=
+'data.dat')
write(6,*) '....Loading file: data.dat'
do i__=1,1053
read(1,'(A58)')ar__
read(ar__,1)
+ ID(i__),flag(i__),Sand(i__),Vmag(i__),B_V(i__),U_B(i__),
+ u_Vmag(i__),pmX(i__),pmY(i__),prob(i__)
if(ar__(29:33) .EQ. '') U_B(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ ID(i__),flag(i__),Sand(i__),Vmag(i__),B_V(i__),U_B(i__),
+ u_Vmag(i__),pmX(i__),pmY(i__),prob(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end