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