Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/124/3157 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-20
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/AJ/124/3157 Velocities in NGC 4449 (Valdez-Gutierrez+, 2002)
*================================================================================
*Unveiling the kinematics and dynamics of ionized gas in the
*nearby irregular galaxy NGC 4449.
* Valdez-Gutierrez M., Rosado M., Puerari I., Georgiev L., Borissova J.,
* Ambrocio-Cruz P.
* <Astron. J. 124, 3157 (2002)>
* =2002AJ....124.3157V
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Photometry for the H II regions in NGC 4449
integer*4 nr__
parameter (nr__=101) ! Number of records
character*60 ar__ ! Full-size record
character*4 v_VRP2002b_ ! Source identification in this work
* [VRP2002b] M1-M101 in Simbad
character*20 OID ! Other source identifications, separated by
* coma (G1)
character*3 VNN ! VNN number as in table4.dat
character*3 VNN2 ! Second VNN number
real*4 Diam ! (pc) Equivalent diameter (2)
real*4 log_FHa ! ([mW/m2]) Log of the H{alpha} flux in erg/cm^2^/s
real*4 log_LHa ! ([10-7W]) Log of the H{alpha} luminosity in erg/s
real*4 log_SBHa ! ([mW/m2/sr]) Log of the H{alpha} surface brightness in
* erg/cm^2^/s/steradian
*Note (2): Defined in terms of the area (A) where the photometry is performed:
* A={pi}(D/2)^2^.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! Measured kinematical parameters for the
H II regions in NGC 4449
integer*4 nr__1
parameter (nr__1=84) ! Number of records
character*78 ar__1 ! Full-size record
character*3 VNN_1 ! Source identification in this work (V1 to V84)
* [VRP2002b] VNN in Simbad
character*23 OID_1 ! Other source identifications (G1) (1)
integer*4 Vel1 ! (km/s) First peak Gaussian velocity
real*4 Vel2 ! (km/s) ? Second peak Gaussian velocity
real*4 Sigma1 ! (km/s) First velocity dispersion (2)
real*4 Sigma2 ! (km/s) ? Second velocity dispersion
character*3 NumL ! Hill et al. (1998ApJ...507..179H)
* large aperture star number (3)
integer*4 NumS ! ? Hill et al. (1998ApJ...507..179H)
* small aperture star number (3)
character*20 Com ! Comments (4)
*Note (1): Some relatively isolated H II regions or H II regions being
* part of a complex, had low S/N ratios and consequently the
* determinations of peak velocity and velocity dispersion were
* uncertain. Such cases are marked with a ``u''.
*Note (2): From fitting a Gaussian to the radial velocity profiles.
*Note (3): A blank space means that there is no indication of a young
* stellar population in Hill's data, or that some of our regions were
* not covered by their observations.
*Note (4): Comments:
* a = asymmetric profile; s = symmetric profile.
C=============================================================================
C Loading file 'table3.dat' ! Photometry for the H II regions in NGC 4449
C Format for file interpretation
1 format(A4,1X,A20,1X,A3,1X,A3,2X,F5.1,1X,F6.2,1X,F5.2,1X,F5.2)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,101
read(1,'(A60)')ar__
read(ar__,1)
+ v_VRP2002b_,OID,VNN,VNN2,Diam,log_FHa,log_LHa,log_SBHa
c ..............Just test output...........
write(6,1)
+ v_VRP2002b_,OID,VNN,VNN2,Diam,log_FHa,log_LHa,log_SBHa
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4.dat' ! Measured kinematical parameters for the
* H II regions in NGC 4449
C Format for file interpretation
2 format(
+ A3,1X,A23,1X,I3,1X,F5.1,1X,F4.1,1X,F4.1,1X,A3,1X,I2,3X,A20)
C Effective file loading
open(unit=1,status='old',file=
+'table4.dat')
write(6,*) '....Loading file: table4.dat'
do i__=1,84
read(1,'(A78)')ar__1
read(ar__1,2)VNN_1,OID_1,Vel1,Vel2,Sigma1,Sigma2,NumL,NumS,Com
if(ar__1(33:37) .EQ. '') Vel2 = rNULL__
if(ar__1(44:47) .EQ. '') Sigma2 = rNULL__
if(ar__1(53:54) .EQ. '') NumS = iNULL__
c ..............Just test output...........
write(6,2)VNN_1,OID_1,Vel1,Vel2,Sigma1,Sigma2,NumL,NumS,Com
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end