Conversion of standardized ReadMe file for
file /./ftp/cats/I/122 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-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. I/122 Bonner Durchmusterung (Argelander 1859-1903) *================================================================================ *Bonner Durchmusterung * Argelander F. W. A. * <Bonner Sternverzeichniss, erste bis dritte Sektion, Astronomischen * Beobachtungen auf der Sternwarte des Koeniglichen Rheinishen * Friedrich-Wilhelms-Universitaet zu Bonn, Baende 3-5, (1859-1903)> * =1903BD....C......0A C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'bd' ! The Bonner Durchmusterung catalog integer*4 nr__ parameter (nr__=325037) ! Number of records character*30 ar__ ! Full-size record C 1855 position composed of: RAh RAm RAs DE- DEd DEm real*8 RAdeg ! (deg) Right Ascension 1855 real*8 DEdeg ! (deg) Declination 1855 C ---------------------------------- ! (position vector(s) in degrees) character*1 zonesign ! [+-]The sign of the declination zone integer*4 zone ! (deg) The declination zone integer*4 num ! The number of the star within the zone character*1 suppl ! *[a-c D*?M] Note real*4 mag ! (mag) *Estimated visual magnitude integer*4 RAh ! (h) Right Ascension 1855 (hours) integer*4 RAm ! (min) Right Ascension 1855 (minutes) real*4 RAs ! (s) Right Ascension, 1855 (seconds) character*1 DE_ ! [+-]Sign of declination integer*4 DEd ! (deg) Declination 1855 (degrees) real*4 DEm ! (arcmin) Declination 1855 (minutes) *Note on suppl: * a, b, or c: star is added in the 1903 or later editions * * Data have been corrected as a result of corrigenda * ? Existence of the star by Kuestner or Sticker * D The star was deleted in a later edition by overstriking * M The star was noted as missing by Chandler or Pickering *Note on mag: * 20.0 = neb; 30.0 = var; 40.0 = nova or nova?; 50.0 = integrated * magnitude for a cluster c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'bdchg' ! Changes since the original printing integer*4 nr__1 parameter (nr__1=692) ! Number of records character*100 ar__1 ! Full-size record character*1 zonesign_1 ! [+-]The sign of the declination zone integer*4 zone_1 ! The BD zone integer*4 num_1 ! The BD number character*1 suppl_1 ! [ab ] Supplemental designation character*5 field ! The field changed character*9 old ! The printed value character*9 new ! The corrected value character*64 note ! *Comments *Note on note: * 1 Star of approximately 13 mag at nominal position. * 2 There is a "?" in the 1903 edition. No star could be found on the POSS * prints or on the Vehrenberg Atlas Stellarum chart. * 3 Star of approximately 12 mag at nominal position. * 4 Candidate in field, but it is 3 arcmin north of the BD position. * Star listed by Upgren et al. (1972) at right ascension an hour * away from the BD position. * 5 Faint star(s) in field, but "M" flag retained in record. * 6 Possible variability noted by Kuestner (1918). * 7 Existence also questioned by Kuestner (1908). * 8 There is a "?" in the 1903 edition that was later removed by * Kuestner (1918). * 9 There is a "?" in the 1903 edition of the BD. * 10 Non-BD star within 10 arcmin of nominal BD position. * 11 Non-BD star within 10 arcmin of nominal BD position; existence * questioned by Kuestner. * 12 Non-BD star within 10 arcmin of nominal BD position. There is a "?" * a "?" in the 1903 edition of the BD. * 13 There is a question mark in the 1903 edition that was later removed * by Kuestner (1918). There is a non-BD star within 10' of nominal * BD position. C============================================================================= C Loading file 'bd' ! The Bonner Durchmusterung catalog C Format for file interpretation 1 format(2X,A1,I2,I5,A1,F4.1,I2,I2,F4.1,A1,I2,F4.1) C Effective file loading open(unit=1,status='old',file= +'bd') write(6,*) '....Loading file: bd' do i__=1,325037 read(1,'(A30)')ar__ read(ar__,1) + zonesign,zone,num,suppl,mag,RAh,RAm,RAs,DE_,DEd,DEm 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(DE_.EQ.'-'.AND.DEdeg.GE.0) DEdeg=-DEdeg c ..............Just test output........... write(6,1) + zonesign,zone,num,suppl,mag,RAh,RAm,RAs,DE_,DEd,DEm write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'bdchg' ! Changes since the original printing C Format for file interpretation 2 format(A1,I2,1X,I4,A1,1X,A5,1X,A9,1X,A9,1X,A64) C Effective file loading open(unit=1,status='old',file= +'bdchg') write(6,*) '....Loading file: bdchg' do i__=1,692 read(1,'(A100)')ar__1 read(ar__1,2) + zonesign_1,zone_1,num_1,suppl_1,field,old,new,note c ..............Just test output........... write(6,2) + zonesign_1,zone_1,num_1,suppl_1,field,old,new,note c .......End.of.Just test output........... end do close(1) C============================================================================= stop end