Conversion of standardized ReadMe file for
file /./ftp/cats/J/AZh/94/1003 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-16
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/AZh/94/1003 Infrared morphology of HII regions (Topchieva+, 2017)
*================================================================================
*Infrared morphology of regions of ionized hydrogen.
* Topchieva A.P., Wiebe D.S., Kirsanova M.S., Krushinskii V.V.
* <Astron. Zh. 94, 1003 (2017)>
* =2017ARep...61.1015T
* =2017AZh....94.1003T (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Results of elliptical fits for the shapes of
objects in 8um images
integer*4 nr__
parameter (nr__=99) ! Number of records
character*59 ar__ ! Full-size record
C Position composed of: GLON GLAT
character*23 Name ! Object name
character*3 Ref ! Reference (1)
real*8 GLON ! (deg) ? Galactic longitude (2)
real*4 GLAT ! (deg) ? Galactic latitude (2)
integer*4 aaxis ! (arcsec) ? Semi-major axis (2)
integer*4 baxis ! (arcsec) ? Semi-minor axis (2)
real*4 e ! ? Eccentricity (2)
integer*4 PA ! (deg) ? Position angle (2)
*Note (1): Objects were taken from the following references:
* 1 = Becker et al., 1994 (J/ApJS/91/347), GPSR5 in Simbad
* 2 = Simpson et al., 2012, Cat. J/MNRAS/424/2442, [SPK2012] in Simbad
* 3 = Churchwell et al., 2006, Cat. J/ApJ/649/759, [CPA2006] in Simbad
* 4 = new objects
* 5 = Urquhart et al., 2009, Cat. J/A+A/507/795, [UHL2009] in Simbad
* 6 = Egan et al., MSX6C Infrared Point Source Catalog, Cat. V/114
*Note (2): No value when fitting is not possible for that object.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Results of elliptical fits for the shapes of
objects in 70um images
integer*4 nr__1
parameter (nr__1=99) ! Number of records
character*59 ar__1 ! Full-size record
C Position composed of: GLON GLAT
character*23 Name_1 ! Object name
character*3 Ref_1 ! Reference (1)
real*8 GLON_1 ! (deg) ? Galactic longitude (2)
real*4 GLAT_1 ! (deg) ? Galactic latitude (2)
integer*4 aaxis_1 ! (arcsec) ? Semi-major axis (2)
integer*4 baxis_1 ! (arcsec) ? Semi-minor axis (2)
real*4 e_1 ! ? Eccentricity (2)
integer*4 PA_1 ! (deg) ? Position angle (2)
*Note (1): Objects were taken from the following references:
* 1 = Becker et al., 1994 (J/ApJS/91/347), GPSR5 in Simbad
* 2 = Simpson et al., 2012, Cat. J/MNRAS/424/2442, [SPK2012] in Simbad
* 3 = Churchwell et al., 2006, Cat. J/ApJ/649/759, [CPA2006] in Simbad
* 4 = new objects
* 5 = Urquhart et al., 2009, Cat. J/A+A/507/795, [UHL2009] in Simbad
* 6 = Egan et al., MSX6C Infrared Point Source Catalog, Cat. V/114
*Note (2): No value when fitting is not possible for that object.
C=============================================================================
C Loading file 'table1.dat' ! Results of elliptical fits for the shapes of
* objects in 8um images
C Format for file interpretation
1 format(A23,1X,A3,1X,F7.3,1X,F6.3,1X,I3,1X,I3,1X,F4.2,1X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,99
read(1,'(A59)')ar__
read(ar__,1)Name,Ref,GLON,GLAT,aaxis,baxis,e,PA
if(ar__(29:35) .EQ. '') GLON = rNULL__
if(ar__(37:42) .EQ. '') GLAT = rNULL__
if(ar__(44:46) .EQ. '') aaxis = iNULL__
if(ar__(48:50) .EQ. '') baxis = iNULL__
if(ar__(52:55) .EQ. '') e = rNULL__
if(ar__(57:59) .EQ. '') PA = iNULL__
c ..............Just test output...........
write(6,1)Name,Ref,GLON,GLAT,aaxis,baxis,e,PA
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! Results of elliptical fits for the shapes of
* objects in 70um images
C Format for file interpretation
2 format(A23,1X,A3,1X,F7.3,1X,F6.3,1X,I3,1X,I3,1X,F4.2,1X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,99
read(1,'(A59)')ar__1
read(ar__1,2)
+ Name_1,Ref_1,GLON_1,GLAT_1,aaxis_1,baxis_1,e_1,PA_1
if(ar__1(29:35) .EQ. '') GLON_1 = rNULL__
if(ar__1(37:42) .EQ. '') GLAT_1 = rNULL__
if(ar__1(44:46) .EQ. '') aaxis_1 = iNULL__
if(ar__1(48:50) .EQ. '') baxis_1 = iNULL__
if(ar__1(52:55) .EQ. '') e_1 = rNULL__
if(ar__1(57:59) .EQ. '') PA_1 = iNULL__
c ..............Just test output...........
write(6,2)
+ Name_1,Ref_1,GLON_1,GLAT_1,aaxis_1,baxis_1,e_1,PA_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end