Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/153/258 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/258 2007.5 to 2010.4 HST astrometry of HD 202206 (Benedict+, 2017) *================================================================================ *HD 202206: a circumbinary brown dwarf system. * Benedict G.F., Harrison T.E. * <Astron. J., 153, 258-258 (2017)> * =2017AJ....153..258B (SIMBAD/NED BibCode) C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! HD 202206 field astrometry integer*4 nr__ parameter (nr__=503) ! Number of records character*99 ar__ ! Full-size record integer*4 Set ! [1/40] Data set (orbit) number (1) integer*4 Star ! [1/11] Star or reference star number * (1=HD202206, 5,6,9,10,11=astrometric reference * stars same as Table3) (2) character*9 HST ! HST orbit and target identifier real*4 Vmag ! (mag) [8.2/16] Hubble Space Telescope/Fine Guidance * Sensor (HST/FGS) V-band magnitude real*4 V3 ! (deg) [0/293] Spacecraft+V3 axis roll angle real*8 Xpos ! (arcsec) [-250/252] Optical Field Angle Distortion (OFAD) * X position (3) real*8 Ypos ! (arcsec) [-149/96] Optical Field Angle Distortion (OFAD) * Y position (3) real*8 e_Xpos ! (arcsec) [0.0015/0.007] Positional uncertainty in Xpos real*8 e_Ypos ! (arcsec) [0.0014/0.039] Positional uncertainty in Ypos real*8 MJD ! (d) [54285.6/55348.5] Modified Julian Date of * observation (JD-2400000.5) real*8 Palpha ! [-1/1.03] Parallax factor in Right Ascension real*8 Pdelta ! [-0.31/0.32] Parallax factor in Declination *Note (1): We refer to the aggregate of astrometric centroids of each star * secured during one visibility period as an "orbit". *Note (2): As defined in Chapter 2, Fine Guidance Sensor Instrument Handbook * v.23.0, Nelan 2015, * http://www.stsci.edu/hst/fgs/documents/handbooks/instrumenthandbook/fgs_ihb.pdf *Note (3): The Optical Field Angle Distortion (OFAD) calibration (McArthur et al. * 2006hstc.conf..396M) reduces Hubble Space Telescope (HST) and Fine Guidance * Sensors (FGS) as-built optical distortions of the order of 2s of arc to * less than one mas in the center of the FGS field of regard. This level of * correction persists for average radial distances from the FGS Field Of View * (FOV) center <r>{<=}100'', and is a reason the parallax error for K Pav * (+/-0.28mas, <r> =117'') is over twice that of RR Lyr (+/-0.13mas, * <r> =44'') (Benedict et al. 2011, Cat. J/AJ/142/187). c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3.dat' ! Astrometric reference stars integer*4 nr__1 parameter (nr__1=5) ! Number of records character*32 ar__1 ! Full-size record C J2000 position composed of: RAdeg DEdeg integer*4 Star_1 ! Reference star number real*8 RAdeg ! (deg) Right Ascension in decimal degrees (J2000) real*8 DEdeg ! (deg) Declination in decimal degrees (J2000) real*4 Vmag_1 ! [13.9/16] V-band magnitude (2) integer*4 r_DEdeg ! [1/2] Source of position (1) *Note (2): V magnitude, this paper. *Note (1): Position reference is defined as follows: * 1 = PPMXL (Roeser et al. 2010, Cat. I/317), J2000; * 2 = GSC2.3 (Lasker et al. 2008, Cat. I/305). c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table4.dat' ! Visible and near-infrared photometry integer*4 nr__2 parameter (nr__2=6) ! Number of records character*72 ar__2 ! Full-size record integer*4 Star_2 ! Star or reference star number real*4 Vmag_2 ! (mag) V-band magnitude real*4 e_Vmag ! (mag) Error in V-band real*4 B_V ! (mag) The B-V color index real*4 e_B_V ! (mag) Error in B-V character*1 f_B_V ! Flag 'a' for B-V estimated from 2MASS photometry real*4 Kmag ! (mag) ? 2MASS K-band magnitude real*4 e_Kmag ! (mag) ? Error in Kmag real*4 J_H ! (mag) ? The 2MASS (J-H) color index real*4 e_J_H ! (mag) ? Error in J-H real*4 J_K ! (mag) ? The 2MASS (J-K) color index real*4 e_J_K ! (mag) ? Error in J-K real*4 V_K ! (mag) ? The (V-K) color index real*4 e_V_K ! (mag) ? Error in V-K c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table5.dat' ! Astrometric reference star initial spectrophotometric parallaxes integer*4 nr__3 parameter (nr__3=4) ! Number of records character*36 ar__3 ! Full-size record integer*4 Star_3 ! Reference star number character*5 SpT ! Spectral type (1) real*4 Vmag_3 ! (mag) [13.9/16] V-band magnitude real*4 VMag_4 ! (mag) [5.1/6.3] Absolute V-band magnitude real*4 m_M ! (mag) [8/10.9] Distance modulus real*4 AV ! (mag) [0/0.06] Interstellar V-band absorption real*4 plx ! (mas) [0.7/2.5] Initial absolute spectrophotometric * parallax real*4 e_plx ! (mas) [0.2/0.6] Error in plx *Note (1): Spectral types and luminosity class estimated from classification * spectra, colors, and a reduced proper motion diagram (Figures 3 and 4). c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table6.dat' ! HD 202206 and reference star relative positions integer*4 nr__4 parameter (nr__4=6) ! Number of records character*47 ar__4 ! Full-size record integer*4 Star_4 ! Star or reference star number character*1 f_Star ! Flag 'b' on Star 9 (R.A.=318.689335, * decl.=-20.788494, J2000) real*4 Vmag_5 ! (mag) V-band magnitude real*8 ksi ! (arcsec) Relative position rolled to Right Ascension * ({ksi}) (1) real*8 e_ksi ! (arcsec) Error in ksi real*8 eta ! (arcsec) Relative position rolled to Declination * ({eta}) (1) real*8 e_eta ! (arcsec) Error in eta *Note (1): Epoch 2008.4085 (J2000). Roll uncertainty +/-.06{deg}. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table7.dat' ! Reference star final proper motions, parallaxes, and absolute magnitudes integer*4 nr__5 parameter (nr__5=5) ! Number of records character*52 ar__5 ! Full-size record integer*4 Star_5 ! Reference star number real*4 Vmag_6 ! (mag) V-band magnitude real*4 pmRA ! (mas/yr) Relative proper motion in Right Ascension (3) real*4 e_pmRA ! (mas/yr) Error in pmRA (3) real*4 pmDE ! (mas/yr) Relative proper motion in Declination (3) real*4 e_pmDE ! (mas/yr) Error in pmDE (3) real*4 plx_1 ! (mas) Absolute parallax (3) real*4 e_plx_1 ! (mas) Error in plx (3) real*4 VMag_7 ! (mag) Absolute V-band magnitude (3) real*4 e_VMag_1 ! (mag) The 1{sigma} error in VMag (3) *Note (3): Results of the radial velocity values from Couetdic et al. 2010 * (Cat. J/A+A/519/A10) and Hubble Space Telescope (HST) astrometry (Table2) * modeling (see Section 2.4 in the paper for additional details). C============================================================================= C Loading file 'table2.dat' ! HD 202206 field astrometry C Format for file interpretation 1 format( + I2,1X,I2,1X,A9,1X,F5.2,1X,F6.2,1X,F10.5,1X,F10.5,1X,F7.5,1X, + F7.5,1X,F10.4,1X,F10.7,1X,F10.7) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,503 read(1,'(A99)')ar__ read(ar__,1) + Set,Star,HST,Vmag,V3,Xpos,Ypos,e_Xpos,e_Ypos,MJD,Palpha,Pdelta c ..............Just test output........... write(6,1) + Set,Star,HST,Vmag,V3,Xpos,Ypos,e_Xpos,e_Ypos,MJD,Palpha,Pdelta c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table3.dat' ! Astrometric reference stars C Format for file interpretation 2 format(I2,1X,F10.6,1X,F10.6,1X,F5.2,1X,I1) C Effective file loading open(unit=1,status='old',file= +'table3.dat') write(6,*) '....Loading file: table3.dat' do i__=1,5 read(1,'(A32)')ar__1 read(ar__1,2)Star_1,RAdeg,DEdeg,Vmag_1,r_DEdeg c ..............Just test output........... write(6,2)Star_1,RAdeg,DEdeg,Vmag_1,r_DEdeg c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table4.dat' ! Visible and near-infrared photometry C Format for file interpretation 3 format( + I2,1X,F5.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,A1,1X,F6.3,1X,F5.3,1X, + F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F4.2,1X,F4.2) C Effective file loading open(unit=1,status='old',file= +'table4.dat') write(6,*) '....Loading file: table4.dat' do i__=1,6 read(1,'(A72)')ar__2 read(ar__2,3) + Star_2,Vmag_2,e_Vmag,B_V,e_B_V,f_B_V,Kmag,e_Kmag,J_H,e_J_H, + J_K,e_J_K,V_K,e_V_K if(ar__2(27:32) .EQ. '') Kmag = rNULL__ if(ar__2(34:38) .EQ. '') e_Kmag = rNULL__ if(ar__2(40:44) .EQ. '') J_H = rNULL__ if(ar__2(46:50) .EQ. '') e_J_H = rNULL__ if(ar__2(52:56) .EQ. '') J_K = rNULL__ if(ar__2(58:62) .EQ. '') e_J_K = rNULL__ if(ar__2(64:67) .EQ. '') V_K = rNULL__ if(ar__2(69:72) .EQ. '') e_V_K = rNULL__ c ..............Just test output........... write(6,3) + Star_2,Vmag_2,e_Vmag,B_V,e_B_V,f_B_V,Kmag,e_Kmag,J_H,e_J_H, + J_K,e_J_K,V_K,e_V_K c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table5.dat' ! Astrometric reference star initial * spectrophotometric parallaxes C Format for file interpretation 4 format(I2,1X,A5,1X,F5.2,1X,F3.1,1X,F4.1,1X,F4.2,1X,F3.1,1X,F3.1) C Effective file loading open(unit=1,status='old',file= +'table5.dat') write(6,*) '....Loading file: table5.dat' do i__=1,4 read(1,'(A36)')ar__3 read(ar__3,4)Star_3,SpT,Vmag_3,VMag_4,m_M,AV,plx,e_plx c ..............Just test output........... write(6,4)Star_3,SpT,Vmag_3,VMag_4,m_M,AV,plx,e_plx c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table6.dat' ! HD 202206 and reference star relative positions C Format for file interpretation 5 format(I2,A1,1X,F5.2,1X,F10.5,1X,F7.5,1X,F10.5,1X,F7.5) C Effective file loading open(unit=1,status='old',file= +'table6.dat') write(6,*) '....Loading file: table6.dat' do i__=1,6 read(1,'(A47)')ar__4 read(ar__4,5)Star_4,f_Star,Vmag_5,ksi,e_ksi,eta,e_eta c ..............Just test output........... write(6,5)Star_4,f_Star,Vmag_5,ksi,e_ksi,eta,e_eta c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table7.dat' ! Reference star final proper motions, parallaxes, * and absolute magnitudes C Format for file interpretation 6 format( + I2,1X,F5.2,1X,F6.2,1X,F4.2,1X,F6.2,1X,F4.2,1X,F4.2,1X,F4.2,1X, + F4.2,1X,F4.2) C Effective file loading open(unit=1,status='old',file= +'table7.dat') write(6,*) '....Loading file: table7.dat' do i__=1,5 read(1,'(A52)')ar__5 read(ar__5,6) + Star_5,Vmag_6,pmRA,e_pmRA,pmDE,e_pmDE,plx_1,e_plx_1,VMag_7, + e_VMag_1 c ..............Just test output........... write(6,6) + Star_5,Vmag_6,pmRA,e_pmRA,pmDE,e_pmDE,plx_1,e_plx_1,VMag_7, + e_VMag_1 c .......End.of.Just test output........... end do close(1) C============================================================================= stop end