Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/116/2246 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/116/2246 HII regions in UGCA 86, 92, 105 and UGC 4115 (Kingsburgh+, 1998)
*================================================================================
*Automatic determination of unbiased luminosity functions for H II regions.
*II. Four nearby dwarf galaxies.
* Kingsburgh R.L., McCall M.L.
* <Astron. J. 116, 2246 (1998)>
* =1998AJ....116.2246K (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! HII regions in UGCA 86
integer*4 nr__
parameter (nr__=65) ! Number of records
character*59 ar__ ! Full-size record
character*8 Galaxy ! Galaxy name
integer*4 v_KM98_ ! HII region number in the galaxy (1)
integer*4 v_HM95_ ! ? Hodge & Miller (1995ApJ...451..176H) number
integer*4 v_HM95_2 ! ? Second Hodge & Miller (1995ApJ...451..176H)
* number
real*4 oRA ! (arcsec) Offset east from reference star (2)
real*4 oDE ! (arcsec) Offset north from reference star (2)
real*4 RadiusPPP ! (arcsec) ? Radius of circle covering same area as
* HII region from PPP (3)
real*4 logFluxPPP ! ? logarithm of total PPP flux relative to
* PPP values for HII reference region (3)
real*4 RadiusFTP ! (arcsec) ? Radius of circle covering same area as
* HII region from FTP (3)
real*4 logFluxFTP ! ? logarithm of total FTP flux relative to
* PPP values for HII reference region (3)
*Note (1): [KM98] UGCA NNNN NN in Simbad
*Note (2): UGCA 86: reference star: GSC 4076-0876
* UGCA 92: reference star: GSC 4069-1252 (see "History" section)
* UGCA 105: reference star: GSC 4084-2331 (see "History" section)
* UGC 4115: reference star: GSC 0792-0287 (see "History" section)
*Note (3): PPP: percentage-of-peak photometry
* FTP: fixed-threshold photometry
* UGCA 86: reference region: UGCA 86 61
* UGCA 92: reference region: UGCA 92 15
* UGCA 105: reference region: UGCA 105 16
* UGC 4115: reference region: UGC 4115 14
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! HII regions in UGCA 92
integer*4 nr__1
parameter (nr__1=16) ! Number of records
character*59 ar__1 ! Full-size record
character*8 Galaxy_1 ! Galaxy name
integer*4 v_KM98__1 ! HII region number in the galaxy (1)
integer*4 v_HM95__1 ! ? Hodge & Miller (1995ApJ...451..176H) number
integer*4 v_HM95_2_1 ! ? Second Hodge & Miller (1995ApJ...451..176H)
* number
real*4 oRA_1 ! (arcsec) Offset east from reference star (2)
real*4 oDE_1 ! (arcsec) Offset north from reference star (2)
real*4 RadiusPPP_1 ! (arcsec) ? Radius of circle covering same area as
* HII region from PPP (3)
real*4 logFluxPPP_1 ! ? logarithm of total PPP flux relative to
* PPP values for HII reference region (3)
real*4 RadiusFTP_1 ! (arcsec) ? Radius of circle covering same area as
* HII region from FTP (3)
real*4 logFluxFTP_1 ! ? logarithm of total FTP flux relative to
* PPP values for HII reference region (3)
*Note (1): [KM98] UGCA NNNN NN in Simbad
*Note (2): UGCA 86: reference star: GSC 4076-0876
* UGCA 92: reference star: GSC 4069-1252 (see "History" section)
* UGCA 105: reference star: GSC 4084-2331 (see "History" section)
* UGC 4115: reference star: GSC 0792-0287 (see "History" section)
*Note (3): PPP: percentage-of-peak photometry
* FTP: fixed-threshold photometry
* UGCA 86: reference region: UGCA 86 61
* UGCA 92: reference region: UGCA 92 15
* UGCA 105: reference region: UGCA 105 16
* UGC 4115: reference region: UGC 4115 14
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table5.dat' ! HII regions in UGCA 105
integer*4 nr__2
parameter (nr__2=85) ! Number of records
character*59 ar__2 ! Full-size record
character*8 Galaxy_2 ! Galaxy name
integer*4 v_KM98__2 ! HII region number in the galaxy (1)
integer*4 v_HM95__2 ! ? Hodge & Miller (1995ApJ...451..176H) number
integer*4 v_HM95_2_2 ! ? Second Hodge & Miller (1995ApJ...451..176H)
* number
real*4 oRA_2 ! (arcsec) Offset east from reference star (2)
real*4 oDE_2 ! (arcsec) Offset north from reference star (2)
real*4 RadiusPPP_2 ! (arcsec) ? Radius of circle covering same area as
* HII region from PPP (3)
real*4 logFluxPPP_2 ! ? logarithm of total PPP flux relative to
* PPP values for HII reference region (3)
real*4 RadiusFTP_2 ! (arcsec) ? Radius of circle covering same area as
* HII region from FTP (3)
real*4 logFluxFTP_2 ! ? logarithm of total FTP flux relative to
* PPP values for HII reference region (3)
*Note (1): [KM98] UGCA NNNN NN in Simbad
*Note (2): UGCA 86: reference star: GSC 4076-0876
* UGCA 92: reference star: GSC 4069-1252 (see "History" section)
* UGCA 105: reference star: GSC 4084-2331 (see "History" section)
* UGC 4115: reference star: GSC 0792-0287 (see "History" section)
*Note (3): PPP: percentage-of-peak photometry
* FTP: fixed-threshold photometry
* UGCA 86: reference region: UGCA 86 61
* UGCA 92: reference region: UGCA 92 15
* UGCA 105: reference region: UGCA 105 16
* UGC 4115: reference region: UGC 4115 14
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table6.dat' ! HII regions in UGC 4115
integer*4 nr__3
parameter (nr__3=17) ! Number of records
character*59 ar__3 ! Full-size record
character*8 Galaxy_3 ! Galaxy name
integer*4 v_KM98__3 ! HII region number in the galaxy (1)
integer*4 v_HM95__3 ! ? Hodge & Miller (1995ApJ...451..176H) number
integer*4 v_HM95_2_3 ! ? Second Hodge & Miller (1995ApJ...451..176H)
* number
real*4 oRA_3 ! (arcsec) Offset east from reference star (2)
real*4 oDE_3 ! (arcsec) Offset north from reference star (2)
real*4 RadiusPPP_3 ! (arcsec) ? Radius of circle covering same area as
* HII region from PPP (3)
real*4 logFluxPPP_3 ! ? logarithm of total PPP flux relative to
* PPP values for HII reference region (3)
real*4 RadiusFTP_3 ! (arcsec) ? Radius of circle covering same area as
* HII region from FTP (3)
real*4 logFluxFTP_3 ! ? logarithm of total FTP flux relative to
* PPP values for HII reference region (3)
*Note (1): [KM98] UGCA NNNN NN in Simbad
*Note (2): UGCA 86: reference star: GSC 4076-0876
* UGCA 92: reference star: GSC 4069-1252 (see "History" section)
* UGCA 105: reference star: GSC 4084-2331 (see "History" section)
* UGC 4115: reference star: GSC 0792-0287 (see "History" section)
*Note (3): PPP: percentage-of-peak photometry
* FTP: fixed-threshold photometry
* UGCA 86: reference region: UGCA 86 61
* UGCA 92: reference region: UGCA 92 15
* UGCA 105: reference region: UGCA 105 16
* UGC 4115: reference region: UGC 4115 14
C=============================================================================
C Loading file 'table3.dat' ! HII regions in UGCA 86
C Format for file interpretation
1 format(
+ A8,2X,I2,1X,I3,1X,I2,2X,F6.1,1X,F6.1,1X,F3.1,1X,F5.2,1X,F4.1,
+ 1X,F5.2)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,65
read(1,'(A59)')ar__
read(ar__,1)
+ Galaxy,v_KM98_,v_HM95_,v_HM95_2,oRA,oDE,RadiusPPP,logFluxPPP,
+ RadiusFTP,logFluxFTP
if(ar__(14:16) .EQ. '') v_HM95_ = iNULL__
if(ar__(18:19) .EQ. '') v_HM95_2 = iNULL__
if(ar__(36:38) .EQ. '') RadiusPPP = rNULL__
if(ar__(40:44) .EQ. '') logFluxPPP = rNULL__
if(ar__(46:49) .EQ. '') RadiusFTP = rNULL__
if(ar__(51:55) .EQ. '') logFluxFTP = rNULL__
c ..............Just test output...........
write(6,1)
+ Galaxy,v_KM98_,v_HM95_,v_HM95_2,oRA,oDE,RadiusPPP,logFluxPPP,
+ RadiusFTP,logFluxFTP
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4.dat' ! HII regions in UGCA 92
C Format for file interpretation
2 format(
+ A8,2X,I2,1X,I3,1X,I2,2X,F6.1,1X,F6.1,1X,F3.1,1X,F5.2,1X,F4.1,
+ 1X,F5.2)
C Effective file loading
open(unit=1,status='old',file=
+'table4.dat')
write(6,*) '....Loading file: table4.dat'
do i__=1,16
read(1,'(A59)')ar__1
read(ar__1,2)
+ Galaxy_1,v_KM98__1,v_HM95__1,v_HM95_2_1,oRA_1,oDE_1,
+ RadiusPPP_1,logFluxPPP_1,RadiusFTP_1,logFluxFTP_1
if(ar__1(14:16) .EQ. '') v_HM95__1 = iNULL__
if(ar__1(18:19) .EQ. '') v_HM95_2_1 = iNULL__
if(ar__1(36:38) .EQ. '') RadiusPPP_1 = rNULL__
if(ar__1(40:44) .EQ. '') logFluxPPP_1 = rNULL__
if(ar__1(46:49) .EQ. '') RadiusFTP_1 = rNULL__
if(ar__1(51:55) .EQ. '') logFluxFTP_1 = rNULL__
c ..............Just test output...........
write(6,2)
+ Galaxy_1,v_KM98__1,v_HM95__1,v_HM95_2_1,oRA_1,oDE_1,
+ RadiusPPP_1,logFluxPPP_1,RadiusFTP_1,logFluxFTP_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table5.dat' ! HII regions in UGCA 105
C Format for file interpretation
3 format(
+ A8,2X,I2,1X,I3,1X,I2,2X,F6.1,1X,F6.1,1X,F3.1,1X,F5.2,1X,F4.1,
+ 1X,F5.2)
C Effective file loading
open(unit=1,status='old',file=
+'table5.dat')
write(6,*) '....Loading file: table5.dat'
do i__=1,85
read(1,'(A59)')ar__2
read(ar__2,3)
+ Galaxy_2,v_KM98__2,v_HM95__2,v_HM95_2_2,oRA_2,oDE_2,
+ RadiusPPP_2,logFluxPPP_2,RadiusFTP_2,logFluxFTP_2
if(ar__2(14:16) .EQ. '') v_HM95__2 = iNULL__
if(ar__2(18:19) .EQ. '') v_HM95_2_2 = iNULL__
if(ar__2(36:38) .EQ. '') RadiusPPP_2 = rNULL__
if(ar__2(40:44) .EQ. '') logFluxPPP_2 = rNULL__
if(ar__2(46:49) .EQ. '') RadiusFTP_2 = rNULL__
if(ar__2(51:55) .EQ. '') logFluxFTP_2 = rNULL__
c ..............Just test output...........
write(6,3)
+ Galaxy_2,v_KM98__2,v_HM95__2,v_HM95_2_2,oRA_2,oDE_2,
+ RadiusPPP_2,logFluxPPP_2,RadiusFTP_2,logFluxFTP_2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table6.dat' ! HII regions in UGC 4115
C Format for file interpretation
4 format(
+ A8,2X,I2,1X,I3,1X,I2,2X,F6.1,1X,F6.1,1X,F3.1,1X,F5.2,1X,F4.1,
+ 1X,F5.2)
C Effective file loading
open(unit=1,status='old',file=
+'table6.dat')
write(6,*) '....Loading file: table6.dat'
do i__=1,17
read(1,'(A59)')ar__3
read(ar__3,4)
+ Galaxy_3,v_KM98__3,v_HM95__3,v_HM95_2_3,oRA_3,oDE_3,
+ RadiusPPP_3,logFluxPPP_3,RadiusFTP_3,logFluxFTP_3
if(ar__3(14:16) .EQ. '') v_HM95__3 = iNULL__
if(ar__3(18:19) .EQ. '') v_HM95_2_3 = iNULL__
if(ar__3(36:38) .EQ. '') RadiusPPP_3 = rNULL__
if(ar__3(40:44) .EQ. '') logFluxPPP_3 = rNULL__
if(ar__3(46:49) .EQ. '') RadiusFTP_3 = rNULL__
if(ar__3(51:55) .EQ. '') logFluxFTP_3 = rNULL__
c ..............Just test output...........
write(6,4)
+ Galaxy_3,v_KM98__3,v_HM95__3,v_HM95_2_3,oRA_3,oDE_3,
+ RadiusPPP_3,logFluxPPP_3,RadiusFTP_3,logFluxFTP_3
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end