Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/614/A135 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-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/A+A/614/A135 Spectra of 78 PN central stars (Weidmann+, 2018)
*================================================================================
*Towards an improvement in the spectral description of central stars of
*planetary nebulae.
* Weidmann W., Gamen R., Mast D., Farina C., Gimeno G., Schmidt E.O.,
* Ashley R.P., Peralta de Arriba L., Sowicka P., Ordonez-Etxeberria I.
* <Astron. Astrophys. 614, A135 (2018)>
* =2018A&A...614A.135W (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'tablea3.dat' ! Spectral types from our observations
integer*4 nr__
parameter (nr__=78) ! Number of records
character*112 ar__ ! Full-size record
integer*4 Seq (nr__) ! Sequential number
character*14 Name (nr__) ! Main designation
character*10 PNG (nr__) ! PNG name (based on galactic position)
character*17 SpType (nr__) ! Spectral type of central star (1)
character*1 Tel (nr__) ! [GI] Telescope (G: GEMINI/GMOS, I: INT/IDS)
character*2 HeII4542 (nr__) ! [AE-? ] HeII at 4542{AA} detection flag (2)
character*4 HeII4686 (nr__) ! [AE-?+ N/D] HeII at 4686{AA} detection flag (2)
character*3 HeII5412 (nr__) ! [AE-? N/D] HeII at 5412{AA} detection flag (2)
character*2 HeI4471 (nr__) ! [AE-? ] HeI at 4471{AA} detection flag (2)
character*2 Hb4861 (nr__) ! [AE-? ] H{beta} detection flag (2)
character*2 NV4603 (nr__) ! [AE-? ] NV at 4603-4619{AA} detection flag (2)
character*4 CIV5806 (nr__) ! [AE-?+ N/D] CIV at 5801-5812{AA} detection
* flag (2)
character*1 NS (nr__) ! [y/n] Indicates whether or not it was possible
* to subtract the nebular component.
character*16 FileName (nr__) ! Name of the spectrum file in subdirectory fits
character*17 FileName2 (nr__) ! Name of second spectrum file in subdirectory
* fits
*Note (1): Spectral types as follows:
* O(H) = Balmer and HeII absorption lines detected
* H-rich = Balmer lines detected but neither HeI or HeII
* O = Only HeII absorptions lines detected
* cont. = A high S/N spectrum in which no stellar features and HeII
* emission lines were detected
* Emission line = Spectrum where no absorption lines are present but the
* observed emission lines have a stellar origin
*Note (2): Detection flags as follows:
* A = absorption
* E = emission
* - = undetected ion
* N/D = data available
C=============================================================================
C Loading file 'tablea3.dat' ! Spectral types from our observations
C Format for file interpretation
1 format(
+ I2,1X,A14,1X,A10,1X,A17,1X,A1,1X,A2,1X,A4,1X,A3,1X,A2,1X,A2,
+ 1X,A2,1X,A4,1X,A1,1X,A16,2X,A17)
C Effective file loading
open(unit=1,status='old',file=
+'tablea3.dat')
write(6,*) '....Loading file: tablea3.dat'
do i__=1,78
read(1,'(A112)')ar__
read(ar__,1)
+ Seq(i__),Name(i__),PNG(i__),SpType(i__),Tel(i__),
+ HeII4542(i__),HeII4686(i__),HeII5412(i__),HeI4471(i__),
+ Hb4861(i__),NV4603(i__),CIV5806(i__),NS(i__),FileName(i__),
+ FileName2(i__)
c ..............Just test output...........
write(6,1)
+ Seq(i__),Name(i__),PNG(i__),SpType(i__),Tel(i__),
+ HeII4542(i__),HeII4686(i__),HeII5412(i__),HeI4471(i__),
+ Hb4861(i__),NV4603(i__),CIV5806(i__),NS(i__),FileName(i__),
+ FileName2(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end