Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/598/A40 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/A+A/598/A40 Separation and confirmation of showers (Neslusan+, 2017) *================================================================================ *The separation and confirmation of showers. * Neslusan L., Hajdukova M.Jr. * <Astron. Astrophys. 598, A40 (2017)> * =2017A&A...598A..40N (SIMBAD/NED BibCode) C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tablea1.dat' ! *The characteristics of the showers separated from the used databases by the MoI method integer*4 nr__ parameter (nr__=107) ! Number of records character*144 ar__ ! Full-size record character*10 Shower ! Shower number and abbreviation in the IAU MDC * list of showers or our number character*2 Class ! Class of reliability character*1 DB ! Database from which the listed shower was * separated (1) real*4 lambdaSun ! (deg) Mean solar longitude real*4 e_lambdaSun ! (deg) rms uncertainty on lambdaSun real*4 q ! (AU) Mean perihelion distance real*4 e_q ! (AU) rms uncertainty on q real*4 e ! Mean eccentricity real*4 e_e ! rms uncertainty on e real*4 omega ! (deg) Mean argument of perihelion real*4 e_omega ! (deg) rms uncertainty on omega real*4 Omega_1 ! (deg) Mean longitude of ascending node real*4 e_Omega_1 ! (deg) rms uncertainty on Omega real*4 i ! (deg) Mean inclination to the ecliptic real*4 e_i ! (deg) rms uncertainty on i real*4 RAg ! (deg) Mean right ascension of geocentric radiant real*4 e_RAg ! (deg) rms uncertainty on RAg real*4 DEg ! (deg) Mean declination of geocentric radiant real*4 e_DEg ! (deg) rms uncertainty on DEg real*4 Vg ! (km/s) Mean geocentric velocity real*4 e_Vg ! (km/s) rms uncertainty on Vg real*4 Vh ! (km/s) Mean heliocentric velocity real*4 e_Vh ! (km/s) rms uncertainty on Vh integer*4 N ! Number of separated meteors of given shower real*4 Dlim ! Limiting value of the Southworth-Hawkins * D-discriminant at which the shower was * separated *Note (1): we give the given shower separated from that database, in which the * value of limiting D-discriminant was the lowest. * Abbreviations of the used databases as follows: * F = photographic IAU MDC database * C = CAMS video-database * S = SonotaCo video-database * E = EDMOND video-database c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tablea2.dat' ! *The characteristics of the showers separated from the used databases by the MoR& method integer*4 nr__1 parameter (nr__1=133) ! Number of records character*144 ar__1 ! Full-size record character*10 Shower_1 ! Shower number and abbreviation in the IAU MDC * list of showers or our number character*2 Class_1 ! Class of reliability character*1 DB_1 ! Database from which the listed shower was * separated (1) real*4 lambdaSun_1 ! (deg) Mean solar longitude real*4 e_lambdaSun_1 ! (deg) rms uncertainty on lambdaSun real*4 q_1 ! (AU) Mean perihelion distance real*4 e_q_1 ! (AU) rms uncertainty on q real*4 e_1 ! Mean eccentricity real*4 e_e_1 ! rms uncertainty on e real*4 omega_2 ! (deg) Mean argument of perihelion real*4 e_omega_2 ! (deg) rms uncertainty on omega real*4 Omega_3 ! (deg) Mean longitude of ascending node real*4 e_Omega_3 ! (deg) rms uncertainty on Omega real*4 i_1 ! (deg) Mean inclination to the ecliptic real*4 e_i_1 ! (deg) rms uncertainty on i real*4 RAg_1 ! (deg) Mean right ascension of geocentric radiant real*4 e_RAg_1 ! (deg) rms uncertainty on RAg real*4 DEg_1 ! (deg) Mean declination of geocentric radiant real*4 e_DEg_1 ! (deg) rms uncertainty on DEg real*4 Vg_1 ! (km/s) Mean geocentric velocity real*4 e_Vg_1 ! (km/s) rms uncertainty on Vg real*4 Vh_1 ! (km/s) Mean heliocentric velocity real*4 e_Vh_1 ! (km/s) rms uncertainty on Vh integer*4 N_1 ! Number of separated meteors of given shower real*4 Dlim_1 ! Limiting value of the Southworth-Hawkins * D-discriminant at which the shower was * separated *Note (1): we give the given shower separated from that database, in which the * value of limiting D-discriminant was the lowest. * Abbreviations of the used databases as follows: * F = photographic IAU MDC database * C = CAMS video-database * S = SonotaCo video-database * E = EDMOND video-database C============================================================================= C Loading file 'tablea1.dat' ! *The characteristics of the showers separated * from the used databases by the MoI method C Format for file interpretation 1 format( + A10,A2,2X,A1,2X,F5.1,1X,F5.1,1X,F5.3,1X,F5.3,2X,F5.3,1X,F5.3, + 2X,F5.1,1X,F4.1,2X,F5.1,1X,F4.1,2X,F5.1,1X,F4.1,2X,F5.1,1X, + F5.1,1X,F5.1,1X,F4.1,1X,F4.1,1X,F3.1,2X,F4.1,1X,F3.1,2X,I4,2X, + F4.2) C Effective file loading open(unit=1,status='old',file= +'tablea1.dat') write(6,*) '....Loading file: tablea1.dat' do i__=1,107 read(1,'(A144)')ar__ read(ar__,1) + Shower,Class,DB,lambdaSun,e_lambdaSun,q,e_q,e,e_e,omega, + e_omega,Omega_1,e_Omega_1,i,e_i,RAg,e_RAg,DEg,e_DEg,Vg,e_Vg, + Vh,e_Vh,N,Dlim c ..............Just test output........... write(6,1) + Shower,Class,DB,lambdaSun,e_lambdaSun,q,e_q,e,e_e,omega, + e_omega,Omega_1,e_Omega_1,i,e_i,RAg,e_RAg,DEg,e_DEg,Vg,e_Vg, + Vh,e_Vh,N,Dlim c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'tablea2.dat' ! *The characteristics of the showers separated * from the used databases by the MoR& method C Format for file interpretation 2 format( + A10,A2,2X,A1,2X,F5.1,1X,F5.1,1X,F5.3,1X,F5.3,2X,F5.3,1X,F5.3, + 2X,F5.1,1X,F4.1,2X,F5.1,1X,F4.1,2X,F5.1,1X,F4.1,2X,F5.1,1X, + F5.1,1X,F5.1,1X,F4.1,1X,F4.1,1X,F3.1,2X,F4.1,1X,F3.1,2X,I4,2X, + F4.2) C Effective file loading open(unit=1,status='old',file= +'tablea2.dat') write(6,*) '....Loading file: tablea2.dat' do i__=1,133 read(1,'(A144)')ar__1 read(ar__1,2) + Shower_1,Class_1,DB_1,lambdaSun_1,e_lambdaSun_1,q_1,e_q_1,e_1, + e_e_1,omega_2,e_omega_2,Omega_3,e_Omega_3,i_1,e_i_1,RAg_1, + e_RAg_1,DEg_1,e_DEg_1,Vg_1,e_Vg_1,Vh_1,e_Vh_1,N_1,Dlim_1 c ..............Just test output........... write(6,2) + Shower_1,Class_1,DB_1,lambdaSun_1,e_lambdaSun_1,q_1,e_q_1,e_1, + e_e_1,omega_2,e_omega_2,Omega_3,e_Omega_3,i_1,e_i_1,RAg_1, + e_RAg_1,DEg_1,e_DEg_1,Vg_1,e_Vg_1,Vh_1,e_Vh_1,N_1,Dlim_1 c .......End.of.Just test output........... end do close(1) C============================================================================= stop end