Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJS/97/141 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-19 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/ApJS/97/141 Einstein sample multiparametric analysis. I. (Eskridge+ 1995) *================================================================================ *A multiparametric analysis of the Einstein sample of early-type galaxies. I. *Luminosity and ISM parameters. * Eskridge P.B., Fabbiano G., Kim D.-W. * <Astrophys. J. Suppl. Ser. 97, 141 (1995)> * =1995ApJS...97..141E (SIMBAD/NED BibCode) C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1a' ! Flux Data integer*4 nr__ parameter (nr__=148) ! Number of records character*166 ar__ ! Full-size record character*8 Name (nr__) ! Galaxy name real*4 BT0 (nr__) ! (mag) B magnitude integer*4 MType (nr__) ! Morphological type real*4 log_a_b (nr__) ! ? Ratio of axes in log. scale character*1 l_FX (nr__) ! Limit flag on FX real*4 FX (nr__) ! (10-13mW/m2) X-ray flux (1) real*4 e_FX (nr__) ! (10-13mW/m2) ? rms uncertainty on FX real*4 Dist (nr__) ! (Mpc) Distance integer*4 F12 (nr__) ! (mJy) ? Flux at 12um integer*4 e_F12 (nr__) ! (mJy) ? rms uncertainty on F12 integer*4 F25 (nr__) ! (mJy) ? Flux at 25um integer*4 e_F25 (nr__) ! (mJy) ? rms uncertainty on F25 integer*4 F60 (nr__) ! (mJy) ? Flux at 60um integer*4 e_F60 (nr__) ! (mJy) ? rms uncertainty on F60 integer*4 F100 (nr__) ! (mJy) ? Flux at 100um integer*4 e_F100 (nr__) ! (mJy) ? rms uncertainty on F100 character*1 u_F100 (nr__) ! Uncertainty flag on F100 real*8 F6cm (nr__) ! (mJy) ? Flux at 6cm real*4 e_F6cm (nr__) ! (mJy) ? rms uncertainty on F6cm real*8 F6core (nr__) ! (mJy) ? Core radio flux real*4 e_F6core (nr__) ! (mJy) ? rms uncertainty on F6core character*1 l_FHI (nr__) ! Limit flag on FHI real*4 FHI (nr__) ! (Jy.km/s) ? 21cm HI line flux (1) real*4 ulFHI (nr__) ! (mJy) ? Upper limit of 21cm HI line flux * in mJy/channel character*10 Ref (nr__) ! References (2) *Note (1): The value listed as upper limits are 3{sigma}. *Note (2): IRAS references: * 1. Knapp et al., 1989 <J/ApJS/70/329> * 2. Knapp et al., 1989, blended: NGC 2832 with NGC 2831 * NGC 4638 with NGC 4637 * NGC 6876 with NGC 6877 * 3. Not observed by IRAS - Lonsdale et al., 1985, cat. <VII/113> * 4. Rice et al., 1988, cat. <VII/109> * 5. Fullmer and Lonsdale 1989, cat. <VII/113> * 6. Fullmer and Lonsdale 1989, blended: NGC 1510 with NGC 1512 * NGC 2444 with NGC 2445 * NGC 6027 in a Zwicky Group * NGC 127, NGC 130 and NGC 128 * 7. Condon et al., 1991 <1991AJ....101..362C> * 8. Haynes et al., 1990 <1990AJ.....99.1740H> * 9. Vereshchagin et al. <1989AZh....66..527V> * Radio continuum references:. * 10. FGT (Fabbiano et al., <1989ApJ...347..127F>) * 11. Roberts et al., <1991ApJS...75..751R> * 12. Wrobel <1991AJ....101..127W> * 13. Wrobel and Heeschen <1988ApJ...335..677W> * 14. Ekers and Ekers <1973A&A....24..247E> * 15. Fabbiano et al., <1987ApJ...312..111F> * 16. Wright <1974MNRAS.167..273W> * 17. Sulentic <1976ApJS...32..171S> * 18. Hummel et al., <1984A&A...134..207H> * 19. Haynes et al., 1975 * 20. Disney and Wall <1977MNRAS.179..235D> * 21. Calvani et al. <1989AJ.....97.1319C> * 22. Hummel et al. <1991A&AS...87..309H> * 23. Condon et al. <1991AJ....101..362C> * Radio core references:. * 24. Bridle and Fomalont <1978AJ.....83..704B> * 25. Wrobel and Heeschen <1984ApJ...287...41W> * 26. Geldzahler and Fomalont <1978AJ.....83.1047G> * 27. Killeen et al., <1988ApJ...325..180K> * 28. Stanger and Warwick <1986MNRAS.220..363S> * 29. Burns et al. <1983ApJ...273..128B> * 30. Killeen et al., <1986ApJ...302..306K> * 31. Birkinshaw and Davies <1985ApJ...291...32B> * 32. Fabbiano et al. <1984ApJ...277..115F> * 33. Feretti et al. <1984A&A...139...55F> * 34. Wrobel and Heeschen <1991AJ....101..148W> * 35. Bridle and Perley 1984 * 36. Impey and Gregorini, 1993, cat. <J/AJ/105/853> * 37. Sadler et al. <1989MNRAS.240..591S> * 38. Wilkinson et al. <1987MNRAS.224..895W> * 39. Neff and Hutchings <1992AJ....103.1746N> * 40. Ekers et al. <1989MNRAS.236..737E> * HI references:. * 41. Roberts et al. <1991ApJS...75..751R> * 42. Huchtmeier and Richter 1989 * 43. Huchtmeier and Richter 1989: NGC 7236 blended with NGC 7237. * 44. Eder et al. <1991AJ....102..572E> * 45. van Gorkom et al. <1989AJ.....97..708V>: HI in absorption * 46. Bottinelli et al., 1990, cat. <VII/136> c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1b' ! Luminosity data integer*4 nr__1 parameter (nr__1=148) ! Number of records character*66 ar__1 ! Full-size record character*9 Name_1 (nr__1) ! Galaxy name real*4 log_LB (nr__1) ! ([10-7W]) B luminosity character*1 l_log_LX (nr__1) ! Limit flag on log(LX) real*4 log_LX (nr__1) ! ([10-7W]) X-ray luminosity character*1 l_log_LX_LB(nr__1) ! Limit flag on log(LX/LB) real*4 log_LX_LB (nr__1) ! B versus X luminosity character*1 l_log_L12 (nr__1) ! Limit flag on log(L12) real*4 log_L12 (nr__1) ! ([10-7W]) ? 12um luminosity character*1 l_log_L100 (nr__1) ! Limit flag on log(L100) real*4 log_L100 (nr__1) ! ([10-7W]) ? 100um luminosity character*1 l_log_L6 (nr__1) ! Limit flag on log(L6) real*4 log_L6 (nr__1) ! ([10-7W]) ? 6cm luminosity character*1 l_log_L6CO (nr__1) ! Limit flag on log(L6CO) real*4 log_L6CO (nr__1) ! ([10-7W]) ? Core radio luminosity character*1 l_log_MHI (nr__1) ! Limit flag on log(MHI) real*4 log_MHI (nr__1) ! ([solMass]) ? HI mass C============================================================================= C Loading file 'table1a' ! Flux Data C Format for file interpretation 1 format( + 1X,A8,5X,F5.2,3X,I2,5X,F4.2,5X,A1,F6.2,1X,F4.2,1X,F5.1,1X,I5, + 9X,I3,1X,I5,1X,I3,1X,I6,1X,I4,1X,I6,1X,I5,A1,F8.1,1X,F6.2,2X, + F7.2,1X,F5.2,1X,A1,F6.2,2X,F5.2,1X,A10) C Effective file loading open(unit=1,status='old',file= +'table1a') write(6,*) '....Loading file: table1a' do i__=1,148 read(1,'(A166)')ar__ read(ar__,1) + Name(i__),BT0(i__),MType(i__),log_a_b(i__),l_FX(i__),FX(i__), + e_FX(i__),Dist(i__),F12(i__),e_F12(i__),F25(i__),e_F25(i__), + F60(i__),e_F60(i__),F100(i__),e_F100(i__),u_F100(i__), + F6cm(i__),e_F6cm(i__),F6core(i__),e_F6core(i__),l_FHI(i__), + FHI(i__),ulFHI(i__),Ref(i__) if(ar__(30:33) .EQ. '') log_a_b(i__) = rNULL__ if(ar__(47:50) .EQ. '') e_FX(i__) = rNULL__ if(ar__(58:62) .EQ. '') F12(i__) = iNULL__ if(ar__(72:74) .EQ. '') e_F12(i__) = iNULL__ if(ar__(76:80) .EQ. '') F25(i__) = iNULL__ if(ar__(82:84) .EQ. '') e_F25(i__) = iNULL__ if(ar__(86:91) .EQ. '') F60(i__) = iNULL__ if(ar__(93:96) .EQ. '') e_F60(i__) = iNULL__ if(ar__(98:103) .EQ. '') F100(i__) = iNULL__ if(ar__(105:109) .EQ. '') e_F100(i__) = iNULL__ if(ar__(111:118) .EQ. '') F6cm(i__) = rNULL__ if(ar__(120:125) .EQ. '') e_F6cm(i__) = rNULL__ if(ar__(128:134) .EQ. '') F6core(i__) = rNULL__ if(ar__(136:140) .EQ. '') e_F6core(i__) = rNULL__ if(ar__(143:148) .EQ. '') FHI(i__) = rNULL__ if(ar__(151:155) .EQ. '') ulFHI(i__) = rNULL__ c ..............Just test output........... write(6,1) + Name(i__),BT0(i__),MType(i__),log_a_b(i__),l_FX(i__),FX(i__), + e_FX(i__),Dist(i__),F12(i__),e_F12(i__),F25(i__),e_F25(i__), + F60(i__),e_F60(i__),F100(i__),e_F100(i__),u_F100(i__), + F6cm(i__),e_F6cm(i__),F6core(i__),e_F6core(i__),l_FHI(i__), + FHI(i__),ulFHI(i__),Ref(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table1b' ! Luminosity data C Format for file interpretation 2 format( + A9,1X,F5.2,2X,A1,F5.2,1X,A1,F6.3,1X,A1,F5.2,1X,A1,F5.2,1X,A1, + F5.2,1X,A1,F5.2,1X,A1,F5.2) C Effective file loading open(unit=1,status='old',file= +'table1b') write(6,*) '....Loading file: table1b' do i__=1,148 read(1,'(A66)')ar__1 read(ar__1,2) + Name_1(i__),log_LB(i__),l_log_LX(i__),log_LX(i__), + l_log_LX_LB(i__),log_LX_LB(i__),l_log_L12(i__),log_L12(i__), + l_log_L100(i__),log_L100(i__),l_log_L6(i__),log_L6(i__), + l_log_L6CO(i__),log_L6CO(i__),l_log_MHI(i__),log_MHI(i__) if(ar__1(34:38) .EQ. '') log_L12(i__) = rNULL__ if(ar__1(41:45) .EQ. '') log_L100(i__) = rNULL__ if(ar__1(48:52) .EQ. '') log_L6(i__) = rNULL__ if(ar__1(55:59) .EQ. '') log_L6CO(i__) = rNULL__ if(ar__1(62:66) .EQ. '') log_MHI(i__) = rNULL__ c ..............Just test output........... write(6,2) + Name_1(i__),log_LB(i__),l_log_LX(i__),log_LX(i__), + l_log_LX_LB(i__),log_LX_LB(i__),l_log_L12(i__),log_L12(i__), + l_log_L100(i__),log_L100(i__),l_log_L6(i__),log_L6(i__), + l_log_L6CO(i__),log_L6CO(i__),l_log_MHI(i__),log_MHI(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end