Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/860/37 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 2026-May-18
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/860/37 Stellar specific angular momentum & mass relation (Sweet+, 2018)
*================================================================================
*Revisiting the stellar mass-angular momentum-morphology relation: extension to
*higher bulge fraction and the effect of bulge type.
* Sweet S.M., Fisher D., Glazebrook K., Obreschkow D., Lagos C., Wang L.
* <Astrophys. J., 860, 37 (2018)>
* =2018ApJ...860...37S
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Properties of galaxies presented in this paper
integer*4 nr__
parameter (nr__=91) ! Number of records
character*74 ar__ ! Full-size record
character*13 ID ! Galaxy identifier
character*6 Survey ! Survey identifier (1)
character*4 TType ! Galaxy Hubble type
real*4 logM_ ! ([Msun]) [8.9/11.4] log stellar mass
real*4 e_logM_ ! ([-]) [0.1/0.2] Fractional uncertainty in logM*
real*4 Beta ! [0/0.8] Bulge-to-total ratio
real*4 e_Beta ! [0.05/0.1] Uncertainty in Beta
real*4 rd ! (kpc) [0.5/7] Scale length
real*4 rflat ! (kpc) [0.2/11]? Radius where rotation curve
* becomes flat
integer*4 vflat ! (km/s) [36/394] Asymptotic velocity
integer*4 j_ ! (kpc.km/s) [79/5161] Stellar specific angular momentum
integer*4 e_j_ ! (kpc.km/s) [11/1123] Uncertainty in j*
real*4 nbulge ! [0/6.2]? Bulge Sersic index
*Note (1): Survey as follows:
* CALIFA = Calar Alto Legacy Integral Field Area Survey --
* Sanchez+ 2012A&A...538A...8S, 2016, J/A+A/594/A36 ;
* Husemann+ 2013A&A...549A..87H and Walcher+ 2014A&A...569A...1W
* -- 50 occurrences
* RF12 = Romanowsky & Fall 2012ApJS..203...17R -- 25 occurrences
* THINGS = The HI Nearby Galaxy Survey -- Leroy+ 2008, J/AJ/136/2782 ;
* Walter+ 2008, J/AJ/136/2563 -- 16 occurrences
C=============================================================================
C Loading file 'table1.dat' ! Properties of galaxies presented in this paper
C Format for file interpretation
1 format(
+ A13,1X,A6,1X,A4,1X,F5.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F3.1,1X,
+ F4.1,1X,I3,1X,I4,1X,I4,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,91
read(1,'(A74)')ar__
read(ar__,1)
+ ID,Survey,TType,logM_,e_logM_,Beta,e_Beta,rd,rflat,vflat,j_,
+ e_j_,nbulge
if(ar__(52:55) .EQ. '') rflat = rNULL__
if(ar__(71:74) .EQ. '') nbulge = rNULL__
c ..............Just test output...........
write(6,1)
+ ID,Survey,TType,logM_,e_logM_,Beta,e_Beta,rd,rflat,vflat,j_,
+ e_j_,nbulge
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end