Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/412/721 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-17
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/412/721 CCD {Delta}a-photometry of 5 open clusters (Paunzen+, 2003)
*================================================================================
*CCD photometric search for peculiar stars in open clusters.
*V. NGC 2099, NGC 3114, NGC 6204, NGC 6705 and NGC 6756.
* Paunzen E., Pintado O.I., Maitzen H.M.
* <Astron. Astrophys., 412, 721-725 (2003)>
* =2003A&A...412..721P
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! Observed program stars of NGC 2099
integer*4 nr__
parameter (nr__=41) ! Number of records
character*69 ar__ ! Full-size record
integer*4 Seq ! Notation for stars sorted after X and Y
integer*4 WEBDA ! Notation according to WEBDA
real*4 Xpos ! (pix) X-coordinate on CCD
real*4 Ypos ! (pix) Y-coordinate on CCD
real*4 Vmag ! (mag) Mean V value
real*4 a ! (mag) Mean a index (a = g2 - [(g1+y)/2])
real*4 e_a ! (mag) Sigma a
real*4 g1_y ! (mag) Mean (g1-y) index
real*4 e_g1_y ! (mag) Sigma (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 3114
integer*4 nr__1
parameter (nr__1=271) ! Number of records
character*62 ar__1 ! Full-size record
integer*4 Seq_1 ! Notation for stars sorted after X and Y
integer*4 CP ! ? Notation according to Carraro & Patat
* (2001A&A...379..136C)
* Cl* NGC 3114 CP NNNN in Simbad
integer*4 JM ! ? Notation according to Jankowitz & McCosh
* (1963MNSSA..22...18J), NGC 3114 NNN in Simbad
real*4 Xpos_1 ! (pix) X-coordinate on CCD
real*4 Ypos_1 ! (pix) Y-coordinate on CCD
real*4 Vmag_1 ! (mag) Mean V value
real*4 a_1 ! (mag) Mean a index (a = g2 - [(g1+y)/2])
real*4 e_a_1 ! (mag) Sigma a
real*4 g1_y_1 ! (mag) Mean (g1-y) index
real*4 e_g1_y_1 ! (mag) Sigma (g1-y)
real*4 da_g1_y_1 ! (mag) Deviation from cluster line ({Delta}a)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table6.dat' ! Observed program stars of NGC 6204
integer*4 nr__2
parameter (nr__2=319) ! Number of records
character*74 ar__2 ! Full-size record
integer*4 Seq_2 ! Notation for stars sorted after X and Y
integer*4 KF ! ? Notation according to Kjeldsen & Frandsen
* (1991A&AS...87..119K)
* Cl* NGC 6204 KF NNN in Simbad
real*4 Xpos_2 ! (pix) X-coordinate on CCD
real*4 Ypos_2 ! (pix) Y-coordinate on CCD
real*4 Vmag_2 ! (mag) Mean V value
real*4 a_2 ! (mag) Mean a index (a = g2 - [(g1+y)/2])
real*4 e_a_2 ! (mag) Sigma a
real*4 g1_y_2 ! (mag) Mean (g1-y) index
real*4 e_g1_y_2 ! (mag) Sigma (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)
integer*4 Obs ! Number of observations
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table7.dat' ! Observed program stars of NGC 6705
integer*4 nr__3
parameter (nr__3=312) ! Number of records
character*81 ar__3 ! Full-size record
integer*4 Seq_3 ! Notation for stars sorted after X and Y
integer*4 SBL ! ? Notation according to Sung et al.
* (1999MNRAS.310..982S)
* Cl* NGC 6705 SBL NNNNNN in Simbad
integer*4 WEBDA_1 ! ? Notation according to WEBDA
real*4 Xpos_3 ! (pix) X-coordinate on CCD
real*4 Ypos_3 ! (pix) Y-coordinate on CCD
real*4 Vmag_3 ! (mag) Mean V value
real*4 a_3 ! (mag) Mean a index (a = g2 - [(g1+y)/2])
real*4 e_a_3 ! (mag) Sigma a
real*4 g1_y_3 ! (mag) Mean (g1-y) index
real*4 e_g1_y_3 ! (mag) Sigma (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)
integer*4 Obs_1 ! Number of observations
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table8.dat' ! Observed program stars of NGC 6756
integer*4 nr__4
parameter (nr__4=65) ! Number of records
character*74 ar__4 ! Full-size record
integer*4 Seq_4 ! Notation for stars sorted after X and Y
integer*4 WEBDA_2 ! ? Notation according to WEBDA
real*4 Xpos_4 ! (pix) X-coordinate on CCD
real*4 Ypos_4 ! (pix) Y-coordinate on CCD
real*4 Vmag_4 ! (mag) Mean V value
real*4 a_4 ! (mag) ? Mean a index (a = g2 - [(g1+y)/2])
real*4 e_a_4 ! (mag) ? Sigma a
real*4 g1_y_4 ! (mag) Mean (g1-y) index
real*4 e_g1_y_4 ! (mag) Sigma (g1-y)
real*4 da_g1_y_1 ! (mag) ? Deviation from cluster line ({Delta}a)
real*4 b_y ! (mag) ? (b-y) from the literature
real*4 da_b_y ! (mag) ? Deviation from cluster line ({Delta}a)
integer*4 Obs_2 ! Number of observations
C=============================================================================
C Loading file 'table4.dat' ! Observed program stars of NGC 2099
C Format for file interpretation
1 format(
+ I2,1X,I3,1X,F5.1,1X,F5.1,1X,F6.3,1X,F5.3,1X,F5.3,1X,F6.3,1X,
+ F5.3,1X,F6.3,1X,F5.3,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'table4.dat')
write(6,*) '....Loading file: table4.dat'
do i__=1,41
read(1,'(A69)')ar__
read(ar__,1)
+ Seq,WEBDA,Xpos,Ypos,Vmag,a,e_a,g1_y,e_g1_y,da_g1_y,B_V,da_B_V
c ..............Just test output...........
write(6,1)
+ Seq,WEBDA,Xpos,Ypos,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 3114
C Format for file interpretation
2 format(
+ I3,1X,I3,1X,I3,1X,F5.1,1X,F5.1,1X,F6.3,1X,F5.3,1X,F5.3,1X,
+ F6.3,1X,F5.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'table5.dat')
write(6,*) '....Loading file: table5.dat'
do i__=1,271
read(1,'(A62)')ar__1
read(ar__1,2)
+ Seq_1,CP,JM,Xpos_1,Ypos_1,Vmag_1,a_1,e_a_1,g1_y_1,e_g1_y_1,
+ da_g1_y_1
if(ar__1(5:7) .EQ. '') CP = iNULL__
if(ar__1(9:11) .EQ. '') JM = iNULL__
c ..............Just test output...........
write(6,2)
+ Seq_1,CP,JM,Xpos_1,Ypos_1,Vmag_1,a_1,e_a_1,g1_y_1,e_g1_y_1,
+ da_g1_y_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table6.dat' ! Observed program stars of NGC 6204
C Format for file interpretation
3 format(
+ I3,1X,I3,1X,F5.1,1X,F5.1,1X,F6.3,1X,F5.3,1X,F5.3,1X,F6.3,1X,
+ F5.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,I2)
C Effective file loading
open(unit=1,status='old',file=
+'table6.dat')
write(6,*) '....Loading file: table6.dat'
do i__=1,319
read(1,'(A74)')ar__2
read(ar__2,3)
+ Seq_2,KF,Xpos_2,Ypos_2,Vmag_2,a_2,e_a_2,g1_y_2,e_g1_y_2,
+ da_g1_y_1,B_V_1,da_B_V_1,Obs
if(ar__2(5:7) .EQ. '') KF = iNULL__
if(ar__2(60:64) .EQ. '') B_V_1 = rNULL__
if(ar__2(66:71) .EQ. '') da_B_V_1 = rNULL__
c ..............Just test output...........
write(6,3)
+ Seq_2,KF,Xpos_2,Ypos_2,Vmag_2,a_2,e_a_2,g1_y_2,e_g1_y_2,
+ da_g1_y_1,B_V_1,da_B_V_1,Obs
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table7.dat' ! Observed program stars of NGC 6705
C Format for file interpretation
4 format(
+ I3,1X,I4,1X,I4,1X,F6.1,1X,F5.1,1X,F6.3,1X,F5.3,1X,F5.3,1X,
+ F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,I2)
C Effective file loading
open(unit=1,status='old',file=
+'table7.dat')
write(6,*) '....Loading file: table7.dat'
do i__=1,312
read(1,'(A81)')ar__3
read(ar__3,4)
+ Seq_3,SBL,WEBDA_1,Xpos_3,Ypos_3,Vmag_3,a_3,e_a_3,g1_y_3,
+ e_g1_y_3,da_g1_y_1,B_V_2,da_B_V_1,Obs_1
if(ar__3(5:8) .EQ. '') SBL = iNULL__
if(ar__3(10:13) .EQ. '') WEBDA_1 = iNULL__
if(ar__3(67:71) .EQ. '') B_V_2 = rNULL__
if(ar__3(73:78) .EQ. '') da_B_V_1 = rNULL__
c ..............Just test output...........
write(6,4)
+ Seq_3,SBL,WEBDA_1,Xpos_3,Ypos_3,Vmag_3,a_3,e_a_3,g1_y_3,
+ e_g1_y_3,da_g1_y_1,B_V_2,da_B_V_1,Obs_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table8.dat' ! Observed program stars of NGC 6756
C Format for file interpretation
5 format(
+ I2,1X,I2,1X,F6.1,1X,F6.1,1X,F6.3,1X,F5.3,1X,F5.3,1X,F6.3,1X,
+ F5.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,I2)
C Effective file loading
open(unit=1,status='old',file=
+'table8.dat')
write(6,*) '....Loading file: table8.dat'
do i__=1,65
read(1,'(A74)')ar__4
read(ar__4,5)
+ Seq_4,WEBDA_2,Xpos_4,Ypos_4,Vmag_4,a_4,e_a_4,g1_y_4,e_g1_y_4,
+ da_g1_y_1,b_y,da_b_y,Obs_2
if(ar__4(4:5) .EQ. '') WEBDA_2 = iNULL__
if(ar__4(28:32) .EQ. '') a_4 = rNULL__
if(ar__4(34:38) .EQ. '') e_a_4 = rNULL__
if(ar__4(53:58) .EQ. '') da_g1_y_1 = rNULL__
if(ar__4(60:64) .EQ. '') b_y = rNULL__
if(ar__4(66:71) .EQ. '') da_b_y = rNULL__
c ..............Just test output...........
write(6,5)
+ Seq_4,WEBDA_2,Xpos_4,Ypos_4,Vmag_4,a_4,e_a_4,g1_y_4,e_g1_y_4,
+ da_g1_y_1,b_y,da_b_y,Obs_2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end