Conversion of standardized ReadMe file for
file /./ftp/cats/III/203 into FORTRAN code for loading all data files into arrays.
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. 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 (nr__) ! *Perek-Kohoutek Name of planetary nebulae
character*7 Name (nr__) ! *Other name
real*4 A (nr__) ! (mag) Interstellar extinction at H(beta)
real*4 v3727_3729 (nr__) ! ?=99.9 Intensity at (3727+3729)A [O II] (3)
character*1 n_3727_3729(nr__) ! ? Note about accuracy (2)
real*4 v3869 (nr__) ! ?=99.9 Intensity at 3869A [Ne III] (3)
character*1 n_3869 (nr__) ! ? Note about accuracy (2)
character*1 l_3889 (nr__) ! ? Limit flag on an intensity at 3889A
real*4 v3889 (nr__) ! ?=99.9 Intensity at 3889A H I (3)
character*1 n_3889 (nr__) ! ? Note about accuracy (2)
real*4 v3970 (nr__) ! ?=99.9 Intensity at 3970A [Ne III] (3)
character*1 n_3970 (nr__) ! ? Note about accuracy (2)
character*1 l_4026 (nr__) ! ? Limit flag on an intensity at 4026A
real*4 v4026 (nr__) ! ?=99.9 Intensity at 4026A He I (3)
character*1 n_4026 (nr__) ! ? Note about accuracy (2)
character*1 l_4068 (nr__) ! ? Limit flag on an intensity at 4068A
real*4 v4068 (nr__) ! ?=99.9 Intensity at 4068A [S II] (3)
character*1 n_4068 (nr__) ! ? Note about accuracy (2)
character*1 l_4076 (nr__) ! ? Limit flag on an intensity at 4076A
real*4 v4076 (nr__) ! ?=99.9 Intensity at 4076A [S II] (3)
character*1 n_4076 (nr__) ! ? Note about accuracy (2)
real*4 v4101 (nr__) ! ?=99.9 Intensity at 4101A H{delta} (3)
character*1 n_4101 (nr__) ! ? Note about accuracy (2)
character*1 l_4200 (nr__) ! ? Limit flag on an intensity at 4200A
real*4 v4200 (nr__) ! ?=99.9 Intensity at 4200A He I (3)
character*1 n_4200 (nr__) ! ? Note about accuracy (2)
character*1 l_4267 (nr__) ! ? Limit flag on an intensity at 4267A
real*4 v4267 (nr__) ! ?=99.9 Intensity at 4267A C II (3)
character*1 n_4267 (nr__) ! ? Note about accuracy (2)
real*4 v4340 (nr__) ! ?=99.9 Intensity at 4340A H{gamma} (3)
character*1 n_4340 (nr__) ! ? Note about accuracy (2)
character*1 l_4363 (nr__) ! ? Limit flag on an intensity at 4363A
real*4 v4363 (nr__) ! ?=99.9 Intensity at 4363A [O III] (3)
character*1 n_4363 (nr__) ! ? Note about accuracy (2)
real*4 v4471 (nr__) ! ?=99.9 Intensity at 4471A HeI (3)
character*1 n_4471 (nr__) ! ? Note about accuracy (2)
character*1 l_4541 (nr__) ! ? Limit flag on an intensity at 4541A
real*4 v4541 (nr__) ! ?=99.9 Intensity at 4541A HeII (3)
character*1 n_4541 (nr__) ! ? Note about accuracy (2)
character*1 l_4634 (nr__) ! ? Limit flag on an intensity at 4634A
real*4 v4634 (nr__) ! ?=99.9 Intensity at 4634A [N III] (3)
character*1 n_4634 (nr__) ! ? Note about accuracy (2)
character*1 l_4641 (nr__) ! ? Limit flag on an intensity at 4641A
real*4 v4641 (nr__) ! ?=99.9 Intensity at 4641A [N III] (3)
character*1 n_4641 (nr__) ! ? Note about accuracy (2)
character*1 l_4647 (nr__) ! ? Limit flag on an intensity at 4647A
real*4 v4647 (nr__) ! ?=99.9 Intensity at 4647A C III (3)
character*1 n_4647 (nr__) ! ? Note about accuracy (2)
character*1 l_4658 (nr__) ! ? Limit flag on an intensity at 4658A
real*4 v4658 (nr__) ! ?=99.9 Intensity at 4658A C IV (3)
character*1 n_4658 (nr__) ! ? Note about accuracy (2)
real*4 v4686 (nr__) ! ?=99.9 Intensity at 4686A HeII (3)
character*1 n_4686 (nr__) ! ? Note about accuracy (2)
real*4 v4711 (nr__) ! ?=99.9 Intensity at 4711A (HeI)[AIV] (3)
character*1 n_4711 (nr__) ! ? Note about accuracy (2)
character*1 l_4740 (nr__) ! ? Limit flag on an intensity at 4740A
real*4 v4740 (nr__) ! ?=99.9 Intensity at 4740A [Ar IV] (3)
character*1 n_4740 (nr__) ! ? Note about accuracy (2)
integer*4 v4861 (nr__) ! ?=99.9 Intensity at 4861A H{beta} (3)
character*1 l_4922 (nr__) ! ? Limit flag on an intensity at 4922A
real*4 v4922 (nr__) ! ?=99.9 Intensity at 4922A He I (3)
character*1 n_4922 (nr__) ! ? Note about accuracy (2)
real*4 v4959 (nr__) ! ?=99.9 Intensity at 4959A [O III] (3)
character*1 n_4959 (nr__) ! ? Note about accuracy (2)
real*4 v5007 (nr__) ! ?=99.9 Intensity at 5007A [O III] (3)
character*1 n_5007 (nr__) ! ? Note about accuracy (2)
character*1 l_5200 (nr__) ! ? Limit flag on an intensity at 5200A
real*4 v5200 (nr__) ! ?=99.9 Intensity at 5200A [N I] (3)
character*1 n_5200 (nr__) ! ? Note about accuracy (2)
character*1 l_5411 (nr__) ! ? Limit flag on an intensity at 5411A
real*4 v5411 (nr__) ! ?=99.9 Intensity at 5411A HeII (3)
character*1 n_5411 (nr__) ! ? Note about accuracy (2)
character*1 l_5517 (nr__) ! ? Limit flag on an intensity at 5517A
real*4 v5517 (nr__) ! ?=99.9 Intensity at 5517A [Cl III] (3)
character*1 n_5517 (nr__) ! ? Note about accuracy (2)
character*1 l_5537 (nr__) ! ? Limit flag on an intensity at 5537A
real*4 v5537 (nr__) ! ?=99.9 Intensity at 5537A [Cl III] (3)
character*1 n_5537 (nr__) ! ? Note about accuracy (2)
character*1 l_5755 (nr__) ! ? Limit flag on an intensity at 5755A
real*4 v5755 (nr__) ! ?=99.9 Intensity at 5755A [N II] (3)
character*1 n_5755 (nr__) ! ? Note about accuracy (2)
character*1 l_5801 (nr__) ! ? Limit flag on an intensity at 5801A
real*4 v5801 (nr__) ! ?=99.9 Intensity at 5801A C IV (3)
character*1 n_5801 (nr__) ! ? Note about accuracy (2)
character*1 l_5806 (nr__) ! ? Limit flag on an intensity at 5806A
real*4 v5806 (nr__) ! ?=99.9 Intensity at 5806A HeII (3)
character*1 n_5806 (nr__) ! ? Note about accuracy (2)
character*1 l_5812 (nr__) ! ? Limit flag on an intensity at 5812A
real*4 v5812 (nr__) ! ?=99.9 Intensity at 5812A C IV (3)
character*1 n_5812 (nr__) ! ? Note about accuracy (2)
real*4 v5876 (nr__) ! ?=99.9 Intensity at 5876A HeI (3)
character*1 n_5876 (nr__) ! ? Note about accuracy (2)
character*1 l_6300 (nr__) ! ? Limit flag on an intensity at 6300A
real*4 v6300 (nr__) ! ?=99.9 Intensity at 6300A [O I] (3)
character*1 n_6300 (nr__) ! ? Note about accuracy (2)
character*1 l_6312 (nr__) ! ? Limit flag on an intensity at 6312A
real*4 v6312 (nr__) ! ?=99.9 Intensity at 6312A [S III] (3)
character*1 n_6312 (nr__) ! ? Note about accuracy (2)
character*1 l_6364 (nr__) ! ? Limit flag on an intensity at 6364A
real*4 v6364 (nr__) ! ?=99.9 Intensity at 6364A [O I] (3)
character*1 n_6364 (nr__) ! ? Note about accuracy (2)
character*1 l_6548 (nr__) ! ? Limit flag on an intensity at 6548A
real*4 v6548 (nr__) ! ?=99.9 Intensity at 6548A [N II] (3)
character*1 n_6548 (nr__) ! ? Note about accuracy (2)
real*4 v6563 (nr__) ! ?=99.9 Intensity at 6563A H{alpha} (3)
character*1 n_6563 (nr__) ! ? Note about accuracy (2)
real*4 v6583 (nr__) ! ?=99.9 Intensity at 6583A [N II] (3)
character*1 n_6583 (nr__) ! ? Note about accuracy (2)
character*1 l_6678 (nr__) ! ? Limit flag on an intensity at 6678A
real*4 v6678 (nr__) ! ?=99.9 Intensity at 6678A He I (3)
character*1 n_6678 (nr__) ! ? Note about accuracy (2)
character*1 l_6717 (nr__) ! ? Limit flag on an intensity at 6717A
real*4 v6717 (nr__) ! ?=99.9 Intensity at 6717A [S II] (3)
character*1 n_6717 (nr__) ! ? Note about accuracy (2)
character*1 l_6731 (nr__) ! ? Limit flag on an intensity at 6731A
real*4 v6731 (nr__) ! ?=99.9 Intensity at 6731A [S II] (3)
character*1 n_6731 (nr__) ! ? Note about accuracy (2)
character*1 l_7065 (nr__) ! ? Limit flag on an intensity at 7065A
real*4 v7065 (nr__) ! ?=99.9 Intensity at 7065A He I (3)
character*1 n_7065 (nr__) ! ? Note about accuracy (2)
character*1 l_7136 (nr__) ! ? Limit flag on an intensity at 7136A
real*4 v7136 (nr__) ! ?=99.9 Intensity at 7136A [Ar III] (3)
character*1 n_7136 (nr__) ! ? Note about accuracy (2)
character*1 l_7319 (nr__) ! ? Limit flag on an intensity at 7319A
real*4 v7319 (nr__) ! ?=99.9 Intensity at 7319A [O II] (3)
character*1 n_7319 (nr__) ! ? Note about accuracy (2)
real*4 v7325 (nr__) ! ?=99.9 Intensity at 7325A [O II] (3)
character*1 l_7330 (nr__) ! ? Limit flag on an intensity at 7330A
real*4 v7330 (nr__) ! ?=99.9 Intensity at 7330A [O II] (3)
character*1 n_7330 (nr__) ! ? 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(i__),Name(i__),A(i__),v3727_3729(i__),n_3727_3729(i__),
+ v3869(i__),n_3869(i__),l_3889(i__),v3889(i__),n_3889(i__),
+ v3970(i__),n_3970(i__),l_4026(i__),v4026(i__),n_4026(i__),
+ l_4068(i__),v4068(i__),n_4068(i__),l_4076(i__),v4076(i__),
+ n_4076(i__),v4101(i__),n_4101(i__),l_4200(i__),v4200(i__),
+ n_4200(i__),l_4267(i__),v4267(i__),n_4267(i__),v4340(i__),
+ n_4340(i__),l_4363(i__),v4363(i__),n_4363(i__),v4471(i__),
+ n_4471(i__),l_4541(i__),v4541(i__),n_4541(i__),l_4634(i__),
+ v4634(i__),n_4634(i__),l_4641(i__),v4641(i__),n_4641(i__),
+ l_4647(i__),v4647(i__),n_4647(i__),l_4658(i__),v4658(i__),
+ n_4658(i__),v4686(i__),n_4686(i__),v4711(i__),n_4711(i__),
+ l_4740(i__),v4740(i__),n_4740(i__),v4861(i__),l_4922(i__),
+ v4922(i__),n_4922(i__),v4959(i__),n_4959(i__),v5007(i__),
+ n_5007(i__),l_5200(i__),v5200(i__),n_5200(i__),l_5411(i__),
+ v5411(i__),n_5411(i__),l_5517(i__),v5517(i__),n_5517(i__),
+ l_5537(i__),v5537(i__),n_5537(i__),l_5755(i__),v5755(i__),
+ n_5755(i__),l_5801(i__),v5801(i__),n_5801(i__),l_5806(i__),
+ v5806(i__),n_5806(i__),l_5812(i__),v5812(i__),n_5812(i__),
+ v5876(i__),n_5876(i__),l_6300(i__),v6300(i__),n_6300(i__),
+ l_6312(i__),v6312(i__),n_6312(i__),l_6364(i__),v6364(i__),
+ n_6364(i__),l_6548(i__),v6548(i__),n_6548(i__),v6563(i__),
+ n_6563(i__),v6583(i__),n_6583(i__),l_6678(i__),v6678(i__),
+ n_6678(i__),l_6717(i__),v6717(i__),n_6717(i__),l_6731(i__),
+ v6731(i__),n_6731(i__),l_7065(i__),v7065(i__),n_7065(i__),
+ l_7136(i__),v7136(i__),n_7136(i__),l_7319(i__),v7319(i__),
+ n_7319(i__),v7325(i__),l_7330(i__),v7330(i__),n_7330(i__)
c ..............Just test output...........
write(6,1)
+ PK(i__),Name(i__),A(i__),v3727_3729(i__),n_3727_3729(i__),
+ v3869(i__),n_3869(i__),l_3889(i__),v3889(i__),n_3889(i__),
+ v3970(i__),n_3970(i__),l_4026(i__),v4026(i__),n_4026(i__),
+ l_4068(i__),v4068(i__),n_4068(i__),l_4076(i__),v4076(i__),
+ n_4076(i__),v4101(i__),n_4101(i__),l_4200(i__),v4200(i__),
+ n_4200(i__),l_4267(i__),v4267(i__),n_4267(i__),v4340(i__),
+ n_4340(i__),l_4363(i__),v4363(i__),n_4363(i__),v4471(i__),
+ n_4471(i__),l_4541(i__),v4541(i__),n_4541(i__),l_4634(i__),
+ v4634(i__),n_4634(i__),l_4641(i__),v4641(i__),n_4641(i__),
+ l_4647(i__),v4647(i__),n_4647(i__),l_4658(i__),v4658(i__),
+ n_4658(i__),v4686(i__),n_4686(i__),v4711(i__),n_4711(i__),
+ l_4740(i__),v4740(i__),n_4740(i__),v4861(i__),l_4922(i__),
+ v4922(i__),n_4922(i__),v4959(i__),n_4959(i__),v5007(i__),
+ n_5007(i__),l_5200(i__),v5200(i__),n_5200(i__),l_5411(i__),
+ v5411(i__),n_5411(i__),l_5517(i__),v5517(i__),n_5517(i__),
+ l_5537(i__),v5537(i__),n_5537(i__),l_5755(i__),v5755(i__),
+ n_5755(i__),l_5801(i__),v5801(i__),n_5801(i__),l_5806(i__),
+ v5806(i__),n_5806(i__),l_5812(i__),v5812(i__),n_5812(i__),
+ v5876(i__),n_5876(i__),l_6300(i__),v6300(i__),n_6300(i__),
+ l_6312(i__),v6312(i__),n_6312(i__),l_6364(i__),v6364(i__),
+ n_6364(i__),l_6548(i__),v6548(i__),n_6548(i__),v6563(i__),
+ n_6563(i__),v6583(i__),n_6583(i__),l_6678(i__),v6678(i__),
+ n_6678(i__),l_6717(i__),v6717(i__),n_6717(i__),l_6731(i__),
+ v6731(i__),n_6731(i__),l_7065(i__),v7065(i__),n_7065(i__),
+ l_7136(i__),v7136(i__),n_7136(i__),l_7319(i__),v7319(i__),
+ n_7319(i__),v7325(i__),l_7330(i__),v7330(i__),n_7330(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end