FORTRAN Generation
(/./ftp/cats/III/162A/)

Conversion of standardized ReadMe file for file /./ftp/cats/III/162A/ 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 2017-Dec-11
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. III/162A            General Catalogue of Ap and Am stars   (Renson+ 1991)
*================================================================================
*General catalogue of Ap and Am stars
*    Renson P., Gerbaldi M., Catalano F.A.
*   <Astron. Astrophys. Suppl. 89, 429 (1991)>
*   =1991A&AS...89..429R
C=============================================================================

C  Internal variables

      integer*4 i__

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'catalog'	! The catalogue of Ap and Am stars

      integer*4 nr__
      parameter (nr__=6684)	! Number of records
      character*132 ar__   	! Full-size record

C  1950 position composed of: RAh RAm DE- DEd DEm
      real*8        RAdeg       ! (deg) Right Ascension 1950
      real*8        DEdeg       ! (deg)     Declination 1950
C  ---------------------------------- ! (position vector(s) in degrees)

      character*1   CPprob      ! [/?* ] Peculiarity probability note (1)
      integer*4     Seq         ! [1/61790] Running number in the catalog (2)
      integer*4     Bertaud     ! [1/813]? Number from Bertaud (3)
      integer*4     HD          ! [1/359083]? HD(E) identification.
      character*1   m_HD        ! Multiplicity indicator (4)
      integer*4     HR          ! [1/9110]? HR <V/50> identification
      character*1   m_HR        ! Multiplicity indicator (4)
      character*11  DM          ! Durchmusterung (BD, CD, CPD) designation
      integer*4     GC          ! [1/33342]? General Catalog <I/113> designation
      character*1   m_GC        ! Multiplicity indicator (4)
      character*11  Name        ! Bayer / Flamsteed name. (5)
      integer*4     RA1900h     ! (h) Right Ascension 1900 (hours)
      real*4        RA1900m     ! (min) Right Ascension 1900 (minutes)
      character*1   DE1900_     ! Declination 1900 (sign)
      integer*4     DE1900d     ! (deg) Declination 1900 (degrees)
      integer*4     DE1900m     ! (arcmin) Declination 1900 (minutes)
      integer*4     RAh         ! (h) Right Ascension 1950 (hours)
      real*4        RAm         ! (min) Right Ascension 1950 (minutes)
      character*1   DE_         ! Declination 1950 (sign)
      integer*4     DEd         ! (deg) Declination 1950 (degrees)
      integer*4     DEm         ! (arcmin) Declination 1950 (minutes)
      real*4        Vmag        ! (mag) []? Magnitude, generally V (6)
      real*4        B_V         ! (mag) ? B-V colour (7)
      real*4        U_B         ! (mag) ? U-B colour (7)
      real*4        b_y         ! (mag) ? b-y from Stroemgren photometry <GCPD/04>
      real*4        m1          ! (mag) ? m1 = (v-b)-(b-y) from Stroemgren
      real*4        c1          ! (mag) ? c1 = (u-v)-(v-b) from Stroemgren
      real*4        Hbeta       ! (mag) ? H-beta index from Stroemgren
      character*12  SpType      ! Spectral classification (8)
      character*11  NoteCode    ! [ABCDHNPRSV* ] Notes detailed in file notes (9)
*Note (1): Indication of the probability that the star belongs to the
*    considered category:
*    '/'  denotes a star improperly considered Ap or Am
*    '?'  doubtful nature
*    '*'  well-known Ap or Am star
*    ' '  other cases
*Note (2): Running number (initially in tens), ordered by HD number
*    (extension excluded) when such a number exists;
*    stars without HD number (including HDE stars) were merged
*    according to 1900 right ascension truncated to 0.1min.
*Note (3): Bertaud's catalogue published in "Journal des Observateurs"
*     (1959JO.....42...45B, 1960JO.....43..129B, 1965JO.....48..211B)
*Note (4): the multiplicity letter identifies the component in the
*    case of double or multiple system where components have not a
*    distinct number, except when the luminosity of the other
*    components is negligible.
*Note (5): the following conventions are used:
*    Greek letters are coded as *AA, an asterisk followed by two letters:
*       *AL=alpha           *IO=iota           *RH=rho
*       *BE=beta            *KA=kappa          *SI=sigma
*       *GA=gamma           *LA=lambda         *TA=tau
*       *DE=delta           *MU=mu             *UP=upsilon
*       *EP=epsilon         *NU=nu             *PH=phi
*       *DZ=dzeta           *XI=xi             *KH=chi
*       *ET=eta             *OI=omicron        *PS=psi
*       *TH=theta           *PI=pi             *OE=omega
*    Latin letters should be considered as lowercase letters.
*Note (6): for close double stars, this magnitude was corrected
*    from the companion's luminosity.
*Note (7): for close double stars, the colour index refers to the
*    combined light.
*Note (8):
*    A dash in column 112 indicates an Am star; this dash separates the
*    spectral type deduced from the K line and the spectral type deduced
*    from the metallic lines; delta Del-type stars are classified as Am,
*    and marked with DD. Another character in column 112 means an Ap star,
*    and the spectrum is followed by the symbols of the elements with
*    abnormal abundances. "HE FBL." means "He-weak" See also the "*" note
*    (column 122)
*Note (9): the symbols used in columns 122-132 have the following meaning:
*     '*' = Note or remark of various nature, e.g. about the spectrum.
*     'N' = Other designations (see also notes A, D, V)
*           B for number in B. Boss's "Preliminary General Catalogue";
*           W for number in Wilson's General Cat. of Stellar Radial
*             Velocities <III/21>;
*           Second DM number
*     'D' = Note concerning duplicity:
*           ADS (Aitken's catalogue) designation, magnitude and
*           angular distance of the companion
*     'A' = Note concerning clustering:
*           cluster, group or association to which the star belongs, at
*           least optically; star identification number(s) in the
*           cluster or association
*     'V' = Note about variability: variable name; nature of the
*           variability, if known, when it is not of the alpha CVn type.
*     'P' = Note about the known or proposed period observed for the
*           variations of:
*           - the luminosity and/or colours (L)
*           - the magnetic field (M)
*           - the intensity of spectral lines (S)
*           - the radial velocity computed from peculiar element lines. (V)
*     'B' = Note about binarity:
*           V.R.V. stands for Variable Radial Velocity
*           P   provides the period of Spectrocopic Binaries, and
*           E   the eccentricity
*     'H' = Note about magnetic field:
*           extreme values measured for the effective magnetic field
*           (defined in Babcock, =1957ApJS....3..141B) followed by
*           the number of measurements within brackets
*     'R' = Note concerning the rotational velocity;
*           value of the projected equatorial velocity (v sin i)
*     'S' = Remarks concerning Stroemgren's Photometry uvbyH-beta
*     'C' = Note about detection criteria, when the p or m feature is
*           not confirmed with classical spectroscopy.  Used abbreviations:
*           UV  = ultraviolet spectrophotometry (satellite obs.)
*           GEN = Geneva 7-colour photometry
*           MTZ = H.M. Maintzen's photometry <GCPD/75> (1976A&A....51..223M)

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'notes'	! Notes and addenda about the catalogued stars

      integer*4 nr__1
      parameter (nr__1=6539)	! Number of records
      character*80 ar__1  	! Full-size record

      integer*4     Seq_1       ! [1/61790] Running number as in catalog
      character*1   NoteCode_1  ! [ABCDHNPRSV*]  The same code as in
*                                   columns 122-132 of catalog file.
*                                   (blank for continuation)
      character*1   Cont        ! [:] Colon (:), or (blank for continuation)
      character*71  Text        ! *Text of the note (in French) (1)
*Note on Text: each line of notes terminates with the following punctuation:
*     ;  indicates the end of the current note
*     .  indicates the end of all notes related to a specific star
*        other means that a continuation will be found as the next record

C=============================================================================

C  Loading file 'catalog'	! The catalogue of Ap and Am stars

C  Format for file interpretation

    1 format(
     +  A1,I5,I3,I6,A1,I4,A1,A11,I5,A1,A11,I2,F4.1,A1,I2,I2,I2,F4.1,
     +  A1,I2,I2,F4.1,F5.2,F5.2,F6.3,F6.3,F6.3,F6.3,A12,A11)

C  Effective file loading

      open(unit=1,status='old',file=
     +'catalog')
      write(6,*) '....Loading file: catalog'
      do i__=1,6684
        read(1,'(A132)')ar__
        read(ar__,1)
     +  CPprob,Seq,Bertaud,HD,m_HD,HR,m_HR,DM,GC,m_GC,Name,RA1900h,
     +  RA1900m,DE1900_,DE1900d,DE1900m,RAh,RAm,DE_,DEd,DEm,Vmag,B_V,
     +  U_B,b_y,m1,c1,Hbeta,SpType,NoteCode
        if(ar__(7:9) .EQ. '') Bertaud = iNULL__
        if(ar__(10:15) .EQ. '') HD = iNULL__
        if(ar__(17:20) .EQ. '') HR = iNULL__
        if(ar__(33:37) .EQ. '') GC = iNULL__
        if(ar__(72:75) .EQ. '') Vmag = rNULL__
        if(ar__(76:80) .EQ. '') B_V = rNULL__
        if(ar__(81:85) .EQ. '') U_B = rNULL__
        if(ar__(86:91) .EQ. '') b_y = rNULL__
        if(ar__(92:97) .EQ. '') m1 = rNULL__
        if(ar__(98:103) .EQ. '') c1 = rNULL__
        if(ar__(104:109) .EQ. '') Hbeta = 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(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)
     +  CPprob,Seq,Bertaud,HD,m_HD,HR,m_HR,DM,GC,m_GC,Name,RA1900h,
     +  RA1900m,DE1900_,DE1900d,DE1900m,RAh,RAm,DE_,DEd,DEm,Vmag,B_V,
     +  U_B,b_y,m1,c1,Hbeta,SpType,NoteCode
        write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'notes'	! Notes and addenda about the catalogued stars

C  Format for file interpretation

    2 format(I5,2X,A1,A1,A71)

C  Effective file loading

      open(unit=1,status='old',file=
     +'notes')
      write(6,*) '....Loading file: notes'
      do i__=1,6539
        read(1,'(A80)')ar__1
        read(ar__1,2)Seq_1,NoteCode_1,Cont,Text
c    ..............Just test output...........
        write(6,2)Seq_1,NoteCode_1,Cont,Text
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================
      stop
      end