Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/565/A21 into FORTRAN code for loading all data files into arrays.
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-Oct-11
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/565/A21 Astrometric catalog around ultracool dwarfs (Lazorenko+, 2014)
*================================================================================
*Astrometric planet search around southern ultracool dwarfs.
*II. Astrometric reduction methods and a deep astrometric catalogue.
* Lazorenko P.F., Sahlmann J., Segransan D., Martin E.L., Queloz D., Mayor M.,
* Udry S.
* <Astron. Astrophys. 565, A21 (2014)>
* =2014A&A...565A..21L
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Target list (ultracool subdwarfs)
integer*4 nr__
parameter (nr__=20) ! Number of records
character*20 ar__ ! Full-size record
integer*4 Nr (nr__) ! [1/20] Sequential number
character*9 ID (nr__) ! Short identifier, which refer to approximate
* field sky position
real*4 Imag (nr__) ! (mag) I-band magnitude (Bessel filter, center=768nm)
integer*4 Ne (nr__) ! [9/16] Number of observing epochs
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'cat_fors.dat' ! Deep astrometric catalogue
integer*4 nr__1
parameter (nr__1=12943) ! Number of records
character*118 ar__1 ! Full-size record
C J2000.0 position composed of: RAdeg DEdeg (Epoch=J2000.0)
integer*4 Nr_1 (nr__1) ! [1/20] Field number (1)
integer*4 Seq (nr__1) ! [1/1915] Sequential star number in the field
real*4 Imag_1 (nr__1) ! (mag) [13.8/25.1] I-band magnitude (2)
real*4 e_Imag (nr__1) ! (mag) Standard uncertainty of I-band magnitude
real*8 RAdeg (nr__1) ! (deg) Right Ascension J2000.0, epoch J2000.0 (3)
real*8 DEdeg (nr__1) ! (deg) Declination J2000.0, epoch J2000.0 (3)
real*4 e_RAdeg (nr__1) ! (arcsec) Standard uncertainty of RAdeg
real*4 e_DEdeg (nr__1) ! (arcsec) Standard uncertainty of DEdeg
real*8 pmRA (nr__1) ! (mas/yr) Proper motion in RA, pmRA*cosDE,
* relative to field stars
real*8 pmDE (nr__1) ! (mas/yr) Proper motion in DE, relative to field stars
real*4 plx (nr__1) ! (mas) [-19/106] Parallax, absolute (4)
real*4 e_pmRA (nr__1) ! (mas/yr) [0/5.4] Standard uncertainty of pmRA
real*4 e_pmDE (nr__1) ! (mas/yr) [0/5.2] Standard uncertainty of pmDE
real*4 e_plx (nr__1) ! (mas) [0.04/4.4] Standard uncertainty of PLX
real*8 Ep (nr__1) ! (yr) [2011.4/2012.2] Mean epoch of observations
real*4 Qual (nr__1) ! [0.1/306] {chi}^2^ of the epoch residuals (5)
*Note (1): Sequential number of the field with ultracool dwarfs listed in Table1.
*Note (2): zero-point of magnitudes was found using DENIS photometry (DENIS
* Consortium, 2005, Cat. B/denis).
*Note (3): conversion from local coordinate system to ICRS was made using
* USNO-B catalogue (Monet et al., 2003, Cat. I/284)
*Note (4): conversion from the relative to absolute parallaxes are made using
* zero-points by Sahlmann et al. (2014, 2014A&A...565A..20S)
*Note (5): this is the reduced {chi}^2^ of the epoch residuals which flags the
* quality of the data. Large {chi}^2^ (over 3) indicate low precision due to
* binarity of the object, a close background star, CCD defects, etc.
C=============================================================================
C Loading file 'table1.dat' ! Target list (ultracool subdwarfs)
C Format for file interpretation
1 format(I2,1X,A9,1X,F4.1,1X,I2)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,20
read(1,'(A20)')ar__
read(ar__,1)Nr(i__),ID(i__),Imag(i__),Ne(i__)
c ..............Just test output...........
write(6,1)Nr(i__),ID(i__),Imag(i__),Ne(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'cat_fors.dat' ! Deep astrometric catalogue
C Format for file interpretation
2 format(
+ I2,I5,1X,F6.3,1X,F5.3,1X,F11.7,1X,F11.7,3X,F5.3,3X,F5.3,1X,
+ F8.2,1X,F8.2,1X,F6.2,2X,F4.2,1X,F4.2,1X,F4.2,1X,F9.4,1X,F6.2)
C Effective file loading
open(unit=1,status='old',file=
+'cat_fors.dat')
write(6,*) '....Loading file: cat_fors.dat'
do i__=1,12943
read(1,'(A118)')ar__1
read(ar__1,2)
+ Nr_1(i__),Seq(i__),Imag_1(i__),e_Imag(i__),RAdeg(i__),
+ DEdeg(i__),e_RAdeg(i__),e_DEdeg(i__),pmRA(i__),pmDE(i__),
+ plx(i__),e_pmRA(i__),e_pmDE(i__),e_plx(i__),Ep(i__),Qual(i__)
c ..............Just test output...........
write(6,2)
+ Nr_1(i__),Seq(i__),Imag_1(i__),e_Imag(i__),RAdeg(i__),
+ DEdeg(i__),e_RAdeg(i__),e_DEdeg(i__),pmRA(i__),pmDE(i__),
+ plx(i__),e_pmRA(i__),e_pmDE(i__),e_plx(i__),Ep(i__),Qual(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end