Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/151/160 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 2026-Jun-10
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/151/160 1103 parallaxes and proper motions from URAT (Finch+, 2016)
*================================================================================
*Parallax results from URAT epoch data.
* Finch C.T., Zacharias N.
* <Astron. J., 151, 160-160 (2016)>
* =2016AJ....151..160F (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! New trigonometric parallaxes for stars having
previous photometric distance estimates
integer*4 nr__
parameter (nr__=545) ! Number of records
character*164 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg (Epoch=2014.0)
character*23 Name ! Source identifier (1)
real*8 RAdeg ! (deg) Right Ascension in decimal degrees (J2000) (2)
real*8 DEdeg ! (deg) Declination in decimal degrees (J2000) (2)
real*4 mag ! (mag) [8.25/16.53] URAT magnitude (3)
real*4 Span ! (yr) [0.83/3.1] Epoch span
integer*4 Nobs ! [10/230] Number of observations
integer*4 Nrej ! [0/12] Number of rejected observations
real*4 plx ! (mas) [40/227.2] Absolute trigonometric parallax
real*4 e_plx ! (mas) [2.2/27.5] Uncertainty in plx
real*4 pcorr ! (mas) [0.6/4.4] Parallax correction
real*4 pmRA ! (mas/yr) [-875.3/894.9] Proper motion along Right
* Ascension
real*4 e_pmRA ! (mas/yr) [1.9/43.9] Uncertainty in pmRA
real*4 pmDE ! (mas/yr) [-827.4/1289.6] Proper motion along Declination
real*4 e_pmDE ! (mas/yr) [1.9/42.3]Uncertainty in pmDE
real*4 Jmag ! (mag) [5.36/16.375]? 2MASS J band magnitude (4)
real*4 Hmag ! (mag) [4.159/15.683]? 2MASS H band magnitude (4)
real*4 Ksmag ! (mag) [3.684/15.817]? 2MASS Ks band magnitude (4)
real*4 Bmag ! (mag) [1.668/18.47]? APASS B band magnitude (4)
real*4 Vmag ! (mag) [1.493/17.527]? APASS V band magnitude (4)
real*4 gmag ! (mag) [1.568/17.375]? APASS g band magnitude (4)
real*4 rmag ! (mag) [1.422/16.055]? APASS r band magnitude (4)
real*4 imag ! (mag) [1.26/15.677]? APASS i band magnitude (4)
character*3 Note ! Additional notes (a=suspect fit, b, c, or d) (5)
*Note (1): In Table4, we have given a USNO Proper Motion (UPM) name for the 281
* entries having no previous proper motion information reported from SIMBAD.
*Note (2): At epoch 2014.0 on the International Celestial Reference System
* (ICRS). In Table3, the coordinates are derived from input data in
* corresponding published paper. In Table4, the coordinates are derived from
* the mean URAT position at mean epoch from all epochs used in the fit along
* with the URAT proper motions.
*Note (3): The United States Naval Observatory (USNO) Robotic Astrometric
* Telescope (URAT) observes through a single filter (part of the dewar
* window) to provide a fixed bandpass of about 680 to 760nm.
*Note (4): Photometric data from UCAC4 (Zacharias et al. 2012, cat. I/322) in
* Table3, and from URAT1 (Zacharias et al. 2015, cat. I/329) in Table4.
*Note (5): The codes for notes are defined as follows:
* a = Visual inspection of the fit shows scatter indicating the solution
* might be erroneous;
* b = Visual inspection of the sky image shows an elongated or blended image
* indicating the solution might be erroneous;
* c = No correction so mean of 1.3mas used to convert from relative to
* absolute parallax;
* d = Large correction so cut off of 3.9mas used to convert from relative
* to absolute parallax.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! New nearby star discoveries
integer*4 nr__1
parameter (nr__1=558) ! Number of records
character*164 ar__1 ! Full-size record
C J2000 position composed of: RAdeg DEdeg (Epoch=2014.0)
character*23 Name_1 ! Source identifier (1)
real*8 RAdeg_1 ! (deg) Right Ascension in decimal degrees (J2000) (2)
real*8 DEdeg_1 ! (deg) Declination in decimal degrees (J2000) (2)
real*4 mag_1 ! (mag) [8.25/16.53] URAT magnitude (3)
real*4 Span_1 ! (yr) [0.83/3.1] Epoch span
integer*4 Nobs_1 ! [10/230] Number of observations
integer*4 Nrej_1 ! [0/12] Number of rejected observations
real*4 plx_1 ! (mas) [40/227.2] Absolute trigonometric parallax
real*4 e_plx_1 ! (mas) [2.2/27.5] Uncertainty in plx
real*4 pcorr_1 ! (mas) [0.6/4.4] Parallax correction
real*4 pmRA_1 ! (mas/yr) [-875.3/894.9] Proper motion along Right
* Ascension
real*4 e_pmRA_1 ! (mas/yr) [1.9/43.9] Uncertainty in pmRA
real*4 pmDE_1 ! (mas/yr) [-827.4/1289.6] Proper motion along Declination
real*4 e_pmDE_1 ! (mas/yr) [1.9/42.3]Uncertainty in pmDE
real*4 Jmag_1 ! (mag) [5.36/16.375]? 2MASS J band magnitude (4)
real*4 Hmag_1 ! (mag) [4.159/15.683]? 2MASS H band magnitude (4)
real*4 Ksmag_1 ! (mag) [3.684/15.817]? 2MASS Ks band magnitude (4)
real*4 Bmag_1 ! (mag) [1.668/18.47]? APASS B band magnitude (4)
real*4 Vmag_1 ! (mag) [1.493/17.527]? APASS V band magnitude (4)
real*4 gmag_1 ! (mag) [1.568/17.375]? APASS g band magnitude (4)
real*4 rmag_1 ! (mag) [1.422/16.055]? APASS r band magnitude (4)
real*4 imag_1 ! (mag) [1.26/15.677]? APASS i band magnitude (4)
character*3 Note_1 ! Additional notes (a=suspect fit, b, c, or d) (5)
*Note (1): In Table4, we have given a USNO Proper Motion (UPM) name for the 281
* entries having no previous proper motion information reported from SIMBAD.
*Note (2): At epoch 2014.0 on the International Celestial Reference System
* (ICRS). In Table3, the coordinates are derived from input data in
* corresponding published paper. In Table4, the coordinates are derived from
* the mean URAT position at mean epoch from all epochs used in the fit along
* with the URAT proper motions.
*Note (3): The United States Naval Observatory (USNO) Robotic Astrometric
* Telescope (URAT) observes through a single filter (part of the dewar
* window) to provide a fixed bandpass of about 680 to 760nm.
*Note (4): Photometric data from UCAC4 (Zacharias et al. 2012, cat. I/322) in
* Table3, and from URAT1 (Zacharias et al. 2015, cat. I/329) in Table4.
*Note (5): The codes for notes are defined as follows:
* a = Visual inspection of the fit shows scatter indicating the solution
* might be erroneous;
* b = Visual inspection of the sky image shows an elongated or blended image
* indicating the solution might be erroneous;
* c = No correction so mean of 1.3mas used to convert from relative to
* absolute parallax;
* d = Large correction so cut off of 3.9mas used to convert from relative
* to absolute parallax.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'notes.dat' ! Notes on individual systems
integer*4 nr__2
parameter (nr__2=7) ! Number of records
character*695 ar__2 ! Full-size record
character*15 Name_2 ! Source identifier
character*679 Note_2 ! Notes
C=============================================================================
C Loading file 'table3.dat' ! New trigonometric parallaxes for stars having
* previous photometric distance estimates
C Format for file interpretation
1 format(
+ A23,1X,F11.7,1X,F11.7,1X,F5.2,1X,F4.2,1X,I3,1X,I2,1X,F5.1,1X,
+ F4.1,1X,F3.1,1X,F6.1,1X,F4.1,1X,F6.1,1X,F4.1,1X,F6.3,1X,F6.3,
+ 1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,A3)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,545
read(1,'(A164)')ar__
read(ar__,1)
+ Name,RAdeg,DEdeg,mag,Span,Nobs,Nrej,plx,e_plx,pcorr,pmRA,
+ e_pmRA,pmDE,e_pmDE,Jmag,Hmag,Ksmag,Bmag,Vmag,gmag,rmag,imag,
+ Note
if(ar__(106:111) .EQ. '') Jmag = rNULL__
if(ar__(113:118) .EQ. '') Hmag = rNULL__
if(ar__(120:125) .EQ. '') Ksmag = rNULL__
if(ar__(127:132) .EQ. '') Bmag = rNULL__
if(ar__(134:139) .EQ. '') Vmag = rNULL__
if(ar__(141:146) .EQ. '') gmag = rNULL__
if(ar__(148:153) .EQ. '') rmag = rNULL__
if(ar__(155:160) .EQ. '') imag = rNULL__
c ..............Just test output...........
write(6,1)
+ Name,RAdeg,DEdeg,mag,Span,Nobs,Nrej,plx,e_plx,pcorr,pmRA,
+ e_pmRA,pmDE,e_pmDE,Jmag,Hmag,Ksmag,Bmag,Vmag,gmag,rmag,imag,
+ Note
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4.dat' ! New nearby star discoveries
C Format for file interpretation
2 format(
+ A23,1X,F11.7,1X,F11.7,1X,F5.2,1X,F4.2,1X,I3,1X,I2,1X,F5.1,1X,
+ F4.1,1X,F3.1,1X,F6.1,1X,F4.1,1X,F6.1,1X,F4.1,1X,F6.3,1X,F6.3,
+ 1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,A3)
C Effective file loading
open(unit=1,status='old',file=
+'table4.dat')
write(6,*) '....Loading file: table4.dat'
do i__=1,558
read(1,'(A164)')ar__1
read(ar__1,2)
+ Name_1,RAdeg_1,DEdeg_1,mag_1,Span_1,Nobs_1,Nrej_1,plx_1,
+ e_plx_1,pcorr_1,pmRA_1,e_pmRA_1,pmDE_1,e_pmDE_1,Jmag_1,Hmag_1,
+ Ksmag_1,Bmag_1,Vmag_1,gmag_1,rmag_1,imag_1,Note_1
if(ar__1(106:111) .EQ. '') Jmag_1 = rNULL__
if(ar__1(113:118) .EQ. '') Hmag_1 = rNULL__
if(ar__1(120:125) .EQ. '') Ksmag_1 = rNULL__
if(ar__1(127:132) .EQ. '') Bmag_1 = rNULL__
if(ar__1(134:139) .EQ. '') Vmag_1 = rNULL__
if(ar__1(141:146) .EQ. '') gmag_1 = rNULL__
if(ar__1(148:153) .EQ. '') rmag_1 = rNULL__
if(ar__1(155:160) .EQ. '') imag_1 = rNULL__
c ..............Just test output...........
write(6,2)
+ Name_1,RAdeg_1,DEdeg_1,mag_1,Span_1,Nobs_1,Nrej_1,plx_1,
+ e_plx_1,pcorr_1,pmRA_1,e_pmRA_1,pmDE_1,e_pmDE_1,Jmag_1,Hmag_1,
+ Ksmag_1,Bmag_1,Vmag_1,gmag_1,rmag_1,imag_1,Note_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'notes.dat' ! Notes on individual systems
C Format for file interpretation
3 format(A15,1X,A679)
C Effective file loading
open(unit=1,status='old',file=
+'notes.dat')
write(6,*) '....Loading file: notes.dat'
do i__=1,7
read(1,'(A695)')ar__2
read(ar__2,3)Name_2,Note_2
c ..............Just test output...........
write(6,3)Name_2,Note_2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end