Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/636/721 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-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/ApJ/636/721 Galaxy rotation curves (Brownstein+, 2006)
*================================================================================
*Galaxy rotation curves without nonbaryonic dark matter.
* Brownstein J.R., Moffat J.W.
* <Astrophys. J., 636, 721-741 (2006)>
* =2006ApJ...636..721B
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Galaxy properties of the complete sample
integer*4 nr__
parameter (nr__=101) ! Number of records
character*73 ar__ ! Full-size record
character*9 Name ! Galaxy name
character*5 MType ! Morphology type
character*3 SBType ! Surface brightness type (1)
real*4 BLum ! (10+10solLum) ? The B band luminosity (2)
real*4 KLum ! (10+10solLum) ? The K band luminosity (3)
real*4 Rout ! (kpc) Outermost observed radial position
real*4 Vout ! (km/s) Observed velocity at Rout
real*4 e_Vout ! (km/s) ? Uncertainty (or lower limit) in Vout
real*4 E_Vout_1 ! (km/s) ? Upper uncertainty limit in Vout
character*1 f_Vout ! [a] Flag on Vout (4)
real*4 Dist ! (Mpc) ? Distance (5)
real*8 z ! ? NED redshift
integer*4 Ref ! Primary original reference (6)
*Note (1): Surface brightness type:
* LSB = central surface brightness is low ({mu}_0_{>~}23mag/arcsec^2^);
* HSB = central surface brightness is otherwise high.
*Note (2): Taken from the original references except for Sofue
* (1996ApJ...458..120S) and Romanowsky et al. (2003Sci...301.1696R)
* which are taken from Tully (1988, Cat. <VII/145>).
*Note (3): Converted from the 2MASS K-band apparent magnitude except for the
* Schombert F-type galaxies, which are taken from the original
* reference.
*Note (4): A "a" indicates error bars were not part of the available high
* resolution rotation curve data for this galaxy.
*Note (5): Adopted from the original references.
*Note (6): References, defined as follows:
* 1 = Begeman, Broeils & Sanders (1991MNRAS.249..523B);
* 2 = Sanders (1996ApJ...473..117S);
* 3 = de Blok & McGaugh (1998ApJ...469L..89D);
* 4 = Verheijen & Sancisi (2001, Cat. <J/A+A/370/765>);
* 5 = Sofue (1996ApJ...458..120S);
* 6 = Romanowsky (2003Sci...301.1696R).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Parametric rotation curve fit results
integer*4 nr__1
parameter (nr__1=101) ! Number of records
character*104 ar__1 ! Full-size record
character*28 Group ! Galaxy grouping
character*9 Name_1 ! Galaxy name
character*1 f_Name ! [a] Flag on Name (1)
real*4 M_MSTG ! (10+10solMass) MSTG predicted total galactic mass (2)
real*4 e_M_MSTG ! (10+10solMass) Uncertainty in M(MSTG)
real*4 R_MSTG ! (kpc) MSTG predicted core radius (2)
real*4 e_R_MSTG ! (kpc) Uncertainty in R(MSTG)
real*4 V_MSTG ! (km/s) MSTG predicted flat rotation velocity (2)
real*4 e_V_MSTG ! (km/s) Uncertainty in V(MSTG)
real*4 M_MOND ! (10+10solMass) MOND predicted galactic mass (3)
real*4 e_M_MOND ! (10+10solMass) Uncertainty in M(MOND)
real*4 R_MOND ! (kpc) MOND predicted core radius (3)
real*4 e_R_MOND ! (kpc) Uncertainty in R(MOND)
real*4 V_MOND ! (km/s) MOND predicted asymptotic velocity (3)
real*4 e_V_MOND ! (km/s) Uncertainty in V(MOND)
*Note (1): A "a" indicates a MOND best fit was not possible due to
* <M/L>_stars_<0. The MOND fit shown for DDO154 neglects M_disk_,
* where as all the data was used for the MSTG result.
*Note (2): The metric-skew-tensor gravity (MSTG) is a generalization of
* Einstein's general relativity, based on a pseudo-Riemannian metric
* tensor and a skew-symmetric rank three tensor field
* F_{mu}{nu}{lambda}_.
*Note (3): MOND stands for Milgrom's modified Newtonian dynamics model.
C=============================================================================
C Loading file 'table1.dat' ! Galaxy properties of the complete sample
C Format for file interpretation
1 format(
+ A9,1X,A5,1X,A3,1X,F6.3,1X,F6.3,1X,F4.1,1X,F5.1,1X,F4.1,1X,
+ F4.1,1X,A1,1X,F4.1,1X,F9.6,1X,I1)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,101
read(1,'(A73)')ar__
read(ar__,1)
+ Name,MType,SBType,BLum,KLum,Rout,Vout,e_Vout,E_Vout_1,f_Vout,
+ Dist,z,Ref
if(ar__(21:26) .EQ. '') BLum = rNULL__
if(ar__(28:33) .EQ. '') KLum = rNULL__
if(ar__(46:49) .EQ. '') e_Vout = rNULL__
if(ar__(51:54) .EQ. '') E_Vout_1 = rNULL__
if(ar__(58:61) .EQ. '') Dist = rNULL__
if(ar__(63:71) .EQ. '') z = rNULL__
c ..............Just test output...........
write(6,1)
+ Name,MType,SBType,BLum,KLum,Rout,Vout,e_Vout,E_Vout_1,f_Vout,
+ Dist,z,Ref
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! Parametric rotation curve fit results
C Format for file interpretation
2 format(
+ A28,1X,A9,1X,A1,1X,F5.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F5.1,1X,
+ F4.1,1X,F5.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F5.1,1X,F4.1)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,101
read(1,'(A104)')ar__1
read(ar__1,2)
+ Group,Name_1,f_Name,M_MSTG,e_M_MSTG,R_MSTG,e_R_MSTG,V_MSTG,
+ e_V_MSTG,M_MOND,e_M_MOND,R_MOND,e_R_MOND,V_MOND,e_V_MOND
c ..............Just test output...........
write(6,2)
+ Group,Name_1,f_Name,M_MSTG,e_M_MSTG,R_MSTG,e_R_MSTG,V_MSTG,
+ e_V_MSTG,M_MOND,e_M_MOND,R_MOND,e_R_MOND,V_MOND,e_V_MOND
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end