Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/373/153 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/A+A/373/153 CCD {Delta}a-photometry of 5 open clusters (Paunzen+, 2001)
*================================================================================
*CCD photometric search for peculiar stars in open clusters.
*II. NGC 2489, NGC 2567, NGC 2658, NGC 5281 and NGC 6208
* Paunzen E., Maitzen H.M.
* <Astron. Astrophys. 373, 153 (2001)>
* =2001A&A...373..153P
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! Observed program stars of NGC 2489
integer*4 nr__
parameter (nr__=59) ! Number of records
character*75 ar__ ! Full-size record
integer*4 No1 ! Notation for stars sorted after X and Y
integer*4 LJ ! ? Notation according to Lindoff & Johansson
* (1968ArA.....5...45L, NGC 2489 NNN)
integer*4 RP ! ? Notation according to Ramsay & Pollaco (1992,
* Cat. <J/A+AS/94/73>, Cl* NGC 2489 RP NNN)
real*4 Xpix ! (pix) X-coordinate
real*4 Ypix ! (pix) Y-coordinate
real*4 Vmag ! (mag) Mean V value
real*4 a ! (mag) Mean a index
real*4 e_a ! (mag) rms uncertainty on a
real*4 g1_y ! (mag) Mean (g1-y) index
real*4 e_g1_y ! (mag) rms uncertainty on (g1-y)
real*4 da_g1_y ! (mag) Deviation from cluster line ({Delta}a)
real*4 B_V ! (mag) ? (B-V) from the literature
real*4 da_B_V ! (mag) ? Deviation from cluster line ({Delta}a)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table5.dat' ! Observed program stars of NGC 2567
integer*4 nr__1
parameter (nr__1=50) ! Number of records
character*75 ar__1 ! Full-size record
integer*4 No1_1 ! Notation for stars sorted after X and Y
integer*4 L ! ? Notation according to Lindoff
* (1968ArA.....4..587L)
integer*4 RP_1 ! ? Notation according to Ramsay & Pollaco (1992
* Cat. <J/A+AS/94/73>, Cl* NGC 2567 RP NNN)
real*4 Xpix_1 ! (pix) X-coordinate
real*4 Ypix_1 ! (pix) Y-coordinate
real*4 Vmag_1 ! (mag) Mean V value
real*4 a_1 ! (mag) Mean a index
real*4 e_a_1 ! (mag) rms uncertainty on a
real*4 g1_y_1 ! (mag) Mean (g1-y) index
real*4 e_g1_y_1 ! (mag) rms uncertainty on (g1-y)
real*4 da_g1_y_1 ! (mag) Deviation from cluster line ({Delta}a)
real*4 B_V_1 ! (mag) ? (B-V) from the literature
real*4 da_B_V_1 ! (mag) ? Deviation from cluster line ({Delta}a)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table6.dat' ! Observed program stars of NGC 2658
integer*4 nr__2
parameter (nr__2=55) ! Number of records
character*73 ar__2 ! Full-size record
integer*4 No1_2 ! Notation for stars sorted after X and Y
integer*4 RP_2 ! ? Notation according to Ramsay & Pollaco (1992
* Cat. <J/A+AS/94/73>, Cl* NGC 2658 RP NNN))
real*4 Xpix_2 ! (pix) X-coordinate
real*4 Ypix_2 ! (pix) Y-coordinate
real*4 Vmag_2 ! (mag) Mean V value
real*4 a_2 ! (mag) Mean a index
real*4 e_a_2 ! (mag) rms uncertainty on a
real*4 g1_y_2 ! (mag) Mean (g1-y) index
real*4 e_g1_y_2 ! (mag) rms uncertainty on (g1-y)
real*4 da_g1_y_1 ! (mag) Deviation from cluster line ({Delta}a)
real*4 B_V_2 ! (mag) ? (B-V) from the literature
real*4 da_B_V_1 ! (mag) ? Deviation from cluster line ({Delta}a)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table7.dat' ! Observed program stars of NGC 5281
integer*4 nr__3
parameter (nr__3=30) ! Number of records
character*72 ar__3 ! Full-size record
integer*4 No1_3 ! Notation for stars sorted after X and Y
integer*4 MV ! ? Notation according to Moffat & Vogt
* (1973A&AS...10..135M, Cl NGC 5281 NN)
real*4 Xpix_3 ! (pix) X-coordinate
real*4 Ypix_3 ! (pix) Y-coordinate
real*4 Vmag_3 ! (mag) Mean V value
real*4 a_3 ! (mag) Mean a index
real*4 e_a_3 ! (mag) rms uncertainty on a
real*4 g1_y_3 ! (mag) Mean (g1-y) index
real*4 e_g1_y_3 ! (mag) rms uncertainty on (g1-y)
real*4 da_g1_y_1 ! (mag) Deviation from cluster line ({Delta}a)
real*4 B_V_3 ! (mag) ? (B-V) from the literature
real*4 da_B_V_1 ! (mag) ? Deviation from cluster line ({Delta}a)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table8.dat' ! Observed program stars of NGC 6208
integer*4 nr__4
parameter (nr__4=41) ! Number of records
character*73 ar__4 ! Full-size record
integer*4 No1_4 ! Notation for stars sorted after X and Y
integer*4 L_1 ! ? Notation according to Lindoff
* (1972A&AS....7..231L, NGC 6208 NNNa)
real*4 Xpix_4 ! (pix) X-coordinate
real*4 Ypix_4 ! (pix) Y-coordinate
real*4 Vmag_4 ! (mag) Mean V value
real*4 a_4 ! (mag) Mean a index
real*4 e_a_4 ! (mag) rms uncertainty on a
real*4 g1_y_4 ! (mag) Mean (g1-y) index
real*4 e_g1_y_4 ! (mag) rms uncertainty on (g1-y)
real*4 da_g1_y_1 ! (mag) Deviation from cluster line ({Delta}a)
real*4 B_V_4 ! (mag) ? (B-V) from the literature
real*4 da_B_V_1 ! (mag) ? Deviation from cluster line ({Delta}a)
C=============================================================================
C Loading file 'table4.dat' ! Observed program stars of NGC 2489
C Format for file interpretation
1 format(
+ I2,1X,I2,1X,I2,2X,F5.1,2X,F5.1,2X,F5.2,2X,F5.3,1X,F5.3,1X,
+ F6.3,1X,F5.3,1X,F6.3,2X,F4.2,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'table4.dat')
write(6,*) '....Loading file: table4.dat'
do i__=1,59
read(1,'(A75)')ar__
read(ar__,1)
+ No1,LJ,RP,Xpix,Ypix,Vmag,a,e_a,g1_y,e_g1_y,da_g1_y,B_V,da_B_V
if(ar__(4:5) .EQ. '') LJ = iNULL__
if(ar__(7:8) .EQ. '') RP = iNULL__
if(ar__(65:68) .EQ. '') B_V = rNULL__
if(ar__(70:75) .EQ. '') da_B_V = rNULL__
c ..............Just test output...........
write(6,1)
+ No1,LJ,RP,Xpix,Ypix,Vmag,a,e_a,g1_y,e_g1_y,da_g1_y,B_V,da_B_V
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table5.dat' ! Observed program stars of NGC 2567
C Format for file interpretation
2 format(
+ I2,1X,I2,1X,I3,2X,F5.1,2X,F5.1,2X,F5.2,2X,F5.3,1X,F5.3,1X,
+ F6.3,1X,F5.3,1X,F6.3,1X,F4.2,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'table5.dat')
write(6,*) '....Loading file: table5.dat'
do i__=1,50
read(1,'(A75)')ar__1
read(ar__1,2)
+ No1_1,L,RP_1,Xpix_1,Ypix_1,Vmag_1,a_1,e_a_1,g1_y_1,e_g1_y_1,
+ da_g1_y_1,B_V_1,da_B_V_1
if(ar__1(4:5) .EQ. '') L = iNULL__
if(ar__1(7:9) .EQ. '') RP_1 = iNULL__
if(ar__1(65:68) .EQ. '') B_V_1 = rNULL__
if(ar__1(70:75) .EQ. '') da_B_V_1 = rNULL__
c ..............Just test output...........
write(6,2)
+ No1_1,L,RP_1,Xpix_1,Ypix_1,Vmag_1,a_1,e_a_1,g1_y_1,e_g1_y_1,
+ da_g1_y_1,B_V_1,da_B_V_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table6.dat' ! Observed program stars of NGC 2658
C Format for file interpretation
3 format(
+ I2,1X,I3,2X,F5.1,2X,F5.1,2X,F5.2,2X,F5.3,1X,F5.3,1X,F6.3,1X,
+ F5.3,1X,F6.3,2X,F4.2,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'table6.dat')
write(6,*) '....Loading file: table6.dat'
do i__=1,55
read(1,'(A73)')ar__2
read(ar__2,3)
+ No1_2,RP_2,Xpix_2,Ypix_2,Vmag_2,a_2,e_a_2,g1_y_2,e_g1_y_2,
+ da_g1_y_1,B_V_2,da_B_V_1
if(ar__2(4:6) .EQ. '') RP_2 = iNULL__
if(ar__2(63:66) .EQ. '') B_V_2 = rNULL__
if(ar__2(68:73) .EQ. '') da_B_V_1 = rNULL__
c ..............Just test output...........
write(6,3)
+ No1_2,RP_2,Xpix_2,Ypix_2,Vmag_2,a_2,e_a_2,g1_y_2,e_g1_y_2,
+ da_g1_y_1,B_V_2,da_B_V_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table7.dat' ! Observed program stars of NGC 5281
C Format for file interpretation
4 format(
+ I2,1X,I2,2X,F5.1,2X,F5.1,2X,F5.2,2X,F5.3,1X,F5.3,1X,F6.3,1X,
+ F5.3,1X,F6.3,2X,F4.2,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'table7.dat')
write(6,*) '....Loading file: table7.dat'
do i__=1,30
read(1,'(A72)')ar__3
read(ar__3,4)
+ No1_3,MV,Xpix_3,Ypix_3,Vmag_3,a_3,e_a_3,g1_y_3,e_g1_y_3,
+ da_g1_y_1,B_V_3,da_B_V_1
if(ar__3(4:5) .EQ. '') MV = iNULL__
if(ar__3(62:65) .EQ. '') B_V_3 = rNULL__
if(ar__3(67:72) .EQ. '') da_B_V_1 = rNULL__
c ..............Just test output...........
write(6,4)
+ No1_3,MV,Xpix_3,Ypix_3,Vmag_3,a_3,e_a_3,g1_y_3,e_g1_y_3,
+ da_g1_y_1,B_V_3,da_B_V_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table8.dat' ! Observed program stars of NGC 6208
C Format for file interpretation
5 format(
+ I2,1X,I3,2X,F5.1,2X,F5.1,2X,F5.2,2X,F5.3,1X,F5.3,1X,F6.3,1X,
+ F5.3,1X,F6.3,2X,F4.2,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'table8.dat')
write(6,*) '....Loading file: table8.dat'
do i__=1,41
read(1,'(A73)')ar__4
read(ar__4,5)
+ No1_4,L_1,Xpix_4,Ypix_4,Vmag_4,a_4,e_a_4,g1_y_4,e_g1_y_4,
+ da_g1_y_1,B_V_4,da_B_V_1
if(ar__4(4:6) .EQ. '') L_1 = iNULL__
if(ar__4(63:66) .EQ. '') B_V_4 = rNULL__
if(ar__4(68:73) .EQ. '') da_B_V_1 = rNULL__
c ..............Just test output...........
write(6,5)
+ No1_4,L_1,Xpix_4,Ypix_4,Vmag_4,a_4,e_a_4,g1_y_4,e_g1_y_4,
+ da_g1_y_1,B_V_4,da_B_V_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end