Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/461/789 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-29 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/461/789 Comet 153P/Ikeya-Zhang emission lines catalog (Cremonese+, 2007) *================================================================================ *Catalog of the emission lines in the visible spectrum of comet 153P/Ikeya-Zhang. * Cremonese G., Capria M.T., De Sanctis M.C. * <Astron. Astrophys. 461, 789 (2007)> * =2007A&A...461..789C C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3.dat' ! The catalog integer*4 nr__ parameter (nr__=8468) ! Number of records character*102 ar__ ! Full-size record real*8 Lambda (nr__) ! (0.1nm) Wavelength character*1 n_Lambda (nr__) ! [+] + for blended line with the previous one real*4 RInt (nr__) ! ? Relative intensity in arbitrary units character*6 Species (nr__) ! Molecule name (or "Unid" when the line * is unidentified) (1) character*5 TransE (nr__) ! Electronic transition character*21 TransV (nr__) ! Vibrational transition character*49 TransR (nr__) ! Rotational transition *Note (1): Molecule names are: * C2 ; CN ; H alph ; H2O+ ; NH2 ; [Na I] ; [O I] and * Unid (when the line is unidentified) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table4.dat' ! C2 emission lines (extract of the catalog) integer*4 nr__1 parameter (nr__1=4722) ! Number of records character*102 ar__1 ! Full-size record real*8 Lambda_1 (nr__1) ! (0.1nm) Wavelength character*1 n_Lambda_1 (nr__1) ! [+] + for blended line with the previous one real*4 RInt_1 (nr__1) ! ? Relative intensity in arbitrary units character*6 Species_1 (nr__1) ! Molecule name (or "Unid" when the line * is unidentified) (1) character*5 TransE_1 (nr__1) ! Electronic transition character*21 TransV_1 (nr__1) ! Vibrational transition character*49 TransR_1 (nr__1) ! Rotational transition *Note (1): Molecule names are: * C2 ; CN ; H alph ; H2O+ ; NH2 ; [Na I] ; [O I] and * Unid (when the line is unidentified) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table5.dat' ! NH2 emission lines (extract of the catalog) integer*4 nr__2 parameter (nr__2=1572) ! Number of records character*102 ar__2 ! Full-size record real*8 Lambda_2 (nr__2) ! (0.1nm) Wavelength character*1 n_Lambda_2 (nr__2) ! [+] + for blended line with the previous one real*4 RInt_2 (nr__2) ! ? Relative intensity in arbitrary units character*6 Species_2 (nr__2) ! Molecule name (or "Unid" when the line * is unidentified) (1) character*5 TransE_2 (nr__2) ! Electronic transition character*21 TransV_2 (nr__2) ! Vibrational transition character*49 TransR_2 (nr__2) ! Rotational transition *Note (1): Molecule names are: * C2 ; CN ; H alph ; H2O+ ; NH2 ; [Na I] ; [O I] and * Unid (when the line is unidentified) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table6.dat' ! CN emission lines (extract of the catalog) integer*4 nr__3 parameter (nr__3=216) ! Number of records character*102 ar__3 ! Full-size record real*8 Lambda_3 (nr__3) ! (0.1nm) Wavelength character*1 n_Lambda_3 (nr__3) ! [+] + for blended line with the previous one real*4 RInt_3 (nr__3) ! ? Relative intensity in arbitrary units character*6 Species_3 (nr__3) ! Molecule name (or "Unid" when the line * is unidentified) (1) character*5 TransE_3 (nr__3) ! Electronic transition character*21 TransV_3 (nr__3) ! Vibrational transition character*49 TransR_3 (nr__3) ! Rotational transition *Note (1): Molecule names are: * C2 ; CN ; H alph ; H2O+ ; NH2 ; [Na I] ; [O I] and * Unid (when the line is unidentified) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table7.dat' ! H2O+ emission lines (extract of the catalog) integer*4 nr__4 parameter (nr__4=89) ! Number of records character*102 ar__4 ! Full-size record real*8 Lambda_4 (nr__4) ! (0.1nm) Wavelength character*1 n_Lambda_4 (nr__4) ! [+] + for blended line with the previous one real*4 RInt_4 (nr__4) ! ? Relative intensity in arbitrary units character*6 Species_4 (nr__4) ! Molecule name (or "Unid" when the line * is unidentified) (1) character*5 TransE_4 (nr__4) ! Electronic transition character*21 TransV_4 (nr__4) ! Vibrational transition character*49 TransR_4 (nr__4) ! Rotational transition *Note (1): Molecule names are: * C2 ; CN ; H alph ; H2O+ ; NH2 ; [Na I] ; [O I] and * Unid (when the line is unidentified) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table8.dat' ! Atomic emission lines (extract of the catalog) integer*4 nr__5 parameter (nr__5=6) ! Number of records character*102 ar__5 ! Full-size record real*8 Lambda_5 (nr__5) ! (0.1nm) Wavelength character*1 n_Lambda_5 (nr__5) ! [+] + for blended line with the previous one real*4 RInt_5 (nr__5) ! ? Relative intensity in arbitrary units character*6 Species_5 (nr__5) ! Molecule name (or "Unid" when the line * is unidentified) (1) character*5 TransE_5 (nr__5) ! Electronic transition character*21 TransV_5 (nr__5) ! Vibrational transition character*49 TransR_5 (nr__5) ! Rotational transition *Note (1): Molecule names are: * C2 ; CN ; H alph ; H2O+ ; NH2 ; [Na I] ; [O I] and * Unid (when the line is unidentified) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table9.dat' ! Unidentified emission lines (extract of the catalog) integer*4 nr__6 parameter (nr__6=1862) ! Number of records character*102 ar__6 ! Full-size record real*8 Lambda_6 (nr__6) ! (0.1nm) Wavelength character*1 n_Lambda_6 (nr__6) ! [+] + for blended line with the previous one real*4 RInt_6 (nr__6) ! ? Relative intensity in arbitrary units character*6 Species_6 (nr__6) ! Molecule name (or "Unid" when the line * is unidentified) (1) character*5 TransE_6 (nr__6) ! Electronic transition character*21 TransV_6 (nr__6) ! Vibrational transition character*49 TransR_6 (nr__6) ! Rotational transition *Note (1): Molecule names are: * C2 ; CN ; H alph ; H2O+ ; NH2 ; [Na I] ; [O I] and * Unid (when the line is unidentified) C============================================================================= C Loading file 'table3.dat' ! The catalog C Format for file interpretation 1 format(1X,F8.3,A1,1X,F6.3,2X,A6,A5,1X,A21,1X,A49) C Effective file loading open(unit=1,status='old',file= +'table3.dat') write(6,*) '....Loading file: table3.dat' do i__=1,8468 read(1,'(A102)')ar__ read(ar__,1) + Lambda(i__),n_Lambda(i__),RInt(i__),Species(i__),TransE(i__), + TransV(i__),TransR(i__) if(ar__(12:17) .EQ. '') RInt(i__) = rNULL__ c ..............Just test output........... write(6,1) + Lambda(i__),n_Lambda(i__),RInt(i__),Species(i__),TransE(i__), + TransV(i__),TransR(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table4.dat' ! C2 emission lines (extract of the catalog) C Format for file interpretation 2 format(1X,F8.3,A1,1X,F6.3,2X,A6,A5,1X,A21,1X,A49) C Effective file loading open(unit=1,status='old',file= +'table4.dat') write(6,*) '....Loading file: table4.dat' do i__=1,4722 read(1,'(A102)')ar__1 read(ar__1,2) + Lambda_1(i__),n_Lambda_1(i__),RInt_1(i__),Species_1(i__), + TransE_1(i__),TransV_1(i__),TransR_1(i__) if(ar__1(12:17) .EQ. '') RInt_1(i__) = rNULL__ c ..............Just test output........... write(6,2) + Lambda_1(i__),n_Lambda_1(i__),RInt_1(i__),Species_1(i__), + TransE_1(i__),TransV_1(i__),TransR_1(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table5.dat' ! NH2 emission lines (extract of the catalog) C Format for file interpretation 3 format(1X,F8.3,A1,1X,F6.3,2X,A6,A5,1X,A21,1X,A49) C Effective file loading open(unit=1,status='old',file= +'table5.dat') write(6,*) '....Loading file: table5.dat' do i__=1,1572 read(1,'(A102)')ar__2 read(ar__2,3) + Lambda_2(i__),n_Lambda_2(i__),RInt_2(i__),Species_2(i__), + TransE_2(i__),TransV_2(i__),TransR_2(i__) if(ar__2(12:17) .EQ. '') RInt_2(i__) = rNULL__ c ..............Just test output........... write(6,3) + Lambda_2(i__),n_Lambda_2(i__),RInt_2(i__),Species_2(i__), + TransE_2(i__),TransV_2(i__),TransR_2(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table6.dat' ! CN emission lines (extract of the catalog) C Format for file interpretation 4 format(1X,F8.3,A1,1X,F6.3,2X,A6,A5,1X,A21,1X,A49) C Effective file loading open(unit=1,status='old',file= +'table6.dat') write(6,*) '....Loading file: table6.dat' do i__=1,216 read(1,'(A102)')ar__3 read(ar__3,4) + Lambda_3(i__),n_Lambda_3(i__),RInt_3(i__),Species_3(i__), + TransE_3(i__),TransV_3(i__),TransR_3(i__) if(ar__3(12:17) .EQ. '') RInt_3(i__) = rNULL__ c ..............Just test output........... write(6,4) + Lambda_3(i__),n_Lambda_3(i__),RInt_3(i__),Species_3(i__), + TransE_3(i__),TransV_3(i__),TransR_3(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table7.dat' ! H2O+ emission lines (extract of the catalog) C Format for file interpretation 5 format(1X,F8.3,A1,1X,F6.3,2X,A6,A5,1X,A21,1X,A49) C Effective file loading open(unit=1,status='old',file= +'table7.dat') write(6,*) '....Loading file: table7.dat' do i__=1,89 read(1,'(A102)')ar__4 read(ar__4,5) + Lambda_4(i__),n_Lambda_4(i__),RInt_4(i__),Species_4(i__), + TransE_4(i__),TransV_4(i__),TransR_4(i__) if(ar__4(12:17) .EQ. '') RInt_4(i__) = rNULL__ c ..............Just test output........... write(6,5) + Lambda_4(i__),n_Lambda_4(i__),RInt_4(i__),Species_4(i__), + TransE_4(i__),TransV_4(i__),TransR_4(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table8.dat' ! Atomic emission lines (extract of the catalog) C Format for file interpretation 6 format(1X,F8.3,A1,1X,F6.3,2X,A6,A5,1X,A21,1X,A49) C Effective file loading open(unit=1,status='old',file= +'table8.dat') write(6,*) '....Loading file: table8.dat' do i__=1,6 read(1,'(A102)')ar__5 read(ar__5,6) + Lambda_5(i__),n_Lambda_5(i__),RInt_5(i__),Species_5(i__), + TransE_5(i__),TransV_5(i__),TransR_5(i__) if(ar__5(12:17) .EQ. '') RInt_5(i__) = rNULL__ c ..............Just test output........... write(6,6) + Lambda_5(i__),n_Lambda_5(i__),RInt_5(i__),Species_5(i__), + TransE_5(i__),TransV_5(i__),TransR_5(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table9.dat' ! Unidentified emission lines (extract of the catalog) C Format for file interpretation 7 format(1X,F8.3,A1,1X,F6.3,2X,A6,A5,1X,A21,1X,A49) C Effective file loading open(unit=1,status='old',file= +'table9.dat') write(6,*) '....Loading file: table9.dat' do i__=1,1862 read(1,'(A102)')ar__6 read(ar__6,7) + Lambda_6(i__),n_Lambda_6(i__),RInt_6(i__),Species_6(i__), + TransE_6(i__),TransV_6(i__),TransR_6(i__) if(ar__6(12:17) .EQ. '') RInt_6(i__) = rNULL__ c ..............Just test output........... write(6,7) + Lambda_6(i__),n_Lambda_6(i__),RInt_6(i__),Species_6(i__), + TransE_6(i__),TransV_6(i__),TransR_6(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end