FORTRAN Generation
(/./ftp/cats/J/A_A/442/1135)

Conversion of standardized ReadMe file for file /./ftp/cats/J/A_A/442/1135 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-29
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. J/A+A/442/1135   High-mass X-ray binaries in the Magellanic Clouds  (Liu+, 2005)
*================================================================================
*High-mass X-ray binaries in the Magellanic Clouds.
*    Liu Q.Z., van Paradijs J., van den Heuvel E.P.J.
*   <Astron. Astrophys. 442, 1135 (2005)>
*   =2005A&A...442.1135L
C=============================================================================

C  Internal variables

      integer*4 i__

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

C  Declarations for 'table1.dat'	! High Mass X-ray binaries in Small Magellanic Cloud

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

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

      character*22  Name        ! Source name (1)
      character*3   Type        ! [TUP ] Type (2)
      integer*4     RAh         ! (h) ? Right ascension (J2000) (3)
      integer*4     RAm         ! (min) ? Right ascension (J2000)
      real*4        RAs         ! (s) ? Right ascension (J2000)
      character*1   DE_         ! Declination sign (J2000)
      integer*4     DEd         ! (deg) ? Declination  (J2000) (3)
      integer*4     DEm         ! (arcmin) ? Declination  (J2000)
      real*4        DEs         ! (arcsec) ? Declination  (J2000)
      real*4        GLON        ! (deg) ? Galactic longitude (4)
      real*4        GLAT        ! (deg) ? Galactic latitude (4)
      character*13  Opt         ! Optical counterpart designation
      character*13  Opt2        ! Second optical counterpart designation (5)
      character*10  r_Opt       ! Reference for Optical counterpart (finding
*                                    charts)
      character*1   l_Vmag      ! [~] Limit flag on Vmag
      real*4        Vmag        ! (mag) ? V (or B) magnitude
      real*4        Vmagu       ! (mag) ? Upper limit of V mag when interval
      character*1   n_Vmag      ! [B] B if B magnitude in Vmag
      real*4        B_V         ! (mag) ? B-V colour index (or R magnitude)
      character*1   n_B_V       ! [R] R if R magnitude in B-V
      real*4        U_B         ! (mag) ? U-B colour index
      character*11  SpType      ! MK spectral index
      real*4        E_B_V       ! (mag) ? Interstellar reddening
      real*4        E_B_V_u     ! (mag) ? Upper limit of E(B-V) interval
      character*16  r_Vmag      ! References for UBV photometry
      character*1   l_Fx        ! [~<] Limit flag on Fx
      real*8        Fx          ! (uJy) ? Average X-ray flux (2-10keV)
      real*4        Fxu         ! (uJy) ? Upper limit of X-ray flux when interval
      character*14  Range       ! Energy range for flux if not 2-20keV
      character*12  r_Fx        ! References for X-ray flux
      real*8        Porb        ! (d) ? Orbital period
      character*1   u_Porb      ! [?] Uncertainty flag on Porb
      real*8        Ppulse      ! (s) ? Pulse period for X-ray pulsars
      character*15  r_Ppulse    ! References for Pulse period
      character*21  Name2       ! Other name (5)
*Note (1): Source name, with rough information on its sky location,
*    according to the conventional source nomenclature of space satellites
*    in which the source was detected, hhmm+/-ddd, or hhmm.m+/-ddmm. Here
*    hh, mm and ss indicate the hours, minutes and seconds of right
*    ascension, ddd the declination in units of 0.1 degree (in a small
*    number of cases, the coordinates shown in the name are given with
*    more, or fewer, digits). The prefix J indicates a name based on J2000
*    coordinates. Otherwise, 1950 coordinates were used in the name.
*Note (2): Type is defined as follows:
*      P = X-ray pulsar (47 in the SMC and 7 in the LMC)
*      T = transient X-ray source
*      U = ultra-soft X-ray spectrum. These sources include black-hole
*          candidates; some 'extreme ultra-soft' (EUS) source may be white
*          dwarf (WD) on whose surface steady nuclear burning takes place.
*Note (3): The right ascension is given to an accuracy of 0.1s,
*    declination to an accuracy of 1" (in a small number of cases,
*    the coordinates are given with more, or fewer, digits).
*Note (4): Galactic longitude and latitude are given to an accuracy of 0.1{deg}
*Note (5): An asterisk followed by a number or letter refers to star
*    numbers used in the finding chart; "star" refers a star in the finding
*    chart that has not been assigned a number or letter. Many optical
*    counterparts have been indicated with a Halpha emission-line object in
*    the SMC by Meyssonier & Azzopardi (1993, Cat. <J/A+AS/102/451> here
*    after MA93) and a Small Magellanic Cloud member star by Azzopardi &
*    Vigneau (1982A&AS...50..291A, hereafter AzV), or a number in a
*    well-known catalogue (e.g., GSC, 2MASS, OGLE, MACHO etc.).

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

