Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/598/A40 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 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 (nr__) ! Shower number and abbreviation in the IAU MDC * list of showers or our number character*2 Class (nr__) ! Class of reliability character*1 DB (nr__) ! Database from which the listed shower was * separated (1) real*4 lambdaSun (nr__) ! (deg) Mean solar longitude real*4 e_lambdaSun(nr__) ! (deg) rms uncertainty on lambdaSun real*4 q (nr__) ! (AU) Mean perihelion distance real*4 e_q (nr__) ! (AU) rms uncertainty on q real*4 e (nr__) ! Mean eccentricity real*4 e_e (nr__) ! rms uncertainty on e real*4 omega (nr__) ! (deg) Mean argument of perihelion real*4 e_omega (nr__) ! (deg) rms uncertainty on omega real*4 Omega_1 (nr__) ! (deg) Mean longitude of ascending node real*4 e_Omega_1 (nr__) ! (deg) rms uncertainty on Omega real*4 i (nr__) ! (deg) Mean inclination to the ecliptic real*4 e_i (nr__) ! (deg) rms uncertainty on i real*4 RAg (nr__) ! (deg) Mean right ascension of geocentric radiant real*4 e_RAg (nr__) ! (deg) rms uncertainty on RAg real*4 DEg (nr__) ! (deg) Mean declination of geocentric radiant real*4 e_DEg (nr__) ! (deg) rms uncertainty on DEg real*4 Vg (nr__) ! (km/s) Mean geocentric velocity real*4 e_Vg (nr__) ! (km/s) rms uncertainty on Vg real*4 Vh (nr__) ! (km/s) Mean heliocentric velocity real*4 e_Vh (nr__) ! (km/s) rms uncertainty on Vh integer*4 N (nr__) ! Number of separated meteors of given shower real*4 Dlim (nr__) ! 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 (nr__1) ! Shower number and abbreviation in the IAU MDC * list of showers or our number character*2 Class_1 (nr__1) ! Class of reliability character*1 DB_1 (nr__1) ! Database from which the listed shower was * separated (1) real*4 lambdaSun_1(nr__1) ! (deg) Mean solar longitude real*4 e_lambdaSun_1(nr__1) ! (deg) rms uncertainty on lambdaSun real*4 q_1 (nr__1) ! (AU) Mean perihelion distance real*4 e_q_1 (nr__1) ! (AU) rms uncertainty on q real*4 e_1 (nr__1) ! Mean eccentricity real*4 e_e_1 (nr__1) ! rms uncertainty on e real*4 omega_2 (nr__1) ! (deg) Mean argument of perihelion real*4 e_omega_2 (nr__1) ! (deg) rms uncertainty on omega real*4 Omega_3 (nr__1) ! (deg) Mean longitude of ascending node real*4 e_Omega_3 (nr__1) ! (deg) rms uncertainty on Omega real*4 i_1 (nr__1) ! (deg) Mean inclination to the ecliptic real*4 e_i_1 (nr__1) ! (deg) rms uncertainty on i real*4 RAg_1 (nr__1) ! (deg) Mean right ascension of geocentric radiant real*4 e_RAg_1 (nr__1) ! (deg) rms uncertainty on RAg real*4 DEg_1 (nr__1) ! (deg) Mean declination of geocentric radiant real*4 e_DEg_1 (nr__1) ! (deg) rms uncertainty on DEg real*4 Vg_1 (nr__1) ! (km/s) Mean geocentric velocity real*4 e_Vg_1 (nr__1) ! (km/s) rms uncertainty on Vg real*4 Vh_1 (nr__1) ! (km/s) Mean heliocentric velocity real*4 e_Vh_1 (nr__1) ! (km/s) rms uncertainty on Vh integer*4 N_1 (nr__1) ! Number of separated meteors of given shower real*4 Dlim_1 (nr__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(i__),Class(i__),DB(i__),lambdaSun(i__), + e_lambdaSun(i__),q(i__),e_q(i__),e(i__),e_e(i__),omega(i__), + e_omega(i__),Omega_1(i__),e_Omega_1(i__),i(i__),e_i(i__), + RAg(i__),e_RAg(i__),DEg(i__),e_DEg(i__),Vg(i__),e_Vg(i__), + Vh(i__),e_Vh(i__),N(i__),Dlim(i__) c ..............Just test output........... write(6,1) + Shower(i__),Class(i__),DB(i__),lambdaSun(i__), + e_lambdaSun(i__),q(i__),e_q(i__),e(i__),e_e(i__),omega(i__), + e_omega(i__),Omega_1(i__),e_Omega_1(i__),i(i__),e_i(i__), + RAg(i__),e_RAg(i__),DEg(i__),e_DEg(i__),Vg(i__),e_Vg(i__), + Vh(i__),e_Vh(i__),N(i__),Dlim(i__) 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(i__),Class_1(i__),DB_1(i__),lambdaSun_1(i__), + e_lambdaSun_1(i__),q_1(i__),e_q_1(i__),e_1(i__),e_e_1(i__), + omega_2(i__),e_omega_2(i__),Omega_3(i__),e_Omega_3(i__), + i_1(i__),e_i_1(i__),RAg_1(i__),e_RAg_1(i__),DEg_1(i__), + e_DEg_1(i__),Vg_1(i__),e_Vg_1(i__),Vh_1(i__),e_Vh_1(i__), + N_1(i__),Dlim_1(i__) c ..............Just test output........... write(6,2) + Shower_1(i__),Class_1(i__),DB_1(i__),lambdaSun_1(i__), + e_lambdaSun_1(i__),q_1(i__),e_q_1(i__),e_1(i__),e_e_1(i__), + omega_2(i__),e_omega_2(i__),Omega_3(i__),e_Omega_3(i__), + i_1(i__),e_i_1(i__),RAg_1(i__),e_RAg_1(i__),DEg_1(i__), + e_DEg_1(i__),Vg_1(i__),e_Vg_1(i__),Vh_1(i__),e_Vh_1(i__), + N_1(i__),Dlim_1(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end