CDS.headStuff2
FORTRAN Generation
Conversion of standardized ReadMe file for
catalog 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-May-18 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/BaltA/5/1 Classification of Population II stars (Bartkevicius+, 1996) *================================================================================ *Classification of population II stars in the Vilnius photometric system. *I. Methods * Bartkevicius A., Lazauskaite R. * <Baltic Astronomy, 5, 1 (1996)> * =1996BaltA...5....1B C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'notes.dat' ! Notes to tables integer*4 nr__ parameter (nr__=360) ! Number of records character*225 ar__ ! Full-size record integer*4 No ! Running number from table6.dat integer*4 No2 ! ? Last running number when the name is the * same for different running numbers character*11 Name ! Identification number as in table6.dat character*2 m_Name ! Component character*202 Notes ! Notes about duplicity, variability, * membership in moving groups (1) *Note (1): Abbreviations used: * KAPT: Kapteyn star group (Members of moving groups of stars) * GR1830: Gr 1830 star group (Members of moving groups of stars) * ARCT: Arcturus star group (Members of moving groups of stars) * PUP: sigma Puppis star group (Members of moving groups of stars) * VB: Visual binary * VB?: Suspected visual binary * VB-MD: Population II visual binary, observed separate components * VBP-MD: Population II visual binary with d<10-15arcsec and {DELTA}m>4mag, * both components observed together * VBP: Population I visual binary with d<10-15arcsec and {DELTA}m>4mag, * both components observed together * IDS: Number from Worley C., Douglass G. 1984, The Washington Visual * Double Star Catalogue, 1984.0, See Cat. <I/237>. * First numeral is the distance between components in arcsec, second * numeral is the difference of magnitudes. When the orbit is given, * the next numeral means the semi-major axis of the VB orbit in * arcsec, number after P is the period in years. (Visual binaries) * SB: Spectroscopic binary * SB?: Suspected SB, P is the period in days, K is the semiamplitude of * the radial velocity curve in km/s. * CPM: Comon proper motion * Var RV: Variable radial velocity * Var RV?: Suspected variable radial velocity * VAR: Variable star, P is the period in days, V, PG and B are the * corresponding magnitudes in maximum and minimum. Data are from * P. N. Kholopov (Ed.), General Catalogue of Variable Stars, 4-th ed. * Cat. <II/139> C============================================================================= C Loading file 'notes.dat' ! Notes to tables C Format for file interpretation 1 format(I3,1X,I3,1X,A11,A2,2X,A202) C Effective file loading open(unit=1,status='old',file= +'J/BaltA/5/1/notes.dat') write(6,*) '....Loading file: notes.dat' do i__=1,360 read(1,'(A225)')ar__ read(ar__,1)No,No2,Name,m_Name,Notes if(ar__(5:7) .EQ. '') No2 = iNULL__ c ..............Just test output........... write(6,1)No,No2,Name,m_Name,Notes c .......End.of.Just test output........... end do close(1) C============================================================================= stop end