C  Declarations for 'notes1.dat'	! Individual notes for table1.dat

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

      character*22  Name_1      ! Source name
      character*76  Note        ! Text of the note

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

C  Declarations for 'table2.dat'	! High Mass X-ray binaries in Large Magellanic Cloud

      integer*4 nr__2
      parameter (nr__2=36)	! Number of records
      character*275 ar__2  	! Full-size record

C  J2000 position composed of: RAh RAm RAs DE- DEd DEm DEs
      real*8        RAdeg_1     ! (deg) Right Ascension J2000
      real*8        DEdeg_1     ! (deg)     Declination J2000
C  ---------------------------------- ! (position vector(s) in degrees)

      character*22  Name_2      ! Source name (1)
      character*3   Type_1      ! [TUP ] Type (2)
      integer*4     RAh_1       ! (h) ? Right ascension (J2000) (3)
      integer*4     RAm_1       ! (min) ? Right ascension (J2000)
      real*4        RAs_1       ! (s) ? Right ascension (J2000)
      character*1   DE__1       ! Declination sign (J2000)
      integer*4     DEd_1       ! (deg) ? Declination  (J2000) (3)
      integer*4     DEm_1       ! (arcmin) ? Declination  (J2000)
      real*4        DEs_1       ! (arcsec) ? Declination  (J2000)
      real*4        GLON_1      ! (deg) ? Galactic longitude (4)
      real*4        GLAT_1      ! (deg) ? Galactic latitude (4)
      character*13  Opt_1       ! Optical counterpart designation
      character*13  Opt2_1      ! Second optical counterpart designation (5)
      character*10  r_Opt_1     ! Reference for Optical counterpart (finding
*                                    charts)
      character*1   l_Vmag_1    ! [~] Limit flag on Vmag
      real*4        Vmag_1      ! (mag) ? V (or B) magnitude
      real*4        Vmagu_1     ! (mag) ? Upper limit of V mag when interval
      character*1   n_Vmag_1    ! [B] B if B magnitude in Vmag
      real*4        B_V_1       ! (mag) ? B-V colour index (or R magnitude)
      character*1   n_B_V_1     ! [R] R if R magnitude in B-V
      real*4        U_B_1       ! (mag) ? U-B colour index
      character*11  SpType_1    ! MK spectral index
      real*4        E_B_V_1     ! (mag) ? Interstellar reddening
      real*4        E_B_V_u_1   ! (mag) ? Upper limit of E(B-V) interval
      character*16  r_Vmag_1    ! References for UBV photometry
      character*1   l_Fx_1      ! [~<] Limit flag on Fx
      real*8        Fx_1        ! (uJy) ? Average X-ray flux (2-10keV)
      real*4        Fxu_1       ! (uJy) ? Upper limit of X-ray flux when interval
      character*14  Range_1     ! Energy range for flux if not 2-20keV
      character*12  r_Fx_1      ! References for X-ray flux
      real*8        Porb_1      ! (d) ? Orbital period
      character*1   u_Porb_1    ! [?] Uncertainty flag on Porb
      real*8        Ppulse_1    ! (s) ? Pulse period for X-ray pulsars
      character*15  r_Ppulse_1  ! References for Pulse period
      character*21  Name2_1     ! Other name (5)
