Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJS/97/141 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-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 ! Galaxy name real*4 BT0 ! (mag) B magnitude integer*4 MType ! Morphological type real*4 log_a_b ! ? Ratio of axes in log. scale character*1 l_FX ! Limit flag on FX real*4 FX ! (10-13mW/m2) X-ray flux (1) real*4 e_FX ! (10-13mW/m2) ? rms uncertainty on FX real*4 Dist ! (Mpc) Distance integer*4 F12 ! (mJy) ? Flux at 12um integer*4 e_F12 ! (mJy) ? rms uncertainty on F12 integer*4 F25 ! (mJy) ? Flux at 25um integer*4 e_F25 ! (mJy) ? rms uncertainty on F25 integer*4 F60 ! (mJy) ? Flux at 60um integer*4 e_F60 ! (mJy) ? rms uncertainty on F60 integer*4 F100 ! (mJy) ? Flux at 100um integer*4 e_F100 ! (mJy) ? rms uncertainty on F100 character*1 u_F100 ! Uncertainty flag on F100 real*8 F6cm ! (mJy) ? Flux at 6cm real*4 e_F6cm ! (mJy) ? rms uncertainty on F6cm real*8 F6core ! (mJy) ? Core radio flux real*4 e_F6core ! (mJy) ? rms uncertainty on F6core character*1 l_FHI ! Limit flag on FHI real*4 FHI ! (Jy.km/s) ? 21cm HI line flux (1) real*4 ulFHI ! (mJy) ? Upper limit of 21cm HI line flux * in mJy/channel character*10 Ref ! 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 ! Galaxy name real*4 log_LB ! ([10-7W]) B luminosity character*1 l_log_LX ! Limit flag on log(LX) real*4 log_LX ! ([10-7W]) X-ray luminosity character*1 l_log_LX_LB ! Limit flag on log(LX/LB) real*4 log_LX_LB ! B versus X luminosity character*1 l_log_L12 ! Limit flag on log(L12) real*4 log_L12 ! ([10-7W]) ? 12um luminosity character*1 l_log_L100 ! Limit flag on log(L100) real*4 log_L100 ! ([10-7W]) ? 100um luminosity character*1 l_log_L6 ! Limit flag on log(L6) real*4 log_L6 ! ([10-7W]) ? 6cm luminosity character*1 l_log_L6CO ! Limit flag on log(L6CO) real*4 log_L6CO ! ([10-7W]) ? Core radio luminosity character*1 l_log_MHI ! Limit flag on log(MHI) real*4 log_MHI ! ([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,BT0,MType,log_a_b,l_FX,FX,e_FX,Dist,F12,e_F12,F25,e_F25, + F60,e_F60,F100,e_F100,u_F100,F6cm,e_F6cm,F6core,e_F6core, + l_FHI,FHI,ulFHI,Ref if(ar__(30:33) .EQ. '') log_a_b = rNULL__ if(ar__(47:50) .EQ. '') e_FX = rNULL__ if(ar__(58:62) .EQ. '') F12 = iNULL__ if(ar__(72:74) .EQ. '') e_F12 = iNULL__ if(ar__(76:80) .EQ. '') F25 = iNULL__ if(ar__(82:84) .EQ. '') e_F25 = iNULL__ if(ar__(86:91) .EQ. '') F60 = iNULL__ if(ar__(93:96) .EQ. '') e_F60 = iNULL__ if(ar__(98:103) .EQ. '') F100 = iNULL__ if(ar__(105:109) .EQ. '') e_F100 = iNULL__ if(ar__(111:118) .EQ. '') F6cm = rNULL__ if(ar__(120:125) .EQ. '') e_F6cm = rNULL__ if(ar__(128:134) .EQ. '') F6core = rNULL__ if(ar__(136:140) .EQ. '') e_F6core = rNULL__ if(ar__(143:148) .EQ. '') FHI = rNULL__ if(ar__(151:155) .EQ. '') ulFHI = rNULL__ c ..............Just test output........... write(6,1) + Name,BT0,MType,log_a_b,l_FX,FX,e_FX,Dist,F12,e_F12,F25,e_F25, + F60,e_F60,F100,e_F100,u_F100,F6cm,e_F6cm,F6core,e_F6core, + l_FHI,FHI,ulFHI,Ref 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,log_LB,l_log_LX,log_LX,l_log_LX_LB,log_LX_LB,l_log_L12, + log_L12,l_log_L100,log_L100,l_log_L6,log_L6,l_log_L6CO, + log_L6CO,l_log_MHI,log_MHI if(ar__1(34:38) .EQ. '') log_L12 = rNULL__ if(ar__1(41:45) .EQ. '') log_L100 = rNULL__ if(ar__1(48:52) .EQ. '') log_L6 = rNULL__ if(ar__1(55:59) .EQ. '') log_L6CO = rNULL__ if(ar__1(62:66) .EQ. '') log_MHI = rNULL__ c ..............Just test output........... write(6,2) + Name_1,log_LB,l_log_LX,log_LX,l_log_LX_LB,log_LX_LB,l_log_L12, + log_L12,l_log_L100,log_L100,l_log_L6,log_L6,l_log_L6CO, + log_L6CO,l_log_MHI,log_MHI c .......End.of.Just test output........... end do close(1) C============================================================================= stop end