Conversion of standardized ReadMe file for
file /./ftp/cats/I/230 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-Mar-29 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/230 Southern Hemisphere Catalogue of Bordeaux (Rousseau+ 1996) *================================================================================ *Stars of the southern hemisphere proposed for the Hipparcos mission * Rousseau J.M., Perie J.P., Gachard M.T. * <Astron. Astrophys. Suppl. Ser. 116, 301 (1996)> * =1996A&AS..116..301R C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'shb.dat' ! Southern Hemisphere catalogue of Bordeaux integer*4 nr__ parameter (nr__=118065) ! Number of records character*207 ar__ ! Full-size record C J2000 position composed of: RAms DEcs integer*4 SHB ! [1/118065]+ Star number character*1 m_SHB ! Designation of companion. (a,b,c...) character*5 Mag ! Magnitude (see n_Mag) character*1 n_Mag ! [BV] Filter of magnitude character*2 Sp ! Spectral type integer*4 RAms ! (ms) [0/86400000[ Right ascension for the equinox * J2000 on the system FK4, at Epoch integer*4 DEcs ! (10mas) [-32400000/+32400000] Declination for the * equinox J2000 on the system FK4, at Epoch integer*4 RAms1950 ! (ms) [0/86400000[ Right ascension for the equinox * B1950 on the system FK4, at Epoch integer*4 DEcs1950 ! (10mas) [-32400000/+32400000] Declinaison for the * equinox B1950 on the system FK4, at Epoch integer*4 e_RAms ! (10mas) Deviation in right ascension (times cos(Dec)) integer*4 e_DEcs ! (10mas) Deviation in declination real*8 Epoch ! (yr) Mean epoch of observation integer*4 N ! Number of measurements character*3 Com1 ! Comment 1. (See preface 2.6). (1) character*3 Com2 ! Comment 2. (See preface 2.6). (2) character*10 LHS ! LHS or Variable identifier integer*4 PPM ! ? PPM identifier (Cat. <I/193>) integer*4 HIC ! ? HIC identifier (Cat. <I/196>) integer*4 SAO ! ? SAO identifier (Cat. <I/131>) character*8 HD ! HD identifier (Cat. <III/135>) character*11 CD ! CD identifier character*9 CPC ! CPC identifier character*12 CPD ! CPD identifier character*12 ADS_IDS ! ADS or IDS identifier character*26 Othername ! Others catalogues. (see Annex1 and 4) *Note (1): Possible values : * m : estimated magnitude. * nn : Indicates that the star forms part of a group of nn stars. * a=b : Components a and b appear to be equal in magnitude. * D : The star in question may be a double star (69 cases). * S : The star in question is part of a pair that is too close * together to enable the measurement of the two components. *Note (2): Possible values : * ? : A doubt exists as to the identification of the components. * The allocation of the letters a and b is arbitrary. * * : See notes (listed in Annex 5) C============================================================================= C Loading file 'shb.dat' ! Southern Hemisphere catalogue of Bordeaux C Format for file interpretation 1 format( + 1X,I6,1X,A1,1X,A5,A1,1X,A2,1X,I9,1X,I9,1X,I9,1X,I9,2X,I2,1X, + I2,1X,F7.2,1X,I1,1X,A3,1X,A3,1X,A10,2X,I6,2X,I6,2X,I6,2X,A8, + 2X,A11,2X,A9,1X,A12,2X,A12,1X,A26) C Effective file loading open(unit=1,status='old',file= +'shb.dat') write(6,*) '....Loading file: shb.dat' do i__=1,118065 read(1,'(A207)')ar__ read(ar__,1) + SHB,m_SHB,Mag,n_Mag,Sp,RAms,DEcs,RAms1950,DEcs1950,e_RAms, + e_DEcs,Epoch,N,Com1,Com2,LHS,PPM,HIC,SAO,HD,CD,CPC,CPD, + ADS_IDS,Othername if(ar__(98:103) .EQ. '') PPM = iNULL__ if(ar__(106:111) .EQ. '') HIC = iNULL__ if(ar__(114:119) .EQ. '') SAO = iNULL__ c ..............Just test output........... write(6,1) + SHB,m_SHB,Mag,n_Mag,Sp,RAms,DEcs,RAms1950,DEcs1950,e_RAms, + e_DEcs,Epoch,N,Com1,Com2,LHS,PPM,HIC,SAO,HD,CD,CPC,CPD, + ADS_IDS,Othername c .......End.of.Just test output........... end do close(1) C============================================================================= stop end