Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/153/195 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/AJ/153/195 Photometry of multiple stars at NAOR&ASV in 2015 (Cvetkovic+, 2017) *================================================================================ *CCD measurements of double and multiple stars at NAO Rozhen and ASV in 2015. * Cvetkovic Z., Pavlovic R., Boeva S. * <Astron. J., 153, 195 (2017)> * =2017AJ....153..195C (SIMBAD/NED BibCode) C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! CCD measurements of double stars integer*4 nr__ parameter (nr__=687) ! Number of records character*131 ar__ ! Full-size record character*11 WDS ! WDS designation (HHMMm+DDMM, J2000) character*11 Disc ! Discoverer designation real*8 Epoch ! (yr) Epoch of observation (Besselian year) real*4 Sep ! (arcsec) [1.52/201.56] Angular separation {rho} real*4 e_Sep ! (arcsec) [0/0.71] Standard deviation in Sep real*4 PA ! (deg) [0.1/359.89] Position angle {theta} (1) real*4 e_PA ! (deg) [0/2.96] Standard deviation in PA real*4 DBmag ! (mag) [0/7.18]? Differential B band magnitude (2) real*4 e_DBmag ! (mag) [0/0.29]? Standard deviation in DBmag real*4 DVmag ! (mag) [0/6.79]? Differential V band magnitude (2) real*4 e_DVmag ! (mag) [0.01/1.04]? Standard deviation in DVmag real*4 v_O_C_Sep ! (arcsec) [-0.99/3.22]? Angular separation (O-C) * residual (only in table 3) real*4 v_O_C_PA ! (arcsec) [-3.4/2.4]? Position angle (O-C) residual * (only in table 3) character*28 Ref ! Reference (only in table 3) (3) character*11 Camera ! Camera used (Apogee Alta or VersArray) character*1 Note ! [F] Additional source note (only in table 2) * (4) *Note (1): The position angle has not been corrected for precession and it is * thus based on the equinox for the epoch of observation. *Note (2): Between the components of pairs determined using IRAF. In some cases * the images of stars were obtained with too few counts in either or * both filters so that we could not determine the magnitude difference. *Note (3): Reference as follows: * Chang (1972) = 1972AJ.....77..759C * Docobo et al. (2008) = 2008A&A...478..187D * Eggenberger (2008) = 2008A&A...482..631E * Hartkopf and Mason (2011a) = 2011, J/AJ/142/56 * Hartkopf and Mason (2011b) = 2011IAUDS.175....1H * Hartkopf and Mason (2014) = 2014IAUDS.183....1H * Heintz (1987) = 1987PASP...99.1084H * Heintz (1988) = 1988A&A....72..543H * Heintz (1990) = 1990AJ.....99..420H * Heintz (1994) = 1994, J/AJ/108/2338 * Heintz (1996) = 1996AJ....111..408H * Heintz (1997) = 1997ApJS..111..335H * Hopmann (1964) = 1964AnWie..26....1H * Hopmann (1970) = 1970OAWMN.178..217H * Hopmann (1973) = 1973OAWMN.181..301H * Kiselev et al. (1997) = 1997ASSL..223..377K * Kiselev et al. (2009) = 2009ARep...53..126K * Kiselev et al. (2012) = 2012ARep...56..524K * Kiyaeva et al. (1998) = 1998AstL...24..753K * Kiyaeva et al. (2001) = 2001, J/PAZh/27/456 * Kiyaeva et al. (2010) = 2010AstL...36..204K * Kiyaeva et al. (2014) = 2014AstL...58..835K * L = lin1.html...Catalog * Catalog of Rectilinear Elements: * http://www.usno.navy.mil/USNO/astrometry/optical-IR-prod/wds/lin1 * Ling (2011) = 2011IAUDS.174....1L * Ling (2013) = 2013IAUDS.179....1L * Ling (2016) = 2016IAUDS.188....1L * Mante (2004) = 2004IAUDS.153....1M * Mason and Hartkopf (2014) = 2014IAUDS.184....1M * Mason et al. (2004) = 2004, J/AJ/127/539 * Novakovic (2007) = 2007BaltA..16..435N * Olevic (2002) = 2002IAUDS.146....2O * Olevic and Cvetkovic (2003) = 2003IAUDS.150....1O * Olevic and Jovanovic (2001) = 2001SerAJ.163....5O * Olevic and Popovic (2000) = 2000IAUDS.141....2O * Popovic and Pavlovic (1995) = 1995BABel.151...45P * Popovic and Pavlovic (1996) = 1996BABel.153...57P * Prieur et al. (2012) = 2012MNRAS.422.1057P * Raghavan et al. (2009) = 2009ApJ...690..394R * Rica et al. (2012) = 2012MNRAS.419..197R * Riddle et al. (2015) = 2015, J/ApJ/799/4 * Romanenko and Kiselev (2014) = 2014ARep...58...30R * Scardia et al. (2011) = 2011AN....332..508S * Seymour et al. (2002) = 2002, J/AJ/123/1023 * Soderhjelm (1999) = 1999, J/A+A/341/121 * Zirm (2008) = 2008IAUDS.166....1Z *Note (4): Note as follows: * F = First resolution; e.g. one of 8 new pairs. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3.dat' ! CCD measurements of system with orbits or rectilinear solutions integer*4 nr__1 parameter (nr__1=143) ! Number of records character*131 ar__1 ! Full-size record character*11 WDS_1 ! WDS designation (HHMMm+DDMM, J2000) character*11 Disc_1 ! Discoverer designation real*8 Epoch_1 ! (yr) Epoch of observation (Besselian year) real*4 Sep_1 ! (arcsec) [1.52/201.56] Angular separation {rho} real*4 e_Sep_1 ! (arcsec) [0/0.71] Standard deviation in Sep real*4 PA_1 ! (deg) [0.1/359.89] Position angle {theta} (1) real*4 e_PA_1 ! (deg) [0/2.96] Standard deviation in PA real*4 DBmag_1 ! (mag) [0/7.18]? Differential B band magnitude (2) real*4 e_DBmag_1 ! (mag) [0/0.29]? Standard deviation in DBmag real*4 DVmag_1 ! (mag) [0/6.79]? Differential V band magnitude (2) real*4 e_DVmag_1 ! (mag) [0.01/1.04]? Standard deviation in DVmag real*4 v_O_C_Sep_1 ! (arcsec) [-0.99/3.22]? Angular separation (O-C) * residual (only in table 3) real*4 v_O_C_PA_1 ! (arcsec) [-3.4/2.4]? Position angle (O-C) residual * (only in table 3) character*28 Ref_1 ! Reference (only in table 3) (3) character*11 Camera_1 ! Camera used (Apogee Alta or VersArray) character*1 Note_1 ! [F] Additional source note (only in table 2) * (4) *Note (1): The position angle has not been corrected for precession and it is * thus based on the equinox for the epoch of observation. *Note (2): Between the components of pairs determined using IRAF. In some cases * the images of stars were obtained with too few counts in either or * both filters so that we could not determine the magnitude difference. *Note (3): Reference as follows: * Chang (1972) = 1972AJ.....77..759C * Docobo et al. (2008) = 2008A&A...478..187D * Eggenberger (2008) = 2008A&A...482..631E * Hartkopf and Mason (2011a) = 2011, J/AJ/142/56 * Hartkopf and Mason (2011b) = 2011IAUDS.175....1H * Hartkopf and Mason (2014) = 2014IAUDS.183....1H * Heintz (1987) = 1987PASP...99.1084H * Heintz (1988) = 1988A&A....72..543H * Heintz (1990) = 1990AJ.....99..420H * Heintz (1994) = 1994, J/AJ/108/2338 * Heintz (1996) = 1996AJ....111..408H * Heintz (1997) = 1997ApJS..111..335H * Hopmann (1964) = 1964AnWie..26....1H * Hopmann (1970) = 1970OAWMN.178..217H * Hopmann (1973) = 1973OAWMN.181..301H * Kiselev et al. (1997) = 1997ASSL..223..377K * Kiselev et al. (2009) = 2009ARep...53..126K * Kiselev et al. (2012) = 2012ARep...56..524K * Kiyaeva et al. (1998) = 1998AstL...24..753K * Kiyaeva et al. (2001) = 2001, J/PAZh/27/456 * Kiyaeva et al. (2010) = 2010AstL...36..204K * Kiyaeva et al. (2014) = 2014AstL...58..835K * L = lin1.html...Catalog * Catalog of Rectilinear Elements: * http://www.usno.navy.mil/USNO/astrometry/optical-IR-prod/wds/lin1 * Ling (2011) = 2011IAUDS.174....1L * Ling (2013) = 2013IAUDS.179....1L * Ling (2016) = 2016IAUDS.188....1L * Mante (2004) = 2004IAUDS.153....1M * Mason and Hartkopf (2014) = 2014IAUDS.184....1M * Mason et al. (2004) = 2004, J/AJ/127/539 * Novakovic (2007) = 2007BaltA..16..435N * Olevic (2002) = 2002IAUDS.146....2O * Olevic and Cvetkovic (2003) = 2003IAUDS.150....1O * Olevic and Jovanovic (2001) = 2001SerAJ.163....5O * Olevic and Popovic (2000) = 2000IAUDS.141....2O * Popovic and Pavlovic (1995) = 1995BABel.151...45P * Popovic and Pavlovic (1996) = 1996BABel.153...57P * Prieur et al. (2012) = 2012MNRAS.422.1057P * Raghavan et al. (2009) = 2009ApJ...690..394R * Rica et al. (2012) = 2012MNRAS.419..197R * Riddle et al. (2015) = 2015, J/ApJ/799/4 * Romanenko and Kiselev (2014) = 2014ARep...58...30R * Scardia et al. (2011) = 2011AN....332..508S * Seymour et al. (2002) = 2002, J/AJ/123/1023 * Soderhjelm (1999) = 1999, J/A+A/341/121 * Zirm (2008) = 2008IAUDS.166....1Z *Note (4): Note as follows: * F = First resolution; e.g. one of 8 new pairs. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table7.dat' ! Measurements and residuals (in {rho} and {theta}) from our linear solutions for all five pairs integer*4 nr__2 parameter (nr__2=66) ! Number of records character*55 ar__2 ! Full-size record character*9 Name ! Pair name real*8 Epoch_2 ! (yr) Epoch of observation (Besselian year) real*4 Sep_2 ! (arcmin) [1.75/10.37] Angular separation {rho} real*4 PA_2 ! (deg) [29.63/340.64] Position angle {theta} real*4 v_O_C_Sep_2 ! (arcmin) [-5.29/0.98] Angular separation (O-C) residual real*4 v_O_C_PA_2 ! (deg) [-9/3.9] Position angle (O-C) residual character*10 Ref_2 ! Reference (1) *Note (1): This paper or reference from the Washington database (Cat. B/wds). C============================================================================= C Loading file 'table2.dat' ! CCD measurements of double stars C Format for file interpretation 1 format( + A11,1X,A11,1X,F9.4,1X,F6.2,1X,F4.2,1X,F6.2,1X,F4.2,1X,F4.2,1X, + F4.2,1X,F4.2,1X,F4.2,1X,F5.2,1X,F4.1,1X,A28,1X,A11,1X,A1) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,687 read(1,'(A131)')ar__ read(ar__,1) + WDS,Disc,Epoch,Sep,e_Sep,PA,e_PA,DBmag,e_DBmag,DVmag,e_DVmag, + v_O_C_Sep,v_O_C_PA,Ref,Camera,Note if(ar__(59:62) .EQ. '') DBmag = rNULL__ if(ar__(64:67) .EQ. '') e_DBmag = rNULL__ if(ar__(69:72) .EQ. '') DVmag = rNULL__ if(ar__(74:77) .EQ. '') e_DVmag = rNULL__ if(ar__(79:83) .EQ. '') v_O_C_Sep = rNULL__ if(ar__(85:88) .EQ. '') v_O_C_PA = rNULL__ c ..............Just test output........... write(6,1) + WDS,Disc,Epoch,Sep,e_Sep,PA,e_PA,DBmag,e_DBmag,DVmag,e_DVmag, + v_O_C_Sep,v_O_C_PA,Ref,Camera,Note c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table3.dat' ! CCD measurements of system with orbits or * rectilinear solutions C Format for file interpretation 2 format( + A11,1X,A11,1X,F9.4,1X,F6.2,1X,F4.2,1X,F6.2,1X,F4.2,1X,F4.2,1X, + F4.2,1X,F4.2,1X,F4.2,1X,F5.2,1X,F4.1,1X,A28,1X,A11,1X,A1) C Effective file loading open(unit=1,status='old',file= +'table3.dat') write(6,*) '....Loading file: table3.dat' do i__=1,143 read(1,'(A131)')ar__1 read(ar__1,2) + WDS_1,Disc_1,Epoch_1,Sep_1,e_Sep_1,PA_1,e_PA_1,DBmag_1, + e_DBmag_1,DVmag_1,e_DVmag_1,v_O_C_Sep_1,v_O_C_PA_1,Ref_1, + Camera_1,Note_1 if(ar__1(59:62) .EQ. '') DBmag_1 = rNULL__ if(ar__1(64:67) .EQ. '') e_DBmag_1 = rNULL__ if(ar__1(69:72) .EQ. '') DVmag_1 = rNULL__ if(ar__1(74:77) .EQ. '') e_DVmag_1 = rNULL__ if(ar__1(79:83) .EQ. '') v_O_C_Sep_1 = rNULL__ if(ar__1(85:88) .EQ. '') v_O_C_PA_1 = rNULL__ c ..............Just test output........... write(6,2) + WDS_1,Disc_1,Epoch_1,Sep_1,e_Sep_1,PA_1,e_PA_1,DBmag_1, + e_DBmag_1,DVmag_1,e_DVmag_1,v_O_C_Sep_1,v_O_C_PA_1,Ref_1, + Camera_1,Note_1 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table7.dat' ! Measurements and residuals (in {rho} and * {theta}) from our linear solutions for all five * pairs C Format for file interpretation 3 format(A9,1X,F9.4,1X,F6.3,1X,F6.2,1X,F5.2,1X,F4.1,1X,A10) C Effective file loading open(unit=1,status='old',file= +'table7.dat') write(6,*) '....Loading file: table7.dat' do i__=1,66 read(1,'(A55)')ar__2 read(ar__2,3) + Name,Epoch_2,Sep_2,PA_2,v_O_C_Sep_2,v_O_C_PA_2,Ref_2 c ..............Just test output........... write(6,3) + Name,Epoch_2,Sep_2,PA_2,v_O_C_Sep_2,v_O_C_PA_2,Ref_2 c .......End.of.Just test output........... end do close(1) C============================================================================= stop end