Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/671/333 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-Apr-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/ApJ/671/333 Aperture photometry in NGC 5194 (Kennicutt+, 2007) *================================================================================ *Star formation in NGC 5194 (M51a). *II. The spatially resolved star formation law. * Kennicutt R.C.Jr, Calzetti D., Walter F., Helou G., Hollenbach D.J., * Armus L., Bendo G., Dale D.A., Draine B.T., Engelbracht C.W., Gordon K.D., * Prescott M.K.M., Regan M.W., Thornley M.D., Bot C., Brinks E., De Blok E., * De Mello D., Meyer M., Moustakas J., Murphy E.J., Sheth K., Smith J.D.T. * <Astrophys. J., 671, 333-348 (2007)> * =2007ApJ...671..333K C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Aperture Photometry and SFR in NGC 5194 integer*4 nr__ parameter (nr__=315) ! Number of records character*93 ar__ ! Full-size record C J2000 position composed of: RAh RAm RAs DEd DEm DEs real*8 RAdeg (nr__) ! (deg) Right Ascension J2000 real*8 DEdeg (nr__) ! (deg) Declination J2000 C ---------------------------------- ! (position vector(s) in degrees) integer*4 ID (nr__) ! Aperture identification integer*4 RAh (nr__) ! (h) Hour of Right Ascension (J2000) (1) integer*4 RAm (nr__) ! (min) Minute of Right Ascension (J2000) (1) real*4 RAs (nr__) ! (s) Second of Right Ascension (J2000) (1) integer*4 DEd (nr__) ! (deg) Degree of Declination (J2000) (1) integer*4 DEm (nr__) ! (arcmin) Arcminute of Declination (J2000) (1) integer*4 DEs (nr__) ! (arcsec) Arcsecond of Declination (J2000) (1) integer*4 Ap (nr__) ! (arcsec) Diameter of aperture real*4 LHa (nr__) ! ([10-7W]) Groundbased H{alpha} luminosity (2) real*4 LPa (nr__) ! ([10-7W]) ? HST/NICMOS Pa{alpha} luminosity (2) real*4 L24um (nr__) ! ([10-7W]) Spitzer/IRAC 24{mu}m luminosity (2) real*4 Sigma_SFR (nr__) ! ([Msun/yr/kpc2]) log of SFR surface density (3) real*4 e_Sigma_SFR(nr__) ! ([Msun/yr/kpc2]) Uncertainty in Sigma(SFR) real*4 N_HI (nr__) ! ([cm-2]) log of HI column density real*4 N_H2 (nr__) ! ([cm-2]) log of H_2_ column density character*1 l_Sigma_H (nr__) ! Upper limit flag on Sigma(H) real*4 Sigma_H (nr__) ! ([Msun/pc2]) log of total hydrogen surface density real*4 e_Sigma_H (nr__) ! ([Msun/pc2]) ? Uncertainty on Sigma(H) *Note (1): Of aperture center. *Note (2): In units of erg/s. Stellar continuum luminosities are given as * {lambda}L({lambda}). Luminosities have been corrected for Galactic * foreground extinction E(B-V)_MW_=0.037mag, but otherwise have not * been corrected for extinction. *Note (3): SFRs for objects with Pa{alpha} photometry were corrected for * extinction using the Pa{alpha}/H{alpha) ratio. Otherwise SFRs were * corrected for extinction using the 24micron/H{alpha} ratio as * described in the text. C============================================================================= C Loading file 'table1.dat' ! Aperture Photometry and SFR in NGC 5194 C Format for file interpretation 1 format( + I4,2X,I2,1X,I2,1X,F4.1,2X,I2,1X,I2,1X,I2,2X,I2,2X,F5.2,2X, + F5.2,2X,F5.2,2X,F5.2,2X,F5.3,2X,F5.2,2X,F5.2,2X,A1,F4.2,2X, + F5.3) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,315 read(1,'(A93)')ar__ read(ar__,1) + ID(i__),RAh(i__),RAm(i__),RAs(i__),DEd(i__),DEm(i__),DEs(i__), + Ap(i__),LHa(i__),LPa(i__),L24um(i__),Sigma_SFR(i__), + e_Sigma_SFR(i__),N_HI(i__),N_H2(i__),l_Sigma_H(i__), + Sigma_H(i__),e_Sigma_H(i__) if(ar__(40:44) .EQ. '') LPa(i__) = rNULL__ if(ar__(89:93) .EQ. '') e_Sigma_H(i__) = rNULL__ RAdeg(i__) = rNULL__ DEdeg(i__) = rNULL__ c Derive coordinates RAdeg and DEdeg from input data c (RAdeg and DEdeg are set to rNULL__ when unknown) if(RAh(i__) .GT. -180) RAdeg(i__)=RAh(i__)*15. if(RAm(i__) .GT. -180) RAdeg(i__)=RAdeg(i__)+RAm(i__)/4. if(RAs(i__) .GT. -180) RAdeg(i__)=RAdeg(i__)+RAs(i__)/240. if(DEd(i__) .GE. 0) DEdeg(i__)=DEd(i__) if(DEm(i__) .GE. 0) DEdeg(i__)=DEdeg(i__)+DEm(i__)/60. if(DEs(i__) .GE. 0) DEdeg(i__)=DEdeg(i__)+DEs(i__)/3600. c ..............Just test output........... write(6,1) + ID(i__),RAh(i__),RAm(i__),RAs(i__),DEd(i__),DEm(i__),DEs(i__), + Ap(i__),LHa(i__),LPa(i__),L24um(i__),Sigma_SFR(i__), + e_Sigma_SFR(i__),N_HI(i__),N_H2(i__),l_Sigma_H(i__), + Sigma_H(i__),e_Sigma_H(i__) write(6,'(6H Pos: 2F8.4)') RAdeg(i__),DEdeg(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end