Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/395/823 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-Mar-28 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/395/823 CCD {Delta}a-photometry of 5 open clusters (Paunzen+, 2002) *================================================================================ *CCD photometric search for peculiar stars in open clusters. *IV. Collinder 272, Pismis 20, Lynga 14, NGC 6396 and NGC 6611 * Paunzen E., Maitzen H.M. * <Astron. Astrophys. 395, 823 (2002)> * =2002A&A...395..823P C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table4.dat' ! Observed program stars of Collinder 272 integer*4 nr__ parameter (nr__=111) ! Number of records character*75 ar__ ! Full-size record integer*4 Seq ! Number in Collinder 22, sorted after X and Y * Cl* Collinder 272 PPM NNN in Simbad integer*4 WEBDA ! ? Notation according to WEBDA * (Cl* Collinder 272 VBF NNN in Simbad) real*4 Xpos ! (pix) X-coordinate real*4 Ypos ! (pix) Y-coordinate real*4 Vmag ! (mag) Mean V value real*4 a ! (mag) Mean a index (Maitzen) 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) integer*4 Obs ! Number of observations c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table5.dat' ! Observed program stars of Pismis 20 integer*4 nr__1 parameter (nr__1=238) ! Number of records character*80 ar__1 ! Full-size record integer*4 Seq_1 ! Number in Pismis 20, sorted after X and Y * Cl* Pismis 20 PPM NNN in Simbad integer*4 WEBDA_1 ! ? Notation according to WEBDA real*4 Xpos_1 ! (pix) X-coordinate real*4 Ypos_1 ! (pix) Y-coordinate real*4 V0 ! (mag) Mean V0 value real*4 acorr ! (mag) Mean a(corr) index (Maitzen) real*4 e_acorr ! (mag) Sigma a(corr) real*4 v_g1_y_0 ! (mag) Mean (g1-y)0 index real*4 e__g1_y_0 ! (mag) Sigma (g1-y)0 real*4 da_g1_y_0 ! (mag) Deviation from cluster line (Delta a) real*4 v_B_V_0 ! (mag) ? (B-V)0 from the literature real*4 da_B_V0 ! (mag) ? Deviation from cluster line (Delta a) real*4 E_B_V ! (mag) Reddening integer*4 Obs_1 ! Number of observations c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table6.dat' ! Observed program stars of Lynga 14 integer*4 nr__2 parameter (nr__2=53) ! Number of records character*72 ar__2 ! Full-size record integer*4 Seq_2 ! Number in Lynga 14, sorted after X and Y * Cl* Lynga 14 PPM NNN in Simbad integer*4 WEBDA_2 ! ? Notation according to WEBDA * (Cl* Lynga 14 NNN in Simbad) real*4 Xpos_2 ! (pix) X-coordinate real*4 Ypos_2 ! (pix) Y-coordinate real*4 V0_1 ! (mag) Mean V0 value real*4 acorr_1 ! (mag) Mean a(corr) index real*4 e_acorr_1 ! (mag) Sigma a(corr) real*4 v_g1_y_0_1 ! (mag) Mean (g1-y)0 index real*4 e__g1_y_0_1 ! (mag) Sigma (g1-y)0 real*4 da_g1_y_0_1 ! (mag) Deviation from cluster line (Delta a) real*4 v_B_V_0_1 ! (mag) ? (B-V)0 from the literature real*4 E_B_V_1 ! (mag) reddening integer*4 Obs_2 ! Number of observations c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table7.dat' ! Observed program stars of NGC 6396 integer*4 nr__3 parameter (nr__3=105) ! Number of records character*71 ar__3 ! Full-size record integer*4 Seq_3 ! Number in NGC 6369, sorted after X and Y * Cl* NGC 6369 PPM NNN in Simbad integer*4 MV ! ? Notation according to Moffat & Vogt * (1975A&AS...20..155M, NGC 6396 NN) real*4 Xpos_3 ! (pix) X-coordinate real*4 Ypos_3 ! (pix) Y-coordinate real*4 V0_2 ! (mag) Mean V0 value real*4 acorr_2 ! (mag) Mean a(corr) index (Maitzen) real*4 e_acorr_2 ! (mag) Sigma a(corr) real*4 v_g1_y_0_2 ! (mag) Mean (g1-y)0 index real*4 e__g1_y_0_2 ! (mag) Sigma (g1-y)0 real*4 da_g1_y_0_2 ! (mag) Deviation from cluster line (Delta a) real*4 v_B_V_0_2 ! (mag) ? (B-V)0 from the literature real*4 E_B_V_1 ! (mag) reddening integer*4 Obs_3 ! Number of observations c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table8.dat' ! Observed program stars of NGC 6611 integer*4 nr__4 parameter (nr__4=79) ! Number of records character*85 ar__4 ! Full-size record integer*4 Seq_4 ! Number in NGC 6611, sorted after X and Y * Cl* NGC 6611 PPM NNN in Simbad integer*4 BKP ! ? Notation according to Belikov et al. (1999, * Cat. <J/A+AS/134/525>, Cl* NGC 6611 BKP NNNNN) integer*4 No3 ! ? Notation according to WEBDA * (NGC 6611 NNN in Simbad) real*4 Xpos_4 ! (pix) X-coordinate real*4 Ypos_4 ! (pix) Y-coordinate real*4 V0_3 ! (mag) Mean V0 value real*4 acorr_3 ! (mag) Mean a(corr) index (Maitzen) real*4 e_acorr_3 ! (mag) Sigma a(corr) real*4 v_g1_y_0_3 ! (mag) Mean (g1-y)0 index real*4 e__g1_y_0_3 ! (mag) Sigma (g1-y)0 real*4 da_g1_y_0_3 ! (mag) Deviation from cluster line (Delta a) real*4 v_B_V_0_3 ! (mag) ? (B-V)0 from the literature real*4 da_B_V_0 ! (mag) ? Deviation from cluster line (Delta a) real*4 E_B_V_1 ! (mag) reddening integer*4 Obs_4 ! Number of observations C============================================================================= C Loading file 'table4.dat' ! Observed program stars of Collinder 272 C Format for file interpretation 1 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,E9.3,F4.2,1X,F6.3,1X,I2) C Effective file loading open(unit=1,status='old',file= +'table4.dat') write(6,*) '....Loading file: table4.dat' do i__=1,111 read(1,'(A75)')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, + Obs if(ar__(5:7) .EQ. '') WEBDA = iNULL__ if(ar__(62:65) .EQ. '') B_V = rNULL__ if(ar__(67:72) .EQ. '') da_B_V = rNULL__ 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, + Obs c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table5.dat' ! Observed program stars of Pismis 20 C Format for file interpretation 2 format( + I3,1X,I4,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.2,1X,F6.3,1X,F4.2,1X,I2) C Effective file loading open(unit=1,status='old',file= +'table5.dat') write(6,*) '....Loading file: table5.dat' do i__=1,238 read(1,'(A80)')ar__1 read(ar__1,2) + Seq_1,WEBDA_1,Xpos_1,Ypos_1,V0,acorr,e_acorr,v_g1_y_0, + e__g1_y_0,da_g1_y_0,v_B_V_0,da_B_V0,E_B_V,Obs_1 if(ar__1(5:8) .EQ. '') WEBDA_1 = iNULL__ if(ar__1(61:65) .EQ. '') v_B_V_0 = rNULL__ if(ar__1(67:72) .EQ. '') da_B_V0 = rNULL__ c ..............Just test output........... write(6,2) + Seq_1,WEBDA_1,Xpos_1,Ypos_1,V0,acorr,e_acorr,v_g1_y_0, + e__g1_y_0,da_g1_y_0,v_B_V_0,da_B_V0,E_B_V,Obs_1 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table6.dat' ! Observed program stars of Lynga 14 C Format for file interpretation 3 format( + I3,1X,I4,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,F4.2,1X,F4.2,1X,I2) C Effective file loading open(unit=1,status='old',file= +'table6.dat') write(6,*) '....Loading file: table6.dat' do i__=1,53 read(1,'(A72)')ar__2 read(ar__2,3) + Seq_2,WEBDA_2,Xpos_2,Ypos_2,V0_1,acorr_1,e_acorr_1,v_g1_y_0_1, + e__g1_y_0_1,da_g1_y_0_1,v_B_V_0_1,E_B_V_1,Obs_2 if(ar__2(5:8) .EQ. '') WEBDA_2 = iNULL__ if(ar__2(61:64) .EQ. '') v_B_V_0_1 = rNULL__ c ..............Just test output........... write(6,3) + Seq_2,WEBDA_2,Xpos_2,Ypos_2,V0_1,acorr_1,e_acorr_1,v_g1_y_0_1, + e__g1_y_0_1,da_g1_y_0_1,v_B_V_0_1,E_B_V_1,Obs_2 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table7.dat' ! Observed program stars of NGC 6396 C Format for file interpretation 4 format( + I3,1X,I2,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.2,1X,F4.2,1X,I2) C Effective file loading open(unit=1,status='old',file= +'table7.dat') write(6,*) '....Loading file: table7.dat' do i__=1,105 read(1,'(A71)')ar__3 read(ar__3,4) + Seq_3,MV,Xpos_3,Ypos_3,V0_2,acorr_2,e_acorr_2,v_g1_y_0_2, + e__g1_y_0_2,da_g1_y_0_2,v_B_V_0_2,E_B_V_1,Obs_3 if(ar__3(5:6) .EQ. '') MV = iNULL__ if(ar__3(59:63) .EQ. '') v_B_V_0_2 = rNULL__ c ..............Just test output........... write(6,4) + Seq_3,MV,Xpos_3,Ypos_3,V0_2,acorr_2,e_acorr_2,v_g1_y_0_2, + e__g1_y_0_2,da_g1_y_0_2,v_B_V_0_2,E_B_V_1,Obs_3 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table8.dat' ! Observed program stars of NGC 6611 C Format for file interpretation 5 format( + I2,1X,I5,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,F6.3,1X,F6.3,1X,F4.2,1X,I2) C Effective file loading open(unit=1,status='old',file= +'table8.dat') write(6,*) '....Loading file: table8.dat' do i__=1,79 read(1,'(A85)')ar__4 read(ar__4,5) + Seq_4,BKP,No3,Xpos_4,Ypos_4,V0_3,acorr_3,e_acorr_3,v_g1_y_0_3, + e__g1_y_0_3,da_g1_y_0_3,v_B_V_0_3,da_B_V_0,E_B_V_1,Obs_4 if(ar__4(4:8) .EQ. '') BKP = iNULL__ if(ar__4(10:12) .EQ. '') No3 = iNULL__ if(ar__4(65:70) .EQ. '') v_B_V_0_3 = rNULL__ if(ar__4(72:77) .EQ. '') da_B_V_0 = rNULL__ c ..............Just test output........... write(6,5) + Seq_4,BKP,No3,Xpos_4,Ypos_4,V0_3,acorr_3,e_acorr_3,v_g1_y_0_3, + e__g1_y_0_3,da_g1_y_0_3,v_B_V_0_3,da_B_V_0,E_B_V_1,Obs_4 c .......End.of.Just test output........... end do close(1) C============================================================================= stop end