Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/486/73 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/486/73 AMIGA VII. FIR and radio study (Sabater+, 2008) *================================================================================ *The AMIGA sample of isolated galaxies. *VII. Far-infrared and radio continuum study of nuclear activity. * Sabater J., Leon S., Verdes-Montenegro L., Lisenfeld U., Sulentic J., * Verley S. * <Astron. Astrophys. 486, 73 (2008)> * =2008A&A...486...73S C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Galaxies from AMIGA sample listed as active in the literature integer*4 nr__ parameter (nr__=81) ! Number of records character*34 ar__ ! Full-size record integer*4 CIG ! CIG (VII/82) galaxy number (K73 NNNN in Simbad) character*11 Type1 ! NED classification (1) character*6 Type2 ! Veron-Cetty Catalogue (Cat. <VII/248>) * classification (1) character*5 Type3 ! This study classification (1)(2) *Note (1): Classification as follows: * Sy = Seyfert * HII = nuclear HII region * Sbrt = starburst * SBNG = small bright nucleus galaxy * NLAGN = narrow-line active galaxy (a mixture of Seyfert 2's, LINERS, * and starburst/AGN composites) * DANS = dwarf amorphous nuclei starburst galaxy *Note (2): Classification obtained discarding those cases where a * disagreement was found between the NED and Veron-Cetty classification. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! Radio-excess galaxies found using the radio-FIR correlation integer*4 nr__1 parameter (nr__1=20) ! Number of records character*35 ar__1 ! Full-size record character*1 Sample ! [S] S for galaxy belonging to the complete * subsample integer*4 CIG_1 ! CIG (VII/82) galaxy number * (K73 NNNN in Simbad) real*4 logLFIR ! ([solLum]) Far-infrared luminosity, from Lisenfeld et * al., (2007, Cat. <J/A+A/462/507>) integer*4 l_logLFIR ! [0/1] 0=detection, 1=upper limit on logLFIR real*4 logL1_4GHz ! ([W/Hz]) Radio continuum luminosity a 1.4GHz from * Leon et al. (2008, Cat. <J/A+A/485/475>) character*4 MType ! Morphological type (2) real*4 Excess ! Radio luminosity excess (1) *Note (1): ratio of actual to expected radio flux from radio-FIR correlation *Note (2): From Sulentic et al. (2006, Cat. <J/A+A/449/937>), except for * CIG 999 (Karachentseva, 1973, Cat. <VII/82>, NED). c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table4.dat' ! Radio-excess galaxies in FIRST integer*4 nr__2 parameter (nr__2=8) ! Number of records character*23 ar__2 ! Full-size record integer*4 CIG_2 ! CIG (VII/82) number (K73 NNNN in Simbad) real*4 NVSS ! (mJy) NVSS (Cat. <VIII/65>) radio continuum flux * at 1.4GHz real*4 FIRST ! (mJy) FIRST (Cat. <VIII/71>) radio continuum flux * at 1.4GHz (1) real*4 Dist ! (arcsec) Distance to the nearest FIRST source if more * than one source is present *Note (1): Sum of FIRST fluxes within the NVSS search radius if more than * one source is present. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table5.dat' ! Classified galaxies using the IRAS colour method integer*4 nr__3 parameter (nr__3=197) ! Number of records character*31 ar__3 ! Full-size record character*1 Sample_1 ! [S] S for galaxy belonging to the complete * subsample integer*4 CIG_3 ! CIG (VII/82) number (K73 NNNN in Simbad) real*4 S25um ! (Jy) Flux density at 25um (1) integer*4 l_S25um ! [0/1] 0=detection, 1=upper limit on S25um real*4 S60um ! (Jy) Flux density at 60um (1) integer*4 l_S60um ! [0/1] 0=detection, 1=upper limit on S60um character*6 Type ! Classification (2) *Note (1): Data from Lisenfeld et al., (2007, Cat. <J/A+A/462/507>). *Note (2): The value can be "AGN" for AGN-candidate galaxies with the IRAS * colour methor or "normal" in any other case. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table6.dat' ! Catalogue of AGN-candidates for the total sample integer*4 nr__4 parameter (nr__4=89) ! Number of records character*47 ar__4 ! Full-size record C J2000 position composed of: RAh RAm RAs DE- DEd DEm DEs real*8 RAdeg ! (deg) Right Ascension J2000 real*8 DEdeg ! (deg) Declination J2000 C ---------------------------------- ! (position vector(s) in degrees) integer*4 CIG_4 ! CIG (VII/82) number (K73 NNNN in Simbad) integer*4 RAh ! (h) Right ascension (J2000) integer*4 RAm ! (min) Right ascension (J2000) real*4 RAs ! (s) Right ascension (J2000) character*1 DE_ ! Declination sign (J2000) integer*4 DEd ! (deg) Declination (J2000) integer*4 DEm ! (arcmin) Declination (J2000) real*4 DEs ! (arcsec) Declination (J2000) character*5 Type1_1 ! Classification in the literature (see table1) character*6 Type2_1 ! AGN candidates using the FIR colour criterion integer*4 F3 ! [0/1] 1 if radio-excess candidate galaxy using * a factor 3 cutoff, 0 if not integer*4 F5 ! [0/1] 1 if radio-excess candidate galaxy using * a factor 5 cutoff, 0 if not integer*4 Sample_2 ! [0/1] 1 if galaxy belongs to the complete * subsample, 0 if not C============================================================================= C Loading file 'table1.dat' ! Galaxies from AMIGA sample listed as active in * the literature C Format for file interpretation 1 format(I4,3X,A11,3X,A6,2X,A5) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,81 read(1,'(A34)')ar__ read(ar__,1)CIG,Type1,Type2,Type3 c ..............Just test output........... write(6,1)CIG,Type1,Type2,Type3 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table2.dat' ! Radio-excess galaxies found using the radio-FIR * correlation C Format for file interpretation 2 format(A1,1X,I4,2X,F5.2,2X,I1,3X,F5.2,2X,A4,1X,F4.1) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,20 read(1,'(A35)')ar__1 read(ar__1,2) + Sample,CIG_1,logLFIR,l_logLFIR,logL1_4GHz,MType,Excess c ..............Just test output........... write(6,2) + Sample,CIG_1,logLFIR,l_logLFIR,logL1_4GHz,MType,Excess c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table4.dat' ! Radio-excess galaxies in FIRST C Format for file interpretation 3 format(I4,2X,F4.1,2X,F5.2,2X,F4.1) C Effective file loading open(unit=1,status='old',file= +'table4.dat') write(6,*) '....Loading file: table4.dat' do i__=1,8 read(1,'(A23)')ar__2 read(ar__2,3)CIG_2,NVSS,FIRST,Dist c ..............Just test output........... write(6,3)CIG_2,NVSS,FIRST,Dist c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table5.dat' ! Classified galaxies using the IRAS colour method C Format for file interpretation 4 format(A1,1X,I4,2X,F5.2,1X,I1,2X,F5.2,1X,I1,1X,A6) C Effective file loading open(unit=1,status='old',file= +'table5.dat') write(6,*) '....Loading file: table5.dat' do i__=1,197 read(1,'(A31)')ar__3 read(ar__3,4)Sample_1,CIG_3,S25um,l_S25um,S60um,l_S60um,Type c ..............Just test output........... write(6,4)Sample_1,CIG_3,S25um,l_S25um,S60um,l_S60um,Type c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table6.dat' ! Catalogue of AGN-candidates for the total sample C Format for file interpretation 5 format( + I4,1X,I2,1X,I2,1X,F5.2,1X,A1,I2,1X,I2,1X,F4.1,1X,A5,1X,A6,1X, + I1,1X,I1,1X,I1) C Effective file loading open(unit=1,status='old',file= +'table6.dat') write(6,*) '....Loading file: table6.dat' do i__=1,89 read(1,'(A47)')ar__4 read(ar__4,5) + CIG_4,RAh,RAm,RAs,DE_,DEd,DEm,DEs,Type1_1,Type2_1,F3,F5, + Sample_2 RAdeg = rNULL__ DEdeg = rNULL__ c Derive coordinates RAdeg and DEdeg from input data c (RAdeg and DEdeg are set to rNULL__ when unknown) if(RAh .GT. -180) RAdeg=RAh*15. if(RAm .GT. -180) RAdeg=RAdeg+RAm/4. if(RAs .GT. -180) RAdeg=RAdeg+RAs/240. if(DEd .GE. 0) DEdeg=DEd if(DEm .GE. 0) DEdeg=DEdeg+DEm/60. if(DEs .GE. 0) DEdeg=DEdeg+DEs/3600. if(DE_.EQ.'-'.AND.DEdeg.GE.0) DEdeg=-DEdeg c ..............Just test output........... write(6,5) + CIG_4,RAh,RAm,RAs,DE_,DEd,DEm,DEs,Type1_1,Type2_1,F3,F5, + Sample_2 write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg c .......End.of.Just test output........... end do close(1) C============================================================================= stop end