Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/842/133 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/ApJ/842/133 HI-bearing ultra-diffuse ALFALFA galaxies (Leisman+, 2017) *================================================================================ *(Almost) dark galaxies in the ALFALFA survey: isolated H I-bearing *ultra-diffuse galaxies. * Leisman L., Haynes M.P., Janowiecki S., Hallenbeck G., Jozsa G., * Giovanelli R., Adams E.A.K., Neira D.B., Cannon J.M., Janesh W.F., * Rhode K.L., Salzer J.J. * <Astrophys. J., 842, 133 (2017)> * =2017ApJ...842..133L C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Properties of HI-bearing ultra-diffuse ALFALFA sources (HUDS) integer*4 nr__ parameter (nr__=115) ! Number of records character*111 ar__ ! Full-size record C J2000 position composed of: RAdeg DEdeg integer*4 AGC (nr__) ! [102791/749488] Arecibo General Catalog ID real*8 RAdeg (nr__) ! (deg) Right Ascension (J2000) real*8 DEdeg (nr__) ! (deg) Declination (J2000) integer*4 cz (nr__) ! (km/s) [1796/8416] Recessional velocity integer*4 W50 (nr__) ! (km/s) [19/215] Width of the HI line measured at * the 50% flux level, corrected for channel * broadening integer*4 e_W50 (nr__) ! (km/s) [2/59] W50 error real*4 SdV (nr__) ! (Jy.km/s) [0.3/3.5] HI line flux density real*4 e_SdV (nr__) ! (Jy.km/s) [0.02/0.1] Flux density error integer*4 Dist (nr__) ! (Mpc) [28/120] Distance from ALFALFA * flow model (1) real*4 logMHI (nr__) ! ([Msun]) [7.9/9.5] HI mass real*4 e_logMHI (nr__) ! ([Msun]) [0.05/0.2] HI mass error (1) real*4 mug0 (nr__) ! (mag/arcsec2) [23/25.4] g-band central surface * brightness (2) real*4 e_mug0 (nr__) ! (mag/arcsec2) [0.1/0.4] g-band central SB error real*4 rh (nr__) ! (kpc) [1.6/8] Half light radius real*4 e_rh (nr__) ! (kpc) [0.2/3.3] Half light radius error (1) real*4 gMAG (nr__) ! (mag) [-17.1/-13.9] g-band absolute magnitude (3) real*4 e_gMAG (nr__) ! (mag) [0.3/1.1] gMAG error (1) real*4 g_r (nr__) ! (mag) [-0.2/0.9] g minus r color index (2) real*4 e_g_r (nr__) ! (mag) [0.1/2] g-r color error real*4 Ag (nr__) ! (mag) [0.05/0.8] g band galactic extinction (4) real*4 Ar (nr__) ! (mag) [0.03/0.6] r band galactic extinction (4) character*1 Set (nr__) ! Broad (B) or Restrictive (R) Sample *Note (1): Distance dependent quantity errors include an assumed distance * error of 350km/s or 5Mpc. *Note (2): Not corrected for galactic dust extinction *Note (3): g-band absolute magnitudes are calculated from total integrated * magnitudes from the surface brightness profile using the ALFALFA flow * model distance. These total magnitudes are not truncated, and are * significantly brighter than aperture magnitudes. * USE WITH CAUTION. *Note (4): Galactic dust extinction corrections are derived from the * Schlafly & Finkbeiner (2011ApJ...737..103S) recalibration of the * Schlegel et al. (1998ApJ...500..525S) COBE and IRAS dust maps, and * assume Rv=3.1. They are included simply as a convenience to the * reader. C============================================================================= C Loading file 'table1.dat' ! Properties of HI-bearing ultra-diffuse ALFALFA * sources (HUDS) C Format for file interpretation 1 format( + I6,1X,F8.4,1X,F7.4,1X,I4,1X,I3,1X,I2,1X,F4.2,1X,F4.2,1X,I3,1X, + F4.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F3.1,1X,F3.1,1X,F5.1,1X,F3.1, + 1X,F5.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,A1) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,115 read(1,'(A111)')ar__ read(ar__,1) + AGC(i__),RAdeg(i__),DEdeg(i__),cz(i__),W50(i__),e_W50(i__), + SdV(i__),e_SdV(i__),Dist(i__),logMHI(i__),e_logMHI(i__), + mug0(i__),e_mug0(i__),rh(i__),e_rh(i__),gMAG(i__),e_gMAG(i__), + g_r(i__),e_g_r(i__),Ag(i__),Ar(i__),Set(i__) c ..............Just test output........... write(6,1) + AGC(i__),RAdeg(i__),DEdeg(i__),cz(i__),W50(i__),e_W50(i__), + SdV(i__),e_SdV(i__),Dist(i__),logMHI(i__),e_logMHI(i__), + mug0(i__),e_mug0(i__),rh(i__),e_rh(i__),gMAG(i__),e_gMAG(i__), + g_r(i__),e_g_r(i__),Ag(i__),Ar(i__),Set(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end