FORTRAN Generation
(/./ftp/cats/IX/18)

Conversion of standardized ReadMe file for file /./ftp/cats/IX/18 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-19
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. IX/18             EINSTEIN extended source survey (EXSS)     (Oppenheimer+ 1997)
*================================================================================
*A survey of the EINSTEIN IPC Database for extended X-ray sources.
*     Oppenheimer B.R., Helfand D.J., Gaidos E.J.
*    <Astron. J. 113, 2134-2146 (1997)>
*    =1997AJ....113.2134O       (SIMBAD/NED BibCode)
C=============================================================================

C  Internal variables

      integer*4 i__

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

C  Declarations for 'catalog'	! The EXSS Catalogue

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

C  B1950.0 position composed of: RArad DErad
      character*16  Name        ! !+ EXSS source name
      real*8        RArad       ! (rad) Right Ascension (B1950.0)
      real*8        DErad       ! (rad) Declination (B1950.0)
      real*4        cts1        ! (ct/s) IPC photon counts per second for detection in
*                                aperture 1 (0.000 = no detection)
      real*4        cts2        ! (ct/s) IPC photon counts per second for detection in
*                                aperture 2 (0.000 = no detection)
      real*4        cts3        ! (ct/s) IPC photon counts per second for detection in
*                                aperture 3 (0.000 = no detection)
      real*4        cts4        ! (ct/s) IPC photon counts per second for detection in
*                                aperture 4 (0.000 = no detection)
      real*4        S_N1        ! ?=0.00 Signal to noise ratio for aperture 1
      real*4        S_N2        ! ?=0.00 Signal to noise ratio for aperture 2
      real*4        S_N3        ! ?=0.00 Signal to noise ratio for aperture 3
      real*4        S_N4        ! ?=0.00 Signal to noise ratio for aperture 4
      real*4        dRA1        ! (arcsec) Offset in right ascension of the aperture 1 
*                                 detection from the assumed object position 
*                                 (columns 1 and 2), found through the technique 
*                                 described in the paper
      real*4        dDE1        ! (arcsec) Offset in declination for aperture 1
      real*4        dRA2        ! (arcsec) Offset in right ascension for aperture 2
      real*4        dDE2        ! (arcsec) Offset in declination for aperture 2
      real*4        dRA3        ! (arcsec) Offset in right ascension for aperture 3
      real*4        dDE3        ! (arcsec) Offset in declination for aperture 3
      real*4        dRA4        ! (arcsec) Offset in right ascension for aperture 4
      real*4        dDE4        ! (arcsec) Offset in declination for aperture 4
      integer*4     PPM         ! ?=-99 Star number from the Positions and
*                                 Proper Motions (PPM) Catalog (<I/146>,
*                                 <I/193> and <I/208>) for the star which
*                                 is identified with the EXSS source.
      real*4        Vmag        ! (mag) ?=-99.00 V band magnitude of the PPM star
      real*4        dRA11       ! (arcsec) ?=-99.00 Right ascension difference between
*                                  PPM and EXSS positions
      real*4        dDE11       ! (arcsec) ?=-99.00 Declination difference between the
*                                  PPM and EXSS positions
      character*13  EMSS        ! EMSS source <IX/15> identified with
*                                  the EXSS source
      character*4   Typ11       ! Type of the EMSS source (from EMSS catalog)
      real*4        S_N11       ! ?=-99.0 Signal to noise ratio of the EMSS
*                                  source with the EMSS detection algorithm
      real*4        dRA12       ! (arcsec) ?=-99.00 Right ascension difference between
*                                  the EMSS and the EXSS positions
      real*4        dDE12       ! (arcsec) ?=-99.00 Declination difference between
*                                  the EMSS and the EXSS positions
      character*12  ZwCl        ! Zwicky cluster of galaxies identified with
*                                  the EXSS source (see cat. <VII/4>)
      real*4        Size        ! (arcsec) ?=-99.0 Approximate size of the Zwicky
*                                 cluster (from the Zwicky catalog)
      real*4        dRA13       ! (arcsec) ?=-99.00 Right ascension difference between
*                                 ZwCl and EXSS positions.
      real*4        dDE13       ! (arcsec) ?=-99.00 Declination difference between
*                                 ZwCl and EXSS positions.
      character*10  Abell       ! Abell cluster of galaxies identified with
*                                 the EXSS source (see cat. <VII/4>)
      real*4        dRA14       ! (arcsec) ?=-99.00 Right ascension difference between
*                                 Abell and EXSS positions
      real*4        dDE14       ! (arcsec) ?=-99.00 Declination difference between
*                                 Abell and EXSS positions
      character*4   Typ14       ! The type of the corresponding source in
*                                 the EINLINE database that is identified
*                                 with the EXSS source
      real*4        dRA15       ! (arcsec) ?=-99.00 Right ascension difference between
*                                 EINLINE and EXSS positions
      real*4        dDE15       ! (arcsec) ?=-99.00 Declination difference between
*                                 EINLINE and EXSS positions
      real*4        d2          ! (arcsec) ?=140.01 The quadratic sum of dRA15 and dDE15

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

C  Loading file 'catalog'	! The EXSS Catalogue

C  Format for file interpretation

    1 format(
     +  A16,2X,F9.7,1X,F10.7,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.2,
     +  1X,F6.2,1X,F6.2,1X,F6.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,
     +  F5.2,3X,F5.2,3X,F5.2,3X,F5.2,2X,I6,1X,F6.2,2X,F6.2,2X,F6.2,1X,
     +  A13,1X,A4,2X,F5.1,2X,F6.2,2X,F6.2,2X,A12,3X,F5.1,2X,F6.2,2X,
     +  F6.2,3X,A10,3X,F6.2,2X,F6.2,1X,A4,3X,F6.2,2X,F6.2,1X,F6.2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'catalog')
      write(6,*) '....Loading file: catalog'
      do i__=1,1325
        read(1,'(A328)')ar__
        read(ar__,1)
     +  Name,RArad,DErad,cts1,cts2,cts3,cts4,S_N1,S_N2,S_N3,S_N4,dRA1,
     +  dDE1,dRA2,dDE2,dRA3,dDE3,dRA4,dDE4,PPM,Vmag,dRA11,dDE11,EMSS,
     +  Typ11,S_N11,dRA12,dDE12,ZwCl,Size,dRA13,dDE13,Abell,dRA14,
     +  dDE14,Typ14,dRA15,dDE15,d2
c    ..............Just test output...........
        write(6,1)
     +  Name,RArad,DErad,cts1,cts2,cts3,cts4,S_N1,S_N2,S_N3,S_N4,dRA1,
     +  dDE1,dRA2,dDE2,dRA3,dDE3,dRA4,dDE4,PPM,Vmag,dRA11,dDE11,EMSS,
     +  Typ11,S_N11,dRA12,dDE12,ZwCl,Size,dRA13,dDE13,Abell,dRA14,
     +  dDE14,Typ14,dRA15,dDE15,d2
c    .......End.of.Just test output...........
      end do
      close(1)

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