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

Conversion of standardized ReadMe file for file /./ftp/cats/IX/18 into FORTRAN code for loading all data files into arrays.

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       (nr__) ! !+ EXSS source name
      real*8        RArad      (nr__) ! (rad) Right Ascension (B1950.0)
      real*8        DErad      (nr__) ! (rad) Declination (B1950.0)
      real*4        cts1       (nr__) ! (ct/s) IPC photon counts per second for detection in
*                                aperture 1 (0.000 = no detection)
      real*4        cts2       (nr__) ! (ct/s) IPC photon counts per second for detection in
*                                aperture 2 (0.000 = no detection)
      real*4        cts3       (nr__) ! (ct/s) IPC photon counts per second for detection in
*                                aperture 3 (0.000 = no detection)
      real*4        cts4       (nr__) ! (ct/s) IPC photon counts per second for detection in
*                                aperture 4 (0.000 = no detection)
      real*4        S_N1       (nr__) ! ?=0.00 Signal to noise ratio for aperture 1
      real*4        S_N2       (nr__) ! ?=0.00 Signal to noise ratio for aperture 2
      real*4        S_N3       (nr__) ! ?=0.00 Signal to noise ratio for aperture 3
      real*4        S_N4       (nr__) ! ?=0.00 Signal to noise ratio for aperture 4
      real*4        dRA1       (nr__) ! (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       (nr__) ! (arcsec) Offset in declination for aperture 1
      real*4        dRA2       (nr__) ! (arcsec) Offset in right ascension for aperture 2
      real*4        dDE2       (nr__) ! (arcsec) Offset in declination for aperture 2
      real*4        dRA3       (nr__) ! (arcsec) Offset in right ascension for aperture 3
      real*4        dDE3       (nr__) ! (arcsec) Offset in declination for aperture 3
      real*4        dRA4       (nr__) ! (arcsec) Offset in right ascension for aperture 4
      real*4        dDE4       (nr__) ! (arcsec) Offset in declination for aperture 4
      integer*4     PPM        (nr__) ! ?=-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       (nr__) ! (mag) ?=-99.00 V band magnitude of the PPM star
      real*4        dRA11      (nr__) ! (arcsec) ?=-99.00 Right ascension difference between
*                                  PPM and EXSS positions
      real*4        dDE11      (nr__) ! (arcsec) ?=-99.00 Declination difference between the
*                                  PPM and EXSS positions
      character*13  EMSS       (nr__) ! EMSS source <IX/15> identified with
*                                  the EXSS source
      character*4   Typ11      (nr__) ! Type of the EMSS source (from EMSS catalog)
      real*4        S_N11      (nr__) ! ?=-99.0 Signal to noise ratio of the EMSS
*                                  source with the EMSS detection algorithm
      real*4        dRA12      (nr__) ! (arcsec) ?=-99.00 Right ascension difference between
*                                  the EMSS and the EXSS positions
      real*4        dDE12      (nr__) ! (arcsec) ?=-99.00 Declination difference between
*                                  the EMSS and the EXSS positions
      character*12  ZwCl       (nr__) ! Zwicky cluster of galaxies identified with
*                                  the EXSS source (see cat. <VII/4>)
      real*4        Size       (nr__) ! (arcsec) ?=-99.0 Approximate size of the Zwicky
*                                 cluster (from the Zwicky catalog)
      real*4        dRA13      (nr__) ! (arcsec) ?=-99.00 Right ascension difference between
*                                 ZwCl and EXSS positions.
      real*4        dDE13      (nr__) ! (arcsec) ?=-99.00 Declination difference between
*                                 ZwCl and EXSS positions.
      character*10  Abell      (nr__) ! Abell cluster of galaxies identified with
*                                 the EXSS source (see cat. <VII/4>)
      real*4        dRA14      (nr__) ! (arcsec) ?=-99.00 Right ascension difference between
*                                 Abell and EXSS positions
      real*4        dDE14      (nr__) ! (arcsec) ?=-99.00 Declination difference between
*                                 Abell and EXSS positions
      character*4   Typ14      (nr__) ! The type of the corresponding source in
*                                 the EINLINE database that is identified
*                                 with the EXSS source
      real*4        dRA15      (nr__) ! (arcsec) ?=-99.00 Right ascension difference between
*                                 EINLINE and EXSS positions
      real*4        dDE15      (nr__) ! (arcsec) ?=-99.00 Declination difference between
*                                 EINLINE and EXSS positions
      real*4        d2         (nr__) ! (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(i__),RArad(i__),DErad(i__),cts1(i__),cts2(i__),cts3(i__),
     +  cts4(i__),S_N1(i__),S_N2(i__),S_N3(i__),S_N4(i__),dRA1(i__),
     +  dDE1(i__),dRA2(i__),dDE2(i__),dRA3(i__),dDE3(i__),dRA4(i__),
     +  dDE4(i__),PPM(i__),Vmag(i__),dRA11(i__),dDE11(i__),EMSS(i__),
     +  Typ11(i__),S_N11(i__),dRA12(i__),dDE12(i__),ZwCl(i__),
     +  Size(i__),dRA13(i__),dDE13(i__),Abell(i__),dRA14(i__),
     +  dDE14(i__),Typ14(i__),dRA15(i__),dDE15(i__),d2(i__)
c    ..............Just test output...........
        write(6,1)
     +  Name(i__),RArad(i__),DErad(i__),cts1(i__),cts2(i__),cts3(i__),
     +  cts4(i__),S_N1(i__),S_N2(i__),S_N3(i__),S_N4(i__),dRA1(i__),
     +  dDE1(i__),dRA2(i__),dDE2(i__),dRA3(i__),dDE3(i__),dRA4(i__),
     +  dDE4(i__),PPM(i__),Vmag(i__),dRA11(i__),dDE11(i__),EMSS(i__),
     +  Typ11(i__),S_N11(i__),dRA12(i__),dDE12(i__),ZwCl(i__),
     +  Size(i__),dRA13(i__),dDE13(i__),Abell(i__),dRA14(i__),
     +  dDE14(i__),Typ14(i__),dRA15(i__),dDE15(i__),d2(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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