Conversion of standardized ReadMe file for
file /./ftp/cats/V/110/ 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. V/110 Catalog of Cataclysmic Variables (Downes+ 2001)
*================================================================================
*A catalog and atlas of cataclysmic variables: the living edition.
* Downes R.A., Webbink R.F., Shara M.M., Ritter H., Kolb U., Duerbeck H.W.
* <Publ. Astron. Soc. Pac. 113, 764 (2001)>
* =2001PASP..113..764D
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'catalog.dat' ! A catalog of cataclysmic variables
integer*4 nr__
parameter (nr__=1314) ! Number of records
character*145 ar__ ! Full-size record
C J2000 position composed of: RAh RAm RAs DE- DEd DEm DEs
real*8 RAdeg ! (deg) Right Ascension J2000
real*8 DEdeg ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
character*9 GCVS ! GCVS-Name
integer*4 RAh ! (h) Right ascension (J2000)
integer*4 RAm ! (min) Right ascension (J2000)
real*4 RAs ! (s) ? Right ascension (J2000)
character*1 DE_ ! Declination sign (J2000)
integer*4 DEd ! (deg) Declination (J2000)
integer*4 DEm ! (arcmin) Declination (J2000)
real*4 DEs ! (arcsec) ? Declination (J2000)
integer*4 GLAT ! (deg) ? Galactic latitude
character*7 VarType ! Type of variability of the object (1)
real*8 OutDate ! ? Year of outburst (for novae)
character*1 l_Maxmag ! Limit flag on Maxmag
real*4 Maxmag ! (mag) ? Maximum value of magnitude range
character*1 f_Maxmag ! Band of Maxmag (2)
character*1 l_Minmag ! Limit flag on Minmag
real*4 Minmag ! (mag) ? Minimum value of magnitude range
character*1 u_Minmag ! Uncertainty flag on Minmag
character*1 f_Minmag ! Band of Minmag (2)
character*5 refCoo ! Chart number of Coordinate reference (3)
character*8 ref_Coo ! Coordinate reference code
character*1 f_ref_Coo ! [*] Comment, see note (G1)
character*8 ref_CV ! Reference code to the CV classification
character*1 f_ref_CV ! [*V/] *: Comment, see note (G1)
* /: two references
character*7 ref_CV_2 ! Second Reference code to the CV classification
character*1 f_ref_CV_2 ! [*] Comment, see note (G1)
character*8 ref_Cha ! Chart reference code (5)
character*1 u_ref_Cha ! Uncertainty flag on ChR
character*1 f_ref_Cha ! [*] Comment, see note (G1)
character*8 ref_Spe ! Spectrum reference code (6)
character*1 n_ref_Spe ! [SX] Note on ref(Spe) (6)
character*1 u_ref_Spe ! Uncertainty flag on SpR (6)
character*1 f_ref_Spe ! [*] Comment, see note (G1)
character*21 Names ! Discovery or common alternative (non-GCVS)
* designation for the object
*Note (1): Variability type definitions:
* UG U Gem variable (dwarf nova)
* UGZ U Gem variable (Z Cam subtype)
* UGSS U Gem variable (SS Cyg subtype)
* UGSU U Gem variable (SU UMa subtype)
* UGWZ U Gem variable (WZ Sge subtype)
* N nova
* NA fast nova
* NB slow nova
* NC very slow nova
* NR recurrent nova
* NRA recurrent nova - giant donor
* (Webbink et al., 1987ApJ...314..653W)
* NRB recurrent nova - non-giant donor
* (Webbink et al., 1987ApJ...314..653W)
* SN possible supernova with no galaxy visible
* NL novalike variable
* NLV novalike variable (V Sge subtype;
* Steiner and Diaz, 1998PASP..110..276S)
* UX novalike variable (UX UMa subtype)
* VY novalike variable (VY Scl subtype - systems which undergo low
* states)
* AM AM Herculis variable (synchronous rotators)
* DQ DQ Herculis variable (non-synchronous rotators)
* CV cataclysmic variable (no type classification)
* CBSS close binary supersoft x-ray source
* IBWD interacting binary white dwarf
* M Mira variable
* I Irregular variable
* UV UV Ceti-type star
* Z AND symbiotic variable (Z And subtype)
* NON-CV not a cataclysmic variable (although once classified as such)
* NON-EX non-existent object
* PEC peculiar
* : uncertain
* :: very uncertain
*Note (2): Magnitude range:
* For novae, the primary sources are Duerbeck (1987SSRv...45....1D)
* Duerbeck (2001, private communication), while for the non-novae, the
* catalog of Ritter and Kolb (1998, Cat. <V/99>) is the prime source.
* When no other references to brightness were available, the GCVS values
* are used. The magnitude definitions are:
* U: Johnson U
* B: Johnson B
* V: Johnson V
* R: Johnson R
* I: Johnson I
* c: unfiltered CCD
* f: m(2200)
* g: Gunn g
* h: Hipparcos magnitude system
* i: Gunn i
* j: SRC j (unfiltered IIIa-J)
* p: photographic
* r: red
* s: Sloan g*
* u: m(1400)
* v: visual
*Note (3): Reference to the coordinates code, RefCoo:
* Entries of consisting of the letter C followed by a four-character
* code correspond to plate-IDs from the HST Guide Star survey
*Note (5): Chart reference code:
* Note that the identifications of the CVs are based on the published
* charts (or in some cases coordinates only), and have not been
* independently verified by the authors.
*Note (6): Spectrum reference code:
* A suffix of S indicates a spectrum in quiescence, while a suffix
* of X indicates a spectrum in outburst.
*
* Whenever available, the quiescent spectrum was chosen for the catalog
* over an outburst spectrum.
*
* A colon (:) following the reference indicates that:
* (i) the spectrum is only described,
* (ii) the spectrum is a glass plate tracing, or
* (iii) the reference is unconfirmed (only for a few novae in Duerbeck's atlas)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'refs.dat' ! References
integer*4 nr__1
parameter (nr__1=1254) ! Number of records
character*394 ar__1 ! Full-size record
character*8 Ref ! Reference code
character*19 BibCode ! BibCode
character*29 Aut ! Author's name
character*335 Com ! Comments
C=============================================================================
C Loading file 'catalog.dat' ! A catalog of cataclysmic variables
C Format for file interpretation
1 format(
+ A9,1X,I2,1X,I2,1X,F5.2,1X,A1,I2,1X,I2,1X,F4.1,1X,I3,1X,A7,1X,
+ F7.2,1X,A1,F4.1,A1,1X,A1,F4.1,A1,A1,1X,A5,A8,A1,1X,A8,A1,A7,
+ A1,A8,A1,A1,1X,A8,A1,A1,A1,1X,A21)
C Effective file loading
open(unit=1,status='old',file=
+'catalog.dat')
write(6,*) '....Loading file: catalog.dat'
do i__=1,1314
read(1,'(A145)')ar__
read(ar__,1)
+ GCVS,RAh,RAm,RAs,DE_,DEd,DEm,DEs,GLAT,VarType,OutDate,
+ l_Maxmag,Maxmag,f_Maxmag,l_Minmag,Minmag,u_Minmag,f_Minmag,
+ refCoo,ref_Coo,f_ref_Coo,ref_CV,f_ref_CV,ref_CV_2,f_ref_CV_2,
+ ref_Cha,u_ref_Cha,f_ref_Cha,ref_Spe,n_ref_Spe,u_ref_Spe,
+ f_ref_Spe,Names
if(ar__(17:21) .EQ. '') RAs = rNULL__
if(ar__(30:33) .EQ. '') DEs = rNULL__
if(ar__(35:37) .EQ. '') GLAT = iNULL__
if(ar__(47:53) .EQ. '') OutDate = rNULL__
if(ar__(56:59) .EQ. '') Maxmag = rNULL__
if(ar__(63:66) .EQ. '') Minmag = rNULL__
RAdeg = rNULL__
DEdeg = rNULL__
c Derive coordinates RAdeg and DEdeg from input data
c (RAdeg and DEdeg are set to rNULL__ when unknown)
if(RAh .GT. -180) RAdeg=RAh*15.
if(RAm .GT. -180) RAdeg=RAdeg+RAm/4.
if(RAs .GT. -180) RAdeg=RAdeg+RAs/240.
if(DEd .GE. 0) DEdeg=DEd
if(DEm .GE. 0) DEdeg=DEdeg+DEm/60.
if(DEs .GE. 0) DEdeg=DEdeg+DEs/3600.
if(DE_.EQ.'-'.AND.DEdeg.GE.0) DEdeg=-DEdeg
c ..............Just test output...........
write(6,1)
+ GCVS,RAh,RAm,RAs,DE_,DEd,DEm,DEs,GLAT,VarType,OutDate,
+ l_Maxmag,Maxmag,f_Maxmag,l_Minmag,Minmag,u_Minmag,f_Minmag,
+ refCoo,ref_Coo,f_ref_Coo,ref_CV,f_ref_CV,ref_CV_2,f_ref_CV_2,
+ ref_Cha,u_ref_Cha,f_ref_Cha,ref_Spe,n_ref_Spe,u_ref_Spe,
+ f_ref_Spe,Names
write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'refs.dat' ! References
C Format for file interpretation
2 format(A8,1X,A19,1X,A29,1X,A335)
C Effective file loading
open(unit=1,status='old',file=
+'refs.dat')
write(6,*) '....Loading file: refs.dat'
do i__=1,1254
read(1,'(A394)')ar__1
read(ar__1,2)Ref,BibCode,Aut,Com
c ..............Just test output...........
write(6,2)Ref,BibCode,Aut,Com
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end