Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/430/911 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/A+A/430/911 Expansive components in HII regions (Relano+, 2005)
*================================================================================
*Expansive components in HII regions.
* Relano M., Beckman J.E.
* <Astron. Astrophys., 430, 911-926 (2005)>
* =2005A&A...430..911R
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'tables.dat' ! Parameters of the wing features of the selected line
profile that best defines the wing components from
the set of spectra taken with different apertures
for each region in NGC 1530 NGC 6951 and NGC 3359.
integer*4 nr__
parameter (nr__=56) ! Number of records
character*79 ar__ ! Full-size record
character*12 v_RBZ2005_ ! Region number from the catalogue of Relano et
* al. (2005A&A...431..235R), NGC NNNN NNN
character*1 n__RBZ2005_ ! [*] indicates a note in notes.dat file
real*4 logLHa ! ([10-7W]) logarithmic luminosity taken from the
* catalogue (2005A&A...431..235R)
integer*4 Apr1 ! (pc) Aperture of the selected line profile (2)
integer*4 Apr2 ! (pc) Aperture of the selected line profile (2)
real*4 S_N ! Mean S/N of both wing components
real*4 EMt ! (%) Emission measure of the red wing component as
* a fraction of the total EM of the region
real*4 e_EMt ! (%) ?=- rms uncertainty on EMt (3)
real*4 EMb ! (%) Emission measure of the blue wing component
* as a fraction of the total EM of the region
real*4 e_EMb ! (%) ?=- rms uncertainty on EMb (3)
real*4 DVt ! (km/s) Velocity separation between the central peak
* and the red wing component
real*4 e_DVt ! (km/s) ?=- rms uncertainty on DVt (4)
real*4 DVb ! (km/s) Velocity separation between the central peak
* and the blue wing component
real*4 e_DVb ! (km/s) ?=- rms uncertainty on DVb (4)
*Note (2): For NGC 1530, the pixel size is 0.29", which gives a pixel scale of
* 51.4 pc/pix at a galaxy distance of 36.6Mpc (NGC, <VII/118>).
* For NGC 6951, for a pixel size of 0.58" the pixel scale is
* 67.8pc/pix at a distance galaxy of 24.1 Mpc (NGC, <VII/118>)
* For NGC 3359, for a pixel size of 0.56" the pixel scale is
* 36.4pc/pix at a galaxy distance of 13.4 Mpc (RC3, <VII/155>).
*Note (3): Standard deviation of the fractional emission measures of the
* Gaussian components fitted to the set of line profiles with
* different apertures taken for each region.
*Note (4): Standard deviation of the velocity separation for the set of line
* profiles with different apertures extracted for each region.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'notes.dat' ! Individual notes
integer*4 nr__1
parameter (nr__1=40) ! Number of records
character*80 ar__1 ! Full-size record
character*12 v_RBZ2005__1 ! Region designation
character*67 Note ! Text of the note
C=============================================================================
C Loading file 'tables.dat' ! Parameters of the wing features of the selected line
* profile that best defines the wing components from
* the set of spectra taken with different apertures
* for each region in NGC 1530 NGC 6951 and NGC 3359.
C Format for file interpretation
1 format(
+ A12,A1,1X,F5.2,1X,I3,1X,I3,1X,F5.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,
+ F4.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2)
C Effective file loading
open(unit=1,status='old',file=
+'tables.dat')
write(6,*) '....Loading file: tables.dat'
do i__=1,56
read(1,'(A79)')ar__
read(ar__,1)
+ v_RBZ2005_,n__RBZ2005_,logLHa,Apr1,Apr2,S_N,EMt,e_EMt,EMb,
+ e_EMb,DVt,e_DVt,DVb,e_DVb
if (idig(ar__(41:44)).EQ.0) e_EMt = rNULL__
if (idig(ar__(52:55)).EQ.0) e_EMb = rNULL__
if (idig(ar__(63:67)).EQ.0) e_DVt = rNULL__
if (idig(ar__(75:79)).EQ.0) e_DVb = rNULL__
c ..............Just test output...........
write(6,1)
+ v_RBZ2005_,n__RBZ2005_,logLHa,Apr1,Apr2,S_N,EMt,e_EMt,EMb,
+ e_EMb,DVt,e_DVt,DVb,e_DVb
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'notes.dat' ! Individual notes
C Format for file interpretation
2 format(A12,1X,A67)
C Effective file loading
open(unit=1,status='old',file=
+'notes.dat')
write(6,*) '....Loading file: notes.dat'
do i__=1,40
read(1,'(A80)')ar__1
read(ar__1,2)v_RBZ2005__1,Note
c ..............Just test output...........
write(6,2)v_RBZ2005__1,Note
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end
C Locate position of first digit in string; or return 0
integer function idig(c)
character*(*) c
character*1 c1
integer lc,i
lc=len(c)
idig=0
do i=1,lc
if(c(i:i).ne.' ') go to 1
end do
1 if(i.gt.lc) return
c1=c(i:i)
if(c1.eq.'.'.or.c1.eq.'-'.or.c1.eq.'+') i=i+1
if(i.gt.lc) return
c1=c(i:i)
if(c1.ge.'0'.and.c1.le.'9') idig=i
return
end