Conversion of standardized ReadMe file for
file /./ftp/cats/J/MNRAS/460/1739 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-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/MNRAS/460/1739 Giant HII regions BOND abundances (Vale Asari+, 2016)
*================================================================================
*BOND: Bayesian Oxygen and Nitrogen abundance Determinations in giant H II
*regions using strong and semistrong lines.
* Vale Asari N., Stasinska G., Morisset C., Cid Fernandes R.
* <Mon. Not. R. Astron. Soc., 460, 1739-1757 (2016)>
* =2016MNRAS.460.1739V (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Giant HII regions and blue compact dwarves
emission lines
integer*4 nr__
parameter (nr__=708) ! Number of records
character*221 ar__ ! Full-size record
integer*4 Id ! [1/708] Sequnetial number
character*1 r_Id ! Reference for Id (1)
character*17 Name ! HII region name (NGC_NNNN_NNNN)
real*4 F3727 ! Line flux of [OII] 3737{AA}
* relative to H{beta}
real*4 e_F3727 ! rms uncertainty on F3727
real*4 F3869 ! ?=0 Line flux of [NeII] 3869{AA}
* relative to H{beta}
real*4 e_F3869 ! ?=0 rms uncertainty on F3869
real*4 F4363 ! ?=0 Line flux of [OIII] 4363{AA}
* relative to H{beta}
real*4 e_F4363 ! ?=0 rms uncertainty on F4363
real*4 F5007 ! Line flux of [OIII] 5007{AA}
* relative to H{beta}
real*4 e_F5007 ! rms uncertainty on F5007
real*4 F5755 ! ?=0 Line flux of [NII] 5755{AA}
* relative to H{beta}
real*4 e_F5755 ! ?=0 rms uncertainty on F5755
real*4 F5876 ! ?=0 Line flux of [HeI] 5876{AA}
* relative to H{beta}
real*4 e_F5876 ! ?=0 rms uncertainty on F5876
real*4 F6584 ! Line flux of [NII] 6584{AA}
* relative to H{beta}
real*4 e_F6584 ! rms uncertainty on F6584
real*4 F7135 ! ?=0 Line flux of [ArIII] 7153{AA}
* relative to H{beta}
real*4 e_F7135 ! ?=0 rms uncertainty on F7135
real*4 limF4363 ! ?=0 Upper limit of [OIII] 4363{AA} line flux
* relative to H{beta}
real*4 limF5755 ! ?=0 Upper limit of [NII] 5755{AA} line flux
* relative to H{beta}
*Note (1): References as follows:
* a = Bolin et al. (2005, Cat. J/A+A/441/981)
* b = Bresolin et al. (2004ApJ...615..228B)
* c = Kennicutt et al. (2003ApJ...591..801K)
* d = van Zee et al. (1998, Cat. J/AJ/116/2805)
* g = Bresolin et al. (2009ApJ...700..309B)
* i = Bresolin (2007ApJ...656..186B)
* j = Bresolin et al. (2010MNRAS.404.1679B)
* k = Li et al. (2013ApJ...766...17L)
* l = Zurita & Bresolin (2012MNRAS.427.1463Z)
* m = Bresolin et al. (2012ApJ...750..122B)
* n = Goddard et al. (2011MNRAS.412.1246G)
* p = Bresolin et al. (2009, Cat. J/ApJ/695/580)
* z = Izotov et al. (2007, Cat. J/ApJ/662/15)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! BOND results for sample B of Giant HII regions
and blue compact dwarves
integer*4 nr__1
parameter (nr__1=156) ! Number of records
character*168 ar__1 ! Full-size record
integer*4 Id_1 ! [1/708] Sequnetial number
real*4 logO_H_jmod ! ([-]) Maximun a posteriori logO/H
real*4 logN_O_jmod ! ([-]) Maximun a posteriori logN/O
real*4 logO_H_jc68cen ! ([-]) Centre term for logO/H
real*4 logO_H_jc68sig ! ([-]) 68% credibility ellipse error for logO/H
real*4 logN_O_jc68cen ! ([-]) Centre term for logN/O
real*4 logN_O_jc68sig ! ([-]) 68% credibility ellipse error for logN/O
real*4 jc68_cov ! ([-]) Covariance term used to construct the
* 68 per cent credibility ellipse
real*4 jc68_scale ! ([-]) Scaling used to construct the
* 68 per cent credibility ellipse
real*4 logO_H_mmed ! ([-]) Marginalized median value of logO/H
real*4 logN_O_mmed ! ([-]) Marginalized median value of logN/O
real*4 logO_H_mp68l ! ([-]) Lower value of 68% equal-tailed interval
* for logO/H
real*4 logO_H_mp68u ! ([-]) Upper value of 68% equal-tailed interval
* for logO/H
real*4 logN_O_mp68l ! ([-]) Lower value of 68% equal-tailed interval
* for logN/O
real*4 logN_O_mp68u ! ([-]) Upper value of 68% equal-tailed interval
* for logN/O
C=============================================================================
C Loading file 'table1.dat' ! Giant HII regions and blue compact dwarves
* emission lines
C Format for file interpretation
1 format(
+ I3,1X,A1,1X,A17,1X,E10.5,1X,E10.5,1X,E10.5,1X,E10.5,1X,E10.5,
+ 1X,E10.5,1X,E10.5,1X,E10.5,1X,E10.5,1X,E10.5,1X,E10.5,1X,
+ E10.5,1X,E10.5,1X,E10.5,1X,E10.5,1X,E10.5,1X,E10.5,1X,E10.5)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,708
read(1,'(A221)')ar__
read(ar__,1)
+ Id,r_Id,Name,F3727,e_F3727,F3869,e_F3869,F4363,e_F4363,F5007,
+ e_F5007,F5755,e_F5755,F5876,e_F5876,F6584,e_F6584,F7135,
+ e_F7135,limF4363,limF5755
c ..............Just test output...........
write(6,1)
+ Id,r_Id,Name,F3727,e_F3727,F3869,e_F3869,F4363,e_F4363,F5007,
+ e_F5007,F5755,e_F5755,F5876,e_F5876,F6584,e_F6584,F7135,
+ e_F7135,limF4363,limF5755
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! BOND results for sample B of Giant HII regions
* and blue compact dwarves
C Format for file interpretation
2 format(
+ I3,1X,E11.5,1X,E11.5,1X,E11.5,1X,E10.5,1X,E11.5,1X,E10.5,1X,
+ E11.5,1X,E10.5,1X,E11.5,1X,E11.5,1X,E11.5,1X,E11.5,1X,E11.5,
+ 1X,E11.5)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,156
read(1,'(A168)')ar__1
read(ar__1,2)
+ Id_1,logO_H_jmod,logN_O_jmod,logO_H_jc68cen,logO_H_jc68sig,
+ logN_O_jc68cen,logN_O_jc68sig,jc68_cov,jc68_scale,logO_H_mmed,
+ logN_O_mmed,logO_H_mp68l,logO_H_mp68u,logN_O_mp68l,
+ logN_O_mp68u
c ..............Just test output...........
write(6,2)
+ Id_1,logO_H_jmod,logN_O_jmod,logO_H_jc68cen,logO_H_jc68sig,
+ logN_O_jc68cen,logN_O_jc68sig,jc68_cov,jc68_scale,logO_H_mmed,
+ logN_O_mmed,logO_H_mp68l,logO_H_mp68u,logN_O_mp68l,
+ logN_O_mp68u
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end