Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/844/103 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/ApJ/844/103 Orbit alignment in triple stars (Tokovinin, 2017) *================================================================================ *Orbit alignment in triple stars. * Tokovinin A. * <Astrophys. J., 844, 103 (2017)> * =2017ApJ...844..103T C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Hierarchical systems with resolved inner orbit integer*4 nr__ parameter (nr__=443) ! Number of records character*77 ar__ ! Full-size record character*10 WDS ! WDS code (HHMMm+DDMM; J2000) real*4 Plx ! (mas) [0.8/742.1] Hipparcos parallax real*4 M1 ! (Msun) [0.05/50] Primary mass in the inner subsystem real*4 P1 ! (yr) [0.1/3962.5] Inner period real*4 e1 ! Inner eccentricity real*4 a1 ! (arcsec) [0.001/32.4] Inner semimajor axis real*4 W1 ! (deg) [0/357] Inner node {Omega}_1_ real*4 i1 ! (deg) [0/283] Inner inclination real*8 Sep ! (arcsec) [0.05/7860] Outer separation {rho} real*4 PA ! (deg) Outer position angle {theta} integer*4 RevDir ! [-1/1] Outer revolution direction * (-1 for retrograde; 0 for unknown) integer*4 Sign ! [-1/1] Apparent revolution (1=corotating; * -1=counter-rotating) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3.dat' ! Hierarchical systems with two known visual orbits integer*4 nr__1 parameter (nr__1=110) ! Number of records character*61 ar__1 ! Full-size record character*10 WDS_1 ! WDS code (HHMMm+DDMM; J2000) character*1 I_O ! Inner or outer subsystem real*8 P ! (yr) [0.01/1431] Period real*4 e ! Eccentricity real*4 a ! (arcsec) [0/7.7] Semimajor axis real*4 W ! (deg) [0/345] Position angle of node {Omega} real*4 i ! (deg) [11.8/180] Inclination integer*4 Qual ! [0/9] Orbit grade from 1 (best) to 5 (tentative), * 8 and 9 (astrometric) character*8 Ref ! Reference code (see refs.dat) real*4 Phi ! (deg) [0.3/174.1] Angle Phi between angular momenta c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'refs.dat' ! References integer*4 nr__2 parameter (nr__2=52) ! Number of records character*78 ar__2 ! Full-size record character*8 Ref_1 ! Reference code character*27 Auth ! Author(s)' name(s) character*19 BibCode ! Bibcode of the reference if any character*21 Comm ! Comment C============================================================================= C Loading file 'table1.dat' ! Hierarchical systems with resolved inner orbit C Format for file interpretation 1 format( + A10,1X,F5.1,1X,F5.2,1X,F6.1,1X,F5.3,1X,F6.3,1X,F5.1,1X,F5.1, + 1X,F7.2,1X,F5.1,1X,I2,1X,I5) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,443 read(1,'(A77)')ar__ read(ar__,1)WDS,Plx,M1,P1,e1,a1,W1,i1,Sep,PA,RevDir,Sign c ..............Just test output........... write(6,1)WDS,Plx,M1,P1,e1,a1,W1,i1,Sep,PA,RevDir,Sign c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table3.dat' ! Hierarchical systems with two known visual orbits C Format for file interpretation 2 format( + A10,1X,A1,1X,F7.2,1X,F5.3,1X,F5.3,1X,F5.1,1X,F5.1,1X,I1,1X,A8, + 1X,F5.1) C Effective file loading open(unit=1,status='old',file= +'table3.dat') write(6,*) '....Loading file: table3.dat' do i__=1,110 read(1,'(A61)')ar__1 read(ar__1,2)WDS_1,I_O,P,e,a,W,i,Qual,Ref,Phi c ..............Just test output........... write(6,2)WDS_1,I_O,P,e,a,W,i,Qual,Ref,Phi c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'refs.dat' ! References C Format for file interpretation 3 format(A8,1X,A27,1X,A19,1X,A21) C Effective file loading open(unit=1,status='old',file= +'refs.dat') write(6,*) '....Loading file: refs.dat' do i__=1,52 read(1,'(A78)')ar__2 read(ar__2,3)Ref_1,Auth,BibCode,Comm c ..............Just test output........... write(6,3)Ref_1,Auth,BibCode,Comm c .......End.of.Just test output........... end do close(1) C============================================================================= stop end