FORTRAN Generation
(/./ftp/cats/J/A_A/612/L6)

Conversion of standardized ReadMe file for file /./ftp/cats/J/A_A/612/L6 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/612/L6       j-M law from dwarf to massive spirals         (Posti+, 2018)
*================================================================================
*The angular momentum-mass relation: a fundamental law from dwarf irregulars to
*massive spirals.
*    Posti L., Fraternali F., di Teodoro E. M., Pezzulli G.
*    <Astron. Astrophys. 612, L6 (2018)>
*    =2018A&A...612L...6P        (SIMBAD/NED BibCode)
C=============================================================================

C  Internal variables

      integer*4 i__

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'table.dat'	! List of galaxy masses and specific angular momenta

      integer*4 nr__
      parameter (nr__=92)	! Number of records
      character*81 ar__   	! Full-size record

      character*12  Galaxy      ! Galaxy name (1)
      integer*4     T           ! Hubble type (1)
      integer*4     fD          ! [1/5] Distance method (2)
      real*4        Mstar       ! (Msun) Galaxy's stellar mass (3)
      real*4        Mdisc       ! (Msun) Disc's stellar mass (3)
      real*4        e_Mstar     ! (Msun) Uncertainty on the stellar masses (3)
      real*4        jstar       ! (kpc.km/s) Galaxy's specific angular momentum
      real*4        jdisc       ! (kpc.km/s) Disc's specific angular momentum
      real*4        e_jstar     ! (kpc.km/s) Uncertainty on the specific angular momenta
      real*4        jdiff       ! Relative difference between last 2 points of
*                                   jstar profile (4)
      real*4        jgrad       ! Gradient of jstar profile at last
*                                   grid point (4)
*Note (1): same convention as in Lelli, McGaugh & Schombert, 2016,
*  Cat. J/AJ/152/157
*Note (2): SPARC galaxies classification depending on the distance estimate
*  is defined as follows:
*  1 = Hubble-Flow assuming H0=73km/s/Mpc and correcting for Virgo-centric infall
*  2 = Magnitude of the tip of the red giant branch
*  3 = Cepheids magnitude-period relation
*  4 = Ursa Major cluster of galaxies
*  5 = Supernovae light curve
*Note (3): the following 3.6mu mass-to-light ratios have been used
*  M/L_bulge_=0.5,  M/L_disc_=0.7.
*Note (4): these two quantities define the quality of the measured specific
*  angular momentum profile and they are defined in Equation (2). Galaxies with
*  "converged" jstar(<R) profiles are those with jdiff_last_=jgrad_last_=0

C=============================================================================

C  Loading file 'table.dat'	! List of galaxy masses and specific angular momenta

C  Format for file interpretation

    1 format(
     +  A12,1X,I2,1X,I1,1X,E8.2,1X,E8.2,1X,E8.2,1X,E8.2,1X,E8.2,1X,
     +  E8.2,1X,F4.2,1X,F4.2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table.dat')
      write(6,*) '....Loading file: table.dat'
      do i__=1,92
        read(1,'(A81)')ar__
        read(ar__,1)
     +  Galaxy,T,fD,Mstar,Mdisc,e_Mstar,jstar,jdisc,e_jstar,jdiff,
     +  jgrad
c    ..............Just test output...........
        write(6,1)
     +  Galaxy,T,fD,Mstar,Mdisc,e_Mstar,jstar,jdisc,e_jstar,jdiff,
     +  jgrad
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================
      stop
      end