Conversion of standardized ReadMe file for
file /./ftp/cats/V/27 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-20
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. V/27 Proper Motions and UBV Photometry in h+{chi} Per (Muminov 1980)
*================================================================================
*Proper Motions and UBV Photometry of Stars in the Region of the
*h and {chi} Persei Clusters
* Muminov M.
* <Circ. Astron. Inst. Acad. Sci. SSR, Tashkent, 98 (1982);
* Bull. Inf. CDS 24, 95 (1983)>
* =1983BICDS..24...95M
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'data1.dat' ! Central region, B < 15.5 mag
integer*4 nr__
parameter (nr__=3086) ! Number of records
character*60 ar__ ! Full-size record
integer*4 ID ! *Star identification number
real*4 Xpos ! (mm) *X-coordinate
real*4 Ypos ! (mm) *Y-coordinate
real*4 Vmag ! (mag) V magnitude
real*4 B_V ! (mag) B-V color index
real*4 U_B ! (mag) *? U-B color index
integer*4 pmX ! (0.1mas/yr) Relative Annual proper motion along X
integer*4 pmY ! (0.1mas/yr) Relative Annual proper motion along Y
integer*4 Prob ! (%) *? Cluster membership probability
character*1 Cl_mem ! *[*]Cluster membership
character*7 AGorMV ! *AGK3 or MV designation
*Note on ID:
* The numbers are in the ranges:
* 1-3086 for the central part, B<15.5mag (file data1.dat)
* 4001-4550 for central region of h Per (file data2.dat)
* 4551-5055 for central region of {chi} Per (file data2.dat)
* 6001-7363 for adjacent region (file adjarea.dat)
*Note on Xpos, Ypos:
* Coordinates on the plates centered at:
* 02 16.9 +57 01 (1950) for data1.dat and data2.dat (central part)
* 02 06.7 +56 57 (1950) for adjarea.dat (adjacent area)
*Note on U-B:
* Blank for the faint part (data2.dat), no U plate available.
*Note on Prob:
* based on proper motions and photometry.
* No probability for the adjacent zone (file adjarea.dat)
*Note on Cl_mem:
* * = member of the cluster.
*Note on AGorMV:
* Designation in AGK3 (Cat. <I/61>) for data1.dat and adjarea.dat,
* or in Moffat and Vogt (1974VeBoc...2....1M) for data2.dat
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'data2.dat' ! Central region, B > 15.5 mag
integer*4 nr__1
parameter (nr__1=1055) ! Number of records
character*60 ar__1 ! Full-size record
integer*4 ID_1 ! *Star identification number
real*4 Xpos_1 ! (mm) *X-coordinate
real*4 Ypos_1 ! (mm) *Y-coordinate
real*4 Vmag_1 ! (mag) V magnitude
real*4 B_V_1 ! (mag) B-V color index
real*4 U_B_1 ! (mag) *? U-B color index
integer*4 pmX_1 ! (0.1mas/yr) Relative Annual proper motion along X
integer*4 pmY_1 ! (0.1mas/yr) Relative Annual proper motion along Y
integer*4 Prob_1 ! (%) *? Cluster membership probability
character*1 Cl_mem_1 ! *[*]Cluster membership
character*7 AGorMV_1 ! *AGK3 or MV designation
*Note on ID:
* The numbers are in the ranges:
* 1-3086 for the central part, B<15.5mag (file data1.dat)
* 4001-4550 for central region of h Per (file data2.dat)
* 4551-5055 for central region of {chi} Per (file data2.dat)
* 6001-7363 for adjacent region (file adjarea.dat)
*Note on Xpos, Ypos:
* Coordinates on the plates centered at:
* 02 16.9 +57 01 (1950) for data1.dat and data2.dat (central part)
* 02 06.7 +56 57 (1950) for adjarea.dat (adjacent area)
*Note on U-B:
* Blank for the faint part (data2.dat), no U plate available.
*Note on Prob:
* based on proper motions and photometry.
* No probability for the adjacent zone (file adjarea.dat)
*Note on Cl_mem:
* * = member of the cluster.
*Note on AGorMV:
* Designation in AGK3 (Cat. <I/61>) for data1.dat and adjarea.dat,
* or in Moffat and Vogt (1974VeBoc...2....1M) for data2.dat
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'adjarea.dat' ! Adjacent Area
integer*4 nr__2
parameter (nr__2=1363) ! Number of records
character*60 ar__2 ! Full-size record
integer*4 ID_2 ! *Star identification number
real*4 Xpos_2 ! (mm) *X-coordinate
real*4 Ypos_2 ! (mm) *Y-coordinate
real*4 Vmag_2 ! (mag) V magnitude
real*4 B_V_2 ! (mag) B-V color index
real*4 U_B_2 ! (mag) *? U-B color index
integer*4 pmX_2 ! (0.1mas/yr) Relative Annual proper motion along X
integer*4 pmY_2 ! (0.1mas/yr) Relative Annual proper motion along Y
integer*4 Prob_2 ! (%) *? Cluster membership probability
character*1 Cl_mem_2 ! *[*]Cluster membership
character*7 AGorMV_2 ! *AGK3 or MV designation
*Note on ID:
* The numbers are in the ranges:
* 1-3086 for the central part, B<15.5mag (file data1.dat)
* 4001-4550 for central region of h Per (file data2.dat)
* 4551-5055 for central region of {chi} Per (file data2.dat)
* 6001-7363 for adjacent region (file adjarea.dat)
*Note on Xpos, Ypos:
* Coordinates on the plates centered at:
* 02 16.9 +57 01 (1950) for data1.dat and data2.dat (central part)
* 02 06.7 +56 57 (1950) for adjarea.dat (adjacent area)
*Note on U-B:
* Blank for the faint part (data2.dat), no U plate available.
*Note on Prob:
* based on proper motions and photometry.
* No probability for the adjacent zone (file adjarea.dat)
*Note on Cl_mem:
* * = member of the cluster.
*Note on AGorMV:
* Designation in AGK3 (Cat. <I/61>) for data1.dat and adjarea.dat,
* or in Moffat and Vogt (1974VeBoc...2....1M) for data2.dat
C=============================================================================
C Loading file 'data1.dat' ! Central region, B < 15.5 mag
C Format for file interpretation
1 format(
+ I4,2X,F5.1,1X,F5.1,1X,F5.2,1X,F5.2,1X,F5.2,I5,I5,3X,I2,1X,A1,
+ 1X,A7)
C Effective file loading
open(unit=1,status='old',file=
+'data1.dat')
write(6,*) '....Loading file: data1.dat'
do i__=1,3086
read(1,'(A60)')ar__
read(ar__,1)
+ ID,Xpos,Ypos,Vmag,B_V,U_B,pmX,pmY,Prob,Cl_mem,AGorMV
if(ar__(31:35) .EQ. '') U_B = rNULL__
if(ar__(49:50) .EQ. '') Prob = iNULL__
c ..............Just test output...........
write(6,1)
+ ID,Xpos,Ypos,Vmag,B_V,U_B,pmX,pmY,Prob,Cl_mem,AGorMV
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'data2.dat' ! Central region, B > 15.5 mag
C Format for file interpretation
2 format(
+ I4,2X,F5.1,1X,F5.1,1X,F5.2,1X,F5.2,1X,F5.2,I5,I5,3X,I2,1X,A1,
+ 1X,A7)
C Effective file loading
open(unit=1,status='old',file=
+'data2.dat')
write(6,*) '....Loading file: data2.dat'
do i__=1,1055
read(1,'(A60)')ar__1
read(ar__1,2)
+ ID_1,Xpos_1,Ypos_1,Vmag_1,B_V_1,U_B_1,pmX_1,pmY_1,Prob_1,
+ Cl_mem_1,AGorMV_1
if(ar__1(31:35) .EQ. '') U_B_1 = rNULL__
if(ar__1(49:50) .EQ. '') Prob_1 = iNULL__
c ..............Just test output...........
write(6,2)
+ ID_1,Xpos_1,Ypos_1,Vmag_1,B_V_1,U_B_1,pmX_1,pmY_1,Prob_1,
+ Cl_mem_1,AGorMV_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'adjarea.dat' ! Adjacent Area
C Format for file interpretation
3 format(
+ I4,2X,F5.1,1X,F5.1,1X,F5.2,1X,F5.2,1X,F5.2,I5,I5,3X,I2,1X,A1,
+ 1X,A7)
C Effective file loading
open(unit=1,status='old',file=
+'adjarea.dat')
write(6,*) '....Loading file: adjarea.dat'
do i__=1,1363
read(1,'(A60)')ar__2
read(ar__2,3)
+ ID_2,Xpos_2,Ypos_2,Vmag_2,B_V_2,U_B_2,pmX_2,pmY_2,Prob_2,
+ Cl_mem_2,AGorMV_2
if(ar__2(31:35) .EQ. '') U_B_2 = rNULL__
if(ar__2(49:50) .EQ. '') Prob_2 = iNULL__
c ..............Just test output...........
write(6,3)
+ ID_2,Xpos_2,Ypos_2,Vmag_2,B_V_2,U_B_2,pmX_2,pmY_2,Prob_2,
+ Cl_mem_2,AGorMV_2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end