Conversion of standardized ReadMe file for
file /./ftp/cats/III/203 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. III/203 Emission Lines of the Planetary Nebulae (Kondrat'eva, 1979-1985)
*================================================================================
*Relative Intensities of the emission lines of the planetary nebulae
* Kondratyeva L.N.
* <Astrofizika, 22, 153 (1985)>
* =1985Afz....22..153K
* <Astron. Zh. 56, 345 (1979)>
* =1979AZh....56..345K
* =1979SvA....23..193K
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table.dat' ! Relative intensities of emission lines
integer*4 nr__
parameter (nr__=38) ! Number of records
character*450 ar__ ! Full-size record
character*8 PK ! *Perek-Kohoutek Name of planetary nebulae
character*7 Name ! *Other name
real*4 A ! (mag) Interstellar extinction at H(beta)
real*4 v3727_3729 ! ?=99.9 Intensity at (3727+3729)A [O II] (3)
character*1 n_3727_3729 ! ? Note about accuracy (2)
real*4 v3869 ! ?=99.9 Intensity at 3869A [Ne III] (3)
character*1 n_3869 ! ? Note about accuracy (2)
character*1 l_3889 ! ? Limit flag on an intensity at 3889A
real*4 v3889 ! ?=99.9 Intensity at 3889A H I (3)
character*1 n_3889 ! ? Note about accuracy (2)
real*4 v3970 ! ?=99.9 Intensity at 3970A [Ne III] (3)
character*1 n_3970 ! ? Note about accuracy (2)
character*1 l_4026 ! ? Limit flag on an intensity at 4026A
real*4 v4026 ! ?=99.9 Intensity at 4026A He I (3)
character*1 n_4026 ! ? Note about accuracy (2)
character*1 l_4068 ! ? Limit flag on an intensity at 4068A
real*4 v4068 ! ?=99.9 Intensity at 4068A [S II] (3)
character*1 n_4068 ! ? Note about accuracy (2)
character*1 l_4076 ! ? Limit flag on an intensity at 4076A
real*4 v4076 ! ?=99.9 Intensity at 4076A [S II] (3)
character*1 n_4076 ! ? Note about accuracy (2)
real*4 v4101 ! ?=99.9 Intensity at 4101A H{delta} (3)
character*1 n_4101 ! ? Note about accuracy (2)
character*1 l_4200 ! ? Limit flag on an intensity at 4200A
real*4 v4200 ! ?=99.9 Intensity at 4200A He I (3)
character*1 n_4200 ! ? Note about accuracy (2)
character*1 l_4267 ! ? Limit flag on an intensity at 4267A
real*4 v4267 ! ?=99.9 Intensity at 4267A C II (3)
character*1 n_4267 ! ? Note about accuracy (2)
real*4 v4340 ! ?=99.9 Intensity at 4340A H{gamma} (3)
character*1 n_4340 ! ? Note about accuracy (2)
character*1 l_4363 ! ? Limit flag on an intensity at 4363A
real*4 v4363 ! ?=99.9 Intensity at 4363A [O III] (3)
character*1 n_4363 ! ? Note about accuracy (2)
real*4 v4471 ! ?=99.9 Intensity at 4471A HeI (3)
character*1 n_4471 ! ? Note about accuracy (2)
character*1 l_4541 ! ? Limit flag on an intensity at 4541A
real*4 v4541 ! ?=99.9 Intensity at 4541A HeII (3)
character*1 n_4541 ! ? Note about accuracy (2)
character*1 l_4634 ! ? Limit flag on an intensity at 4634A
real*4 v4634 ! ?=99.9 Intensity at 4634A [N III] (3)
character*1 n_4634 ! ? Note about accuracy (2)
character*1 l_4641 ! ? Limit flag on an intensity at 4641A
real*4 v4641 ! ?=99.9 Intensity at 4641A [N III] (3)
character*1 n_4641 ! ? Note about accuracy (2)
character*1 l_4647 ! ? Limit flag on an intensity at 4647A
real*4 v4647 ! ?=99.9 Intensity at 4647A C III (3)
character*1 n_4647 ! ? Note about accuracy (2)
character*1 l_4658 ! ? Limit flag on an intensity at 4658A
real*4 v4658 ! ?=99.9 Intensity at 4658A C IV (3)
character*1 n_4658 ! ? Note about accuracy (2)
real*4 v4686 ! ?=99.9 Intensity at 4686A HeII (3)
character*1 n_4686 ! ? Note about accuracy (2)
real*4 v4711 ! ?=99.9 Intensity at 4711A (HeI)[AIV] (3)
character*1 n_4711 ! ? Note about accuracy (2)
character*1 l_4740 ! ? Limit flag on an intensity at 4740A
real*4 v4740 ! ?=99.9 Intensity at 4740A [Ar IV] (3)
character*1 n_4740 ! ? Note about accuracy (2)
integer*4 v4861 ! ?=99.9 Intensity at 4861A H{beta} (3)
character*1 l_4922 ! ? Limit flag on an intensity at 4922A
real*4 v4922 ! ?=99.9 Intensity at 4922A He I (3)
character*1 n_4922 ! ? Note about accuracy (2)
real*4 v4959 ! ?=99.9 Intensity at 4959A [O III] (3)
character*1 n_4959 ! ? Note about accuracy (2)
real*4 v5007 ! ?=99.9 Intensity at 5007A [O III] (3)
character*1 n_5007 ! ? Note about accuracy (2)
character*1 l_5200 ! ? Limit flag on an intensity at 5200A
real*4 v5200 ! ?=99.9 Intensity at 5200A [N I] (3)
character*1 n_5200 ! ? Note about accuracy (2)
character*1 l_5411 ! ? Limit flag on an intensity at 5411A
real*4 v5411 ! ?=99.9 Intensity at 5411A HeII (3)
character*1 n_5411 ! ? Note about accuracy (2)
character*1 l_5517 ! ? Limit flag on an intensity at 5517A
real*4 v5517 ! ?=99.9 Intensity at 5517A [Cl III] (3)
character*1 n_5517 ! ? Note about accuracy (2)
character*1 l_5537 ! ? Limit flag on an intensity at 5537A
real*4 v5537 ! ?=99.9 Intensity at 5537A [Cl III] (3)
character*1 n_5537 ! ? Note about accuracy (2)
character*1 l_5755 ! ? Limit flag on an intensity at 5755A
real*4 v5755 ! ?=99.9 Intensity at 5755A [N II] (3)
character*1 n_5755 ! ? Note about accuracy (2)
character*1 l_5801 ! ? Limit flag on an intensity at 5801A
real*4 v5801 ! ?=99.9 Intensity at 5801A C IV (3)
character*1 n_5801 ! ? Note about accuracy (2)
character*1 l_5806 ! ? Limit flag on an intensity at 5806A
real*4 v5806 ! ?=99.9 Intensity at 5806A HeII (3)
character*1 n_5806 ! ? Note about accuracy (2)
character*1 l_5812 ! ? Limit flag on an intensity at 5812A
real*4 v5812 ! ?=99.9 Intensity at 5812A C IV (3)
character*1 n_5812 ! ? Note about accuracy (2)
real*4 v5876 ! ?=99.9 Intensity at 5876A HeI (3)
character*1 n_5876 ! ? Note about accuracy (2)
character*1 l_6300 ! ? Limit flag on an intensity at 6300A
real*4 v6300 ! ?=99.9 Intensity at 6300A [O I] (3)
character*1 n_6300 ! ? Note about accuracy (2)
character*1 l_6312 ! ? Limit flag on an intensity at 6312A
real*4 v6312 ! ?=99.9 Intensity at 6312A [S III] (3)
character*1 n_6312 ! ? Note about accuracy (2)
character*1 l_6364 ! ? Limit flag on an intensity at 6364A
real*4 v6364 ! ?=99.9 Intensity at 6364A [O I] (3)
character*1 n_6364 ! ? Note about accuracy (2)
character*1 l_6548 ! ? Limit flag on an intensity at 6548A
real*4 v6548 ! ?=99.9 Intensity at 6548A [N II] (3)
character*1 n_6548 ! ? Note about accuracy (2)
real*4 v6563 ! ?=99.9 Intensity at 6563A H{alpha} (3)
character*1 n_6563 ! ? Note about accuracy (2)
real*4 v6583 ! ?=99.9 Intensity at 6583A [N II] (3)
character*1 n_6583 ! ? Note about accuracy (2)
character*1 l_6678 ! ? Limit flag on an intensity at 6678A
real*4 v6678 ! ?=99.9 Intensity at 6678A He I (3)
character*1 n_6678 ! ? Note about accuracy (2)
character*1 l_6717 ! ? Limit flag on an intensity at 6717A
real*4 v6717 ! ?=99.9 Intensity at 6717A [S II] (3)
character*1 n_6717 ! ? Note about accuracy (2)
character*1 l_6731 ! ? Limit flag on an intensity at 6731A
real*4 v6731 ! ?=99.9 Intensity at 6731A [S II] (3)
character*1 n_6731 ! ? Note about accuracy (2)
character*1 l_7065 ! ? Limit flag on an intensity at 7065A
real*4 v7065 ! ?=99.9 Intensity at 7065A He I (3)
character*1 n_7065 ! ? Note about accuracy (2)
character*1 l_7136 ! ? Limit flag on an intensity at 7136A
real*4 v7136 ! ?=99.9 Intensity at 7136A [Ar III] (3)
character*1 n_7136 ! ? Note about accuracy (2)
character*1 l_7319 ! ? Limit flag on an intensity at 7319A
real*4 v7319 ! ?=99.9 Intensity at 7319A [O II] (3)
character*1 n_7319 ! ? Note about accuracy (2)
real*4 v7325 ! ?=99.9 Intensity at 7325A [O II] (3)
character*1 l_7330 ! ? Limit flag on an intensity at 7330A
real*4 v7330 ! ?=99.9 Intensity at 7330A [O II] (3)
character*1 n_7330 ! ? Note about accuracy (2)
*Note on PK, Name:
* Galactic coordinates and the names of planetary nebulae were taken from
* Catalogue of Galactic Planetary Nebulae (L.Perek,L.Kohoutek,1967)
*Note (2):
* a - the accuracy of the line intensities less 50%
* b - indicates that the intensities were estimated only from one spectrum.
*Note (3):
* 99.9 means the absence of the data.
C=============================================================================
C Loading file 'table.dat' ! Relative intensities of emission lines
C Format for file interpretation
1 format(
+ A8,1X,A7,2X,F4.2,2X,F5.1,1X,A1,2X,F5.1,1X,A1,2X,A1,F4.1,1X,A1,
+ 2X,F5.1,1X,A1,2X,A1,F4.1,1X,A1,2X,A1,F4.1,1X,A1,2X,A1,F4.1,1X,
+ A1,3X,F4.1,1X,A1,2X,A1,F4.1,1X,A1,2X,A1,F4.1,1X,A1,3X,F4.1,1X,
+ A1,2X,A1,F4.1,1X,A1,3X,F4.1,1X,A1,2X,A1,F4.1,1X,A1,2X,A1,F4.1,
+ 1X,A1,2X,A1,F4.1,1X,A1,2X,A1,F4.1,1X,A1,2X,A1,F4.1,1X,A1,3X,
+ F4.1,1X,A1,3X,F4.1,1X,A1,2X,A1,F4.1,1X,A1,2X,I3,2X,A1,F4.1,1X,
+ A1,1X,F6.1,1X,A1,1X,F6.1,1X,A1,2X,A1,F4.1,1X,A1,2X,A1,F4.1,1X,
+ A1,2X,A1,F4.1,1X,A1,2X,A1,F4.1,1X,A1,2X,A1,F4.1,1X,A1,2X,A1,
+ F4.1,1X,A1,2X,A1,F4.1,1X,A1,2X,A1,F4.1,1X,A1,3X,F4.1,1X,A1,2X,
+ A1,F4.1,1X,A1,2X,A1,F4.1,1X,A1,2X,A1,F4.1,1X,A1,1X,A1,F5.1,1X,
+ A1,2X,F5.1,1X,A1,2X,F5.1,1X,A1,2X,A1,F4.1,1X,A1,2X,A1,F4.1,1X,
+ A1,2X,A1,F4.1,1X,A1,2X,A1,F4.1,1X,A1,1X,A1,F5.1,1X,A1,2X,A1,
+ F4.1,1X,A1,3X,F4.1,4X,A1,F4.1,1X,A1)
C Effective file loading
open(unit=1,status='old',file=
+'table.dat')
write(6,*) '....Loading file: table.dat'
do i__=1,38
read(1,'(A450)')ar__
read(ar__,1)
+ PK,Name,A,v3727_3729,n_3727_3729,v3869,n_3869,l_3889,v3889,
+ n_3889,v3970,n_3970,l_4026,v4026,n_4026,l_4068,v4068,n_4068,
+ l_4076,v4076,n_4076,v4101,n_4101,l_4200,v4200,n_4200,l_4267,
+ v4267,n_4267,v4340,n_4340,l_4363,v4363,n_4363,v4471,n_4471,
+ l_4541,v4541,n_4541,l_4634,v4634,n_4634,l_4641,v4641,n_4641,
+ l_4647,v4647,n_4647,l_4658,v4658,n_4658,v4686,n_4686,v4711,
+ n_4711,l_4740,v4740,n_4740,v4861,l_4922,v4922,n_4922,v4959,
+ n_4959,v5007,n_5007,l_5200,v5200,n_5200,l_5411,v5411,n_5411,
+ l_5517,v5517,n_5517,l_5537,v5537,n_5537,l_5755,v5755,n_5755,
+ l_5801,v5801,n_5801,l_5806,v5806,n_5806,l_5812,v5812,n_5812,
+ v5876,n_5876,l_6300,v6300,n_6300,l_6312,v6312,n_6312,l_6364,
+ v6364,n_6364,l_6548,v6548,n_6548,v6563,n_6563,v6583,n_6583,
+ l_6678,v6678,n_6678,l_6717,v6717,n_6717,l_6731,v6731,n_6731,
+ l_7065,v7065,n_7065,l_7136,v7136,n_7136,l_7319,v7319,n_7319,
+ v7325,l_7330,v7330,n_7330
c ..............Just test output...........
write(6,1)
+ PK,Name,A,v3727_3729,n_3727_3729,v3869,n_3869,l_3889,v3889,
+ n_3889,v3970,n_3970,l_4026,v4026,n_4026,l_4068,v4068,n_4068,
+ l_4076,v4076,n_4076,v4101,n_4101,l_4200,v4200,n_4200,l_4267,
+ v4267,n_4267,v4340,n_4340,l_4363,v4363,n_4363,v4471,n_4471,
+ l_4541,v4541,n_4541,l_4634,v4634,n_4634,l_4641,v4641,n_4641,
+ l_4647,v4647,n_4647,l_4658,v4658,n_4658,v4686,n_4686,v4711,
+ n_4711,l_4740,v4740,n_4740,v4861,l_4922,v4922,n_4922,v4959,
+ n_4959,v5007,n_5007,l_5200,v5200,n_5200,l_5411,v5411,n_5411,
+ l_5517,v5517,n_5517,l_5537,v5537,n_5537,l_5755,v5755,n_5755,
+ l_5801,v5801,n_5801,l_5806,v5806,n_5806,l_5812,v5812,n_5812,
+ v5876,n_5876,l_6300,v6300,n_6300,l_6312,v6312,n_6312,l_6364,
+ v6364,n_6364,l_6548,v6548,n_6548,v6563,n_6563,v6583,n_6583,
+ l_6678,v6678,n_6678,l_6717,v6717,n_6717,l_6731,v6731,n_6731,
+ l_7065,v7065,n_7065,l_7136,v7136,n_7136,l_7319,v7319,n_7319,
+ v7325,l_7330,v7330,n_7330
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end