Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/296/643 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/A+A/296/643 Low Surface Brightness galaxies in Coma (Karachentsev+ 1995) *================================================================================ *A search for low surface brightness dwarf galaxies in the Coma cluster core * Karachentsev I.D., Karachentseva V.E., Richter G.M., Vennik J.A. * <Astron. Astrophys. 296, 643 (1995)> * =1995A&A...296..643K (SIMBAD/NED BibCode) C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1' ! Properties of galaxies in the central Coma field integer*4 nr__ parameter (nr__=121) ! Number of records character*46 ar__ ! Full-size record integer*4 ID (nr__) ! Galaxy identification number real*4 Vmag (nr__) ! (mag) Apparent total V magnitude real*4 Rmag (nr__) ! (mag) Apparent total R magnitude real*4 DiamV (nr__) ! (arcsec) Angular diameter measured on V frame real*4 DiamR (nr__) ! (arcsec) Angular diameter measured on R frame real*4 SBV (nr__) ! (mag/arcsec) Average surface brightness within DiamV real*4 SBR (nr__) ! (mag/arcsec) Average surface brightness within DiamR real*4 V_R (nr__) ! (mag) Total V-R color index character*2 Note (nr__) ! Notes (1) *Note (1): bn: binary image * df: diffuse object without a marked brightness gradient * st: star-like image c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2' ! Properties of galaxies in the reference field integer*4 nr__1 parameter (nr__1=104) ! Number of records character*46 ar__1 ! Full-size record integer*4 ID_1 (nr__1) ! Galaxy identification number real*4 Vmag_1 (nr__1) ! (mag) Apparent total V magnitude real*4 Rmag_1 (nr__1) ! (mag) Apparent total R magnitude real*4 DiamV_1 (nr__1) ! (arcsec) Angular diameter measured on V frame real*4 DiamR_1 (nr__1) ! (arcsec) Angular diameter measured on R frame real*4 SBV_1 (nr__1) ! (mag/arcsec) Average surface brightness within DiamV real*4 SBR_1 (nr__1) ! (mag/arcsec) Average surface brightness within DiamR real*4 V_R_1 (nr__1) ! (mag) Total V-R color index character*2 Note_1 (nr__1) ! Notes (1) *Note (1): bn: binary image * df: diffuse object without a marked brightness gradient * st: star-like image C============================================================================= C Loading file 'table1' ! Properties of galaxies in the central Coma field C Format for file interpretation 1 format( + I3,1X,F5.2,1X,F5.2,1X,F4.1,1X,F4.1,1X,F5.2,1X,F5.2,1X,F5.2,1X, + A2) C Effective file loading open(unit=1,status='old',file= +'table1') write(6,*) '....Loading file: table1' do i__=1,121 read(1,'(A46)')ar__ read(ar__,1) + ID(i__),Vmag(i__),Rmag(i__),DiamV(i__),DiamR(i__),SBV(i__), + SBR(i__),V_R(i__),Note(i__) c ..............Just test output........... write(6,1) + ID(i__),Vmag(i__),Rmag(i__),DiamV(i__),DiamR(i__),SBV(i__), + SBR(i__),V_R(i__),Note(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table2' ! Properties of galaxies in the reference field C Format for file interpretation 2 format( + I3,1X,F5.2,1X,F5.2,1X,F4.1,1X,F4.1,1X,F5.2,1X,F5.2,1X,F5.2,1X, + A2) C Effective file loading open(unit=1,status='old',file= +'table2') write(6,*) '....Loading file: table2' do i__=1,104 read(1,'(A46)')ar__1 read(ar__1,2) + ID_1(i__),Vmag_1(i__),Rmag_1(i__),DiamV_1(i__),DiamR_1(i__), + SBV_1(i__),SBR_1(i__),V_R_1(i__),Note_1(i__) c ..............Just test output........... write(6,2) + ID_1(i__),Vmag_1(i__),Rmag_1(i__),DiamV_1(i__),DiamR_1(i__), + SBV_1(i__),SBR_1(i__),V_R_1(i__),Note_1(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end