Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/608/A142 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-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/A+A/608/A142 Fornax Deep Survey with VST. III. LSB galaxies (Venhola+, 2017) *================================================================================ *The Fornax Deep Survey with VST. *III. Low surface brightness dwarfs and ultra diffuse galaxies in the center *of the Fornax cluster. * Venhola A., Peletier R., Laurikainen E., Salo H., Lisker T., Iodice E., * Capaccioli M., Kleijn G.V., Valentijn E., Mieske S., Hilker M., * Wittmann C., van de Ven G., Grado A., Spavone M., Cantiello M., * Napolitano N., Paolillo M., Falcon-Barroso J. * <Astron. Astrophys., 608, A142 (2017)> * =2017A&A...608A.142V (SIMBAD/NED BibCode) C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tabled1.dat' ! Parameters of the LSB galaxies in our sample integer*4 nr__ parameter (nr__=205) ! Number of records character*99 ar__ ! Full-size record C J2000 position composed of: RAdeg DEdeg character*11 Name ! Name of the object (FDSNN_LSBNN) character*1 n_Name ! [*] Note on Name (1) real*4 RAdeg ! (deg) Right ascension (J2000) real*8 DEdeg ! (deg) Declination (J2000) real*4 b_a ! Axial ratio real*4 e_b_a ! rms uncertainty on b/a real*4 theta ! (deg) Position angle (east of north) real*4 r_mag ! (mag) Sloan r' magnitude real*4 e_r_mag ! (mag) rms uncertainty on r'mag (2) real*4 Re ! (arcsec) Effective radius in r'-band real*4 e_Re ! (arcsec) rms uncertainty on Re (2) real*4 n ! Sersic index real*4 e_n ! rms uncertainty on n (2) real*4 g__r_ ! (mag) Sloan g'-r' colour index real*4 e_g__r_ ! (mag) rms uncertainty on g'-r' (2) character*6 FCC ! Possible FCC number (Cat. VII/180) character*5 Ref ! Identifications in earlier works (3) *Note (1): * indicates that it was fit using a additional PSF component for * the nucleus. *Note (2): The error estimations for each parameter are adopted from the tests * made with the mock galaxies in Sect. 5.4.2. *Note (3): References as follows: * a = Ferguson (1989AJ.....98..367F, Cat. VII/180) * b = Bothun et al. (1991ApJ...376..404B) * c = Munoz et al. (2015, Cat. J/ApJ/813/L15) * d = Mieske et al. (2007, Cat. J/A+A/463/503) C============================================================================= C Loading file 'tabled1.dat' ! Parameters of the LSB galaxies in our sample C Format for file interpretation 1 format( + A11,A1,1X,F6.3,1X,F7.3,1X,F4.2,1X,F4.2,1X,F6.2,1X,F5.2,1X, + F4.2,1X,F5.1,1X,F4.1,1X,F4.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,A6,1X, + A5) C Effective file loading open(unit=1,status='old',file= +'tabled1.dat') write(6,*) '....Loading file: tabled1.dat' do i__=1,205 read(1,'(A99)')ar__ read(ar__,1) + Name,n_Name,RAdeg,DEdeg,b_a,e_b_a,theta,r_mag,e_r_mag,Re,e_Re, + n,e_n,g__r_,e_g__r_,FCC,Ref c ..............Just test output........... write(6,1) + Name,n_Name,RAdeg,DEdeg,b_a,e_b_a,theta,r_mag,e_r_mag,Re,e_Re, + n,e_n,g__r_,e_g__r_,FCC,Ref c .......End.of.Just test output........... end do close(1) C============================================================================= stop end