Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/582/A36 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-Oct-06
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/582/A36 USNO Martian observations (Robert+, 2015)
*================================================================================
*A new astrometric measurement and reduction of USNO photographic observations of
*Phobos and Deimos: 1967-1997.
* Robert V., Lainey V., Pascu D., Pasewaldt A., Arlot J.-E., De Cuyper J.-P.,
* Dehant V., Thuillot W.
* <Astron. Astrophys. 582, A36 (2015)>
* =2015A&A...582A..36R (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Astrometric data of Mars (1967-1997)
integer*4 nr__
parameter (nr__=777) ! Number of records
character*42 ar__ ! Full-size record
C Position composed of: RAdeg DEdeg
real*8 JD ! (d) Julian day of observation (TDB)
real*8 RAdeg ! (deg) Right ascension (ICRF)
real*8 DEdeg ! (deg) Declination (ICRF)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Astrometric data of Phobos (1967-1997)
integer*4 nr__1
parameter (nr__1=640) ! Number of records
character*42 ar__1 ! Full-size record
C Position composed of: RAdeg DEdeg
real*8 JD_1 ! (d) Julian day of observation (TDB)
real*8 RAdeg_1 ! (deg) Right ascension (ICRF)
real*8 DEdeg_1 ! (deg) Declination (ICRF)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Astrometric data of Deimos (1967-1997)
integer*4 nr__2
parameter (nr__2=704) ! Number of records
character*42 ar__2 ! Full-size record
C Position composed of: RAdeg DEdeg
real*8 JD_2 ! (d) Julian day of observation (TDB)
real*8 RAdeg_2 ! (deg) Right ascension (ICRF)
real*8 DEdeg_2 ! (deg) Declination (ICRF)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! (x,y) raw data of stars and Phobos (1967-1997)
integer*4 nr__3
parameter (nr__3=5868) ! Number of records
character*68 ar__3 ! Full-size record
real*8 JD_3 ! (d) Julian Day of observation (TDB)
character*3 ID ! Object identifier (SNN) (1)
real*8 xmm ! (mm) Measured x position (millimeters)
real*8 ymm ! (mm) Measured y position (millimeters)
real*8 e_xmm ! (mm) Mean error of x position (millimeters)
real*8 e_ymm ! (mm) Mean error of y position (millimeters)
*Note (1): The object identifier is made as "SNN", where S denote stars and NN
* the two-digit number in the plate. Two exceptions for the Martian
* satellites for which the SNN identifier is replaced by corresponding NAIF
* ID codes : "401" for Phobos, and "402" for Deimos.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table5.dat' ! (x,y) raw data of stars and Deimos (1967-1997)
integer*4 nr__4
parameter (nr__4=6914) ! Number of records
character*68 ar__4 ! Full-size record
real*8 JD_4 ! (d) Julian Day of observation (TDB)
character*3 ID_1 ! Object identifier (SNN) (1)
real*8 xmm_1 ! (mm) Measured x position (millimeters)
real*8 ymm_1 ! (mm) Measured y position (millimeters)
real*8 e_xmm_1 ! (mm) Mean error of x position (millimeters)
real*8 e_ymm_1 ! (mm) Mean error of y position (millimeters)
*Note (1): The object identifier is made as "SNN", where S denote stars and NN
* the two-digit number in the plate. Two exceptions for the Martian
* satellites for which the SNN identifier is replaced by corresponding NAIF
* ID codes : "401" for Phobos, and "402" for Deimos.
C=============================================================================
C Loading file 'table1.dat' ! Astrometric data of Mars (1967-1997)
C Format for file interpretation
1 format(F14.6,4X,F10.6,4X,F10.6)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,777
read(1,'(A42)')ar__
read(ar__,1)JD,RAdeg,DEdeg
c ..............Just test output...........
write(6,1)JD,RAdeg,DEdeg
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! Astrometric data of Phobos (1967-1997)
C Format for file interpretation
2 format(F14.6,4X,F10.6,4X,F10.6)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,640
read(1,'(A42)')ar__1
read(ar__1,2)JD_1,RAdeg_1,DEdeg_1
c ..............Just test output...........
write(6,2)JD_1,RAdeg_1,DEdeg_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! Astrometric data of Deimos (1967-1997)
C Format for file interpretation
3 format(F14.6,4X,F10.6,4X,F10.6)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,704
read(1,'(A42)')ar__2
read(ar__2,3)JD_2,RAdeg_2,DEdeg_2
c ..............Just test output...........
write(6,3)JD_2,RAdeg_2,DEdeg_2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4.dat' ! (x,y) raw data of stars and Phobos (1967-1997)
C Format for file interpretation
4 format(F14.6,3X,A3,3X,F9.5,3X,F9.5,5X,F7.5,5X,F7.5)
C Effective file loading
open(unit=1,status='old',file=
+'table4.dat')
write(6,*) '....Loading file: table4.dat'
do i__=1,5868
read(1,'(A68)')ar__3
read(ar__3,4)JD_3,ID,xmm,ymm,e_xmm,e_ymm
c ..............Just test output...........
write(6,4)JD_3,ID,xmm,ymm,e_xmm,e_ymm
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table5.dat' ! (x,y) raw data of stars and Deimos (1967-1997)
C Format for file interpretation
5 format(F14.6,3X,A3,3X,F9.5,3X,F9.5,5X,F7.5,5X,F7.5)
C Effective file loading
open(unit=1,status='old',file=
+'table5.dat')
write(6,*) '....Loading file: table5.dat'
do i__=1,6914
read(1,'(A68)')ar__4
read(ar__4,5)JD_4,ID_1,xmm_1,ymm_1,e_xmm_1,e_ymm_1
c ..............Just test output...........
write(6,5)JD_4,ID_1,xmm_1,ymm_1,e_xmm_1,e_ymm_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end