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