*Note (1): Source name, with rough information on its sky location,
*    according to the conventional source nomenclature of space satellites
*    in which the source was detected, hhmm+/-ddd, or hhmm.m+/-ddmm. Here
*    hh, mm and ss indicate the hours, minutes and seconds of right
*    ascension, ddd the declination in units of 0.1 degree (in a small
*    number of cases, the coordinates shown in the name are given with
*    more, or fewer, digits). The prefix J indicates a name based on J2000
*    coordinates. Otherwise, 1950 coordinates were used in the name.
*Note (2): Type is defined as follows:
*      P = X-ray pulsar (47 in the SMC and 7 in the LMC)
*      T = transient X-ray source
*      U = ultra-soft X-ray spectrum. These sources include black-hole
*          candidates; some 'extreme ultra-soft' (EUS) source may be white
*          dwarf (WD) on whose surface steady nuclear burning takes place.
*Note (3): The right ascension is given to an accuracy of 0.1s,
*    declination to an accuracy of 1" (in a small number of cases,
*    the coordinates are given with more, or fewer, digits).
*Note (4): Galactic longitude and latitude are given to an accuracy of 0.1{deg}
*Note (5): An asterisk followed by a number or letter refers to star
*    numbers used in the finding chart; "star" refers a star in the finding
*    chart that has not been assigned a number or letter. Many optical
*    counterparts have been indicated with a Halpha emission-line object in
*    the SMC by Meyssonier & Azzopardi (1993, Cat. <J/A+AS/102/451> here
*    after MA93) and a Small Magellanic Cloud member star by Azzopardi &
*    Vigneau (1982A&AS...50..291A, hereafter AzV), or a number in a
*    well-known catalogue (e.g., GSC, 2MASS, OGLE, MACHO etc.).

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

C  Declarations for 'notes2.dat'	! Individual notes for table2.dat

      integer*4 nr__3
      parameter (nr__3=129)	! Number of records
      character*99 ar__3  	! Full-size record

      character*22  Name_3      ! Source name
      character*76  Note_1      ! Text of the note

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

C  Declarations for 'refs.dat'	! References

      integer*4 nr__4
      parameter (nr__4=273)	! Number of records
      character*206 ar__4  	! Full-size record

      integer*4     Ref         ! [1/273] Reference number
      character*19  BibCode     ! BibCode
      character*29  Aut         ! Author's name
      character*152 Com         ! Comments

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

C  Loading file 'table1.dat'	! High Mass X-ray binaries in Small Magellanic Cloud

C  Format for file interpretation

    1 format(
     +  A22,1X,A3,1X,I2,1X,I2,1X,F5.2,1X,A1,I2,1X,I2,1X,F4.1,1X,F5.1,
     +  2X,F5.1,1X,A13,1X,A13,2X,A10,1X,A1,F6.3,1X,F4.1,A1,1X,F6.3,A1,
     +  1X,F5.2,1X,A11,1X,F4.2,1X,F4.2,2X,A16,1X,A1,F8.4,1X,F6.3,1X,
     +  A14,2X,A12,1X,F7.3,A1,1X,F9.4,2X,A15,1X,A21)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table1.dat')
      write(6,*) '....Loading file: table1.dat'
      do i__=1,92
        read(1,'(A275)')ar__
        read(ar__,1)
     +  Name,Type,RAh,RAm,RAs,DE_,DEd,DEm,DEs,GLON,GLAT,Opt,Opt2,
     +  r_Opt,l_Vmag,Vmag,Vmagu,n_Vmag,B_V,n_B_V,U_B,SpType,E_B_V,
     +  E_B_V_u,r_Vmag,l_Fx,Fx,Fxu,Range,r_Fx,Porb,u_Porb,Ppulse,
     +  r_Ppulse,Name2
        if(ar__(28:29) .EQ. '') RAh = iNULL__
        if(ar__(31:32) .EQ. '') RAm = iNULL__
        if(ar__(34:38) .EQ. '') RAs = rNULL__
        if(ar__(41:42) .EQ. '') DEd = iNULL__
        if(ar__(44:45) .EQ. '') DEm = iNULL__
        if(ar__(47:50) .EQ. '') DEs = rNULL__
        if(ar__(52:56) .EQ. '') GLON = rNULL__
        if(ar__(59:63) .EQ. '') GLAT = rNULL__
        if(ar__(106:111) .EQ. '') Vmag = rNULL__
        if(ar__(113:116) .EQ. '') Vmagu = rNULL__
        if(ar__(119:124) .EQ. '') B_V = rNULL__
        if(ar__(127:131) .EQ. '') U_B = rNULL__
        if(ar__(145:148) .EQ. '') E_B_V = rNULL__
        if(ar__(150:153) .EQ. '') E_B_V_u = rNULL__
        if(ar__(174:181) .EQ. '') Fx = rNULL__
        if(ar__(183:188) .EQ. '') Fxu = rNULL__
        if(ar__(219:225) .EQ. '') Porb = rNULL__
        if(ar__(228:236) .EQ. '') Ppulse = 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(RAs .GT. -180) RAdeg=RAdeg+RAs/240.
        if(DEd .GE. 0) DEdeg=DEd
        if(DEm .GE. 0) DEdeg=DEdeg+DEm/60.
        if(DEs .GE. 0) DEdeg=DEdeg+DEs/3600.
        if(DE_.EQ.'-'.AND.DEdeg.GE.0) DEdeg=-DEdeg
c    ..............Just test output...........
        write(6,1)
     +  Name,Type,RAh,RAm,RAs,DE_,DEd,DEm,DEs,GLON,GLAT,Opt,Opt2,
     +  r_Opt,l_Vmag,Vmag,Vmagu,n_Vmag,B_V,n_B_V,U_B,SpType,E_B_V,
     +  E_B_V_u,r_Vmag,l_Fx,Fx,Fxu,Range,r_Fx,Porb,u_Porb,Ppulse,
     +  r_Ppulse,Name2
        write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'notes1.dat'	! Individual notes for table1.dat

C  Format for file interpretation

    2 format(A22,1X,A76)

C  Effective file loading

      open(unit=1,status='old',file=
     +'notes1.dat')
      write(6,*) '....Loading file: notes1.dat'
      do i__=1,353
        read(1,'(A99)')ar__1
        read(ar__1,2)Name_1,Note
c    ..............Just test output...........
        write(6,2)Name_1,Note
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table2.dat'	! High Mass X-ray binaries in Large Magellanic Cloud

C  Format for file interpretation

    3 format(
     +  A22,1X,A3,1X,I2,1X,I2,1X,F5.2,1X,A1,I2,1X,I2,1X,F4.1,1X,F5.1,
     +  2X,F5.1,1X,A13,1X,A13,2X,A10,1X,A1,F6.3,1X,F4.1,A1,1X,F6.3,A1,
     +  1X,F5.2,1X,A11,1X,F4.2,1X,F4.2,2X,A16,1X,A1,F8.4,1X,F6.3,1X,
     +  A14,2X,A12,1X,F7.3,A1,1X,F9.4,2X,A15,1X,A21)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table2.dat')
      write(6,*) '....Loading file: table2.dat'
      do i__=1,36
        read(1,'(A275)')ar__2
        read(ar__2,3)
     +  Name_2,Type_1,RAh_1,RAm_1,RAs_1,DE__1,DEd_1,DEm_1,DEs_1,
     +  GLON_1,GLAT_1,Opt_1,Opt2_1,r_Opt_1,l_Vmag_1,Vmag_1,Vmagu_1,
     +  n_Vmag_1,B_V_1,n_B_V_1,U_B_1,SpType_1,E_B_V_1,E_B_V_u_1,
     +  r_Vmag_1,l_Fx_1,Fx_1,Fxu_1,Range_1,r_Fx_1,Porb_1,u_Porb_1,
     +  Ppulse_1,r_Ppulse_1,Name2_1
        if(ar__2(28:29) .EQ. '') RAh_1 = iNULL__
        if(ar__2(31:32) .EQ. '') RAm_1 = iNULL__
        if(ar__2(34:38) .EQ. '') RAs_1 = rNULL__
        if(ar__2(41:42) .EQ. '') DEd_1 = iNULL__
        if(ar__2(44:45) .EQ. '') DEm_1 = iNULL__
        if(ar__2(47:50) .EQ. '') DEs_1 = rNULL__
        if(ar__2(52:56) .EQ. '') GLON_1 = rNULL__
        if(ar__2(59:63) .EQ. '') GLAT_1 = rNULL__
        if(ar__2(106:111) .EQ. '') Vmag_1 = rNULL__
        if(ar__2(113:116) .EQ. '') Vmagu_1 = rNULL__
        if(ar__2(119:124) .EQ. '') B_V_1 = rNULL__
        if(ar__2(127:131) .EQ. '') U_B_1 = rNULL__
        if(ar__2(145:148) .EQ. '') E_B_V_1 = rNULL__
        if(ar__2(150:153) .EQ. '') E_B_V_u_1 = rNULL__
        if(ar__2(174:181) .EQ. '') Fx_1 = rNULL__
        if(ar__2(183:188) .EQ. '') Fxu_1 = rNULL__
        if(ar__2(219:225) .EQ. '') Porb_1 = rNULL__
        if(ar__2(228:236) .EQ. '') Ppulse_1 = rNULL__
        RAdeg_1 = rNULL__
        DEdeg_1 = rNULL__
c  Derive coordinates RAdeg_1 and DEdeg_1 from input data
c  (RAdeg_1 and DEdeg_1 are set to rNULL__ when unknown)
        if(RAh_1 .GT. -180) RAdeg_1=RAh_1*15.
        if(RAm_1 .GT. -180) RAdeg_1=RAdeg_1+RAm_1/4.
        if(RAs_1 .GT. -180) RAdeg_1=RAdeg_1+RAs_1/240.
        if(DEd_1 .GE. 0) DEdeg_1=DEd_1
        if(DEm_1 .GE. 0) DEdeg_1=DEdeg_1+DEm_1/60.
        if(DEs_1 .GE. 0) DEdeg_1=DEdeg_1+DEs_1/3600.
        if(DE__1.EQ.'-'.AND.DEdeg_1.GE.0) DEdeg_1=-DEdeg_1
c    ..............Just test output...........
        write(6,3)
     +  Name_2,Type_1,RAh_1,RAm_1,RAs_1,DE__1,DEd_1,DEm_1,DEs_1,
     +  GLON_1,GLAT_1,Opt_1,Opt2_1,r_Opt_1,l_Vmag_1,Vmag_1,Vmagu_1,
     +  n_Vmag_1,B_V_1,n_B_V_1,U_B_1,SpType_1,E_B_V_1,E_B_V_u_1,
     +  r_Vmag_1,l_Fx_1,Fx_1,Fxu_1,Range_1,r_Fx_1,Porb_1,u_Porb_1,
     +  Ppulse_1,r_Ppulse_1,Name2_1
        write(6,'(6H Pos: 2F8.4)') RAdeg_1,DEdeg_1
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'notes2.dat'	! Individual notes for table2.dat

C  Format for file interpretation

    4 format(A22,1X,A76)

C  Effective file loading

      open(unit=1,status='old',file=
     +'notes2.dat')
      write(6,*) '....Loading file: notes2.dat'
      do i__=1,129
        read(1,'(A99)')ar__3
        read(ar__3,4)Name_3,Note_1
c    ..............Just test output...........
        write(6,4)Name_3,Note_1
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'refs.dat'	! References

C  Format for file interpretation

    5 format(I3,1X,A19,1X,A29,1X,A152)

C  Effective file loading

      open(unit=1,status='old',file=
     +'refs.dat')
      write(6,*) '....Loading file: refs.dat'
      do i__=1,273
        read(1,'(A206)')ar__4
        read(ar__4,5)Ref,BibCode,Aut,Com
c    ..............Just test output...........
        write(6,5)Ref,BibCode,Aut,Com
c    .......End.of.Just test output...........
      end do
      close(1)

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