Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/343/841 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-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. J/A+A/343/841 Imaging of symbiotic stars (Corradi+ 1999)
*================================================================================
*A narrowband imaging survey of symbiotic stars
* Corradi R.L.M., Brandi E., Ferrer O.E., Schwarz H.E.
* <Astron. Astrophys. 343, 841 (1999)>
* =1999A&A...343..841C (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table5.dat' ! Optical non-detections
integer*4 nr__
parameter (nr__=117) ! Number of records
character*101 ar__ ! Full-size record
character*10 Name1 ! First name of the object
character*12 Name2 ! Second name (only when existing)
character*9 IRType ! Symbiotic IR type
character*6 Tel ! Telescope (1)
character*8 Filter ! Filter (2)
character*17 ExpTime ! (s) Exposure time (3)
character*3 See ! (arcsec) Seeing
character*14 Notes ! Notes (4)
*Note (1): 2.6NOT: 2.6m Nordic Optical Telescope of the ORM
* 1.5DAN: 1.54m Danish telescope of ESO
* 3.5NTT: 3.5m NTT of ESO
* 0.9DUT: 0.9m Dutch telescope of ESO
* 1SAAO : 1m telescope at the South African Astronomical Observatory
*Note (2): Ha+[NII]: relatively broad filter (FWHM>=5nm) including both
* H{alpha} and [NII] emission
* Ha or [NII]: narrow filter isolating one of the two lines, with no
* or little contamination from the other
* (FWHM=2.5nm at the 1.5DAN, 1nm at the 2.6NOT)
* [OIII]: [OIII]500.7nm
* [OII]: [OII]372.8nm
* Ha cont.: off-band filter (continuum)
*Note (3): (C) = coronographic spot
*Note (4): saturated: indicated only when all exposures in a specific filter
* produced saturated images of the central source.
* 1: Munari & Patat, 1993A&A...277..195M
* 2: Kohoutek, 1997A&AS..125..445K
* 3: Extended nebula detected by Paresce (1990ApJ...357..231P), using
* a coronograph and after substraction of a stellar profile
* 4: A sub-arcsec nebula was detected by HST
* (Schild & Schmid, 1997A&A...324..606S)
* 5: An H{alpha} nebula with a size of 8 arcsec was detected
* by Fuensalida et al. (1988A&A...191L..13F)
* 6: No field stars available for comparison
C=============================================================================
C Loading file 'table5.dat' ! Optical non-detections
C Format for file interpretation
1 format(A10,A12,1X,A9,1X,A6,1X,A8,1X,A17,1X,A3,1X,A14)
C Effective file loading
open(unit=1,status='old',file=
+'table5.dat')
write(6,*) '....Loading file: table5.dat'
do i__=1,117
read(1,'(A101)')ar__
read(ar__,1)Name1,Name2,IRType,Tel,Filter,ExpTime,See,Notes
c ..............Just test output...........
write(6,1)Name1,Name2,IRType,Tel,Filter,ExpTime,See,Notes
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end