FORTRAN Generation
(/./ftp/cats/J/A_A/513/A65)

Conversion of standardized ReadMe file for file /./ftp/cats/J/A_A/513/A65 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. J/A+A/513/A65    Rotation measures in the fourth Galactic quadrant (Nota+, 2010)
*================================================================================
*The large-scale magnetic field in the fourth Galactic quadrant.
*    Nota T., Katgert P.
*   <Astron. Astrophys., 513, A65-65 (2010)>
*   =2010A&A...513A..65N
C=============================================================================

C  Internal variables

      integer*4 i__

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

C  Declarations for 'table2.dat'	! The rejected extragalactic sources

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

C  Position composed of: GLON GLAT
      real*4        GLON        ! (deg) Galactic longitude
      real*4        GLAT        ! (deg) Galactic latitude
      integer*4     RM          ! (rad/m2) Rotation measure
      integer*4     e_RM        ! (rad/m2) rms uncertainty on RM
      integer*4     IHa         ! H{alpha} intensity (undefined unit "R")
      integer*4     stepHa      ! [1/3]? Rejection reason (1) (G1)
      character*5   HII         ! HII region RCW number(s) (1)
      character*10  SNR         ! SNR name (1)
      character*1   n_SNR       ! [*] * indicates source rejected by Haverkorn
*                                     (2008ApJ...680..362H), confirmed with
*                                     2.4GHz survey
*Note (1): Only in table2.dat (rejected extragalactic sources).

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

C  Declarations for 'table4.dat'	! The extragalactic sources with reliable rotation
                             measure (RM) estimates

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

C  Position composed of: GLON GLAT
      real*4        GLON_1      ! (deg) Galactic longitude
      real*4        GLAT_1      ! (deg) Galactic latitude
      integer*4     RM_1        ! (rad/m2) Rotation measure
      integer*4     e_RM_1      ! (rad/m2) rms uncertainty on RM
      integer*4     IHa_1       ! H{alpha} intensity (undefined unit "R")
      integer*4     stepHa_1    ! [1/3]? Rejection reason (1) (G1)
      character*5   HII_1       ! HII region RCW number(s) (1)
      character*10  SNR_1       ! SNR name (1)
      character*1   n_SNR_1     ! [*] * indicates source rejected by Haverkorn
*                                     (2008ApJ...680..362H), confirmed with
*                                     2.4GHz survey
*Note (1): Only in table2.dat (rejected extragalactic sources).

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

C  Declarations for 'table3.dat'	! The rejected pulsars (PSR)

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

C  Position composed of: GLON GLAT
      character*10  PSR         ! PSR name (JHHMM-DDMM or BHHMM-DD)
      real*4        GLON_2      ! (deg) Galactic longitude
      real*4        GLAT_2      ! (deg) Galactic latitude
      integer*4     DM          ! (pc/cm3) Dispersion measure
      real*4        Dist        ! (kpc) Physical distance
      integer*4     RM_2        ! (rad/m2) Rotation measure
      integer*4     e_RM_2      ! (rad/m2) rms uncertainty on RM
      integer*4     IHa_2       ! H{alpha} intensity
      integer*4     stepHa_2    ! [1/3]? Rejection reason (G1) (1)
      character*1   n_stepHa    ! [ns] Note on Hastep, in notes.dat file (1)
      character*8   HII_2       ! HII region name (RCW number) (1)
      real*4        DHII        ! ? Distance of the HII region (1)
      character*3   n_DHII      ! Note on DHII, in notes.dat file (1)
      real*4        DHII2       ! ? Second distance of the HII region (1)
      character*1   n_DHII2     ! Note on DHII2, in notes.dat file (1)
      character*12  SNR_2       ! SNR name (1)
      character*1   l_DSNR      ! Limit flag on DSNR (1)
      real*4        DSNR        ! (kpc) ? Distance of the SNR (1)
      character*3   n_DSNR      ! Note on DSNR, in notes.dat file (1)
*Note (1): Only for table3.dat (rejected PSR).

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

C  Declarations for 'table5.dat'	! The pulsars with reliable RM estimates

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

C  Position composed of: GLON GLAT
      character*10  PSR_1       ! PSR name (JHHMM-DDMM or BHHMM-DD)
      real*4        GLON_3      ! (deg) Galactic longitude
      real*4        GLAT_3      ! (deg) Galactic latitude
      integer*4     DM_1        ! (pc/cm3) Dispersion measure
      real*4        Dist_1      ! (kpc) Physical distance
      integer*4     RM_3        ! (rad/m2) Rotation measure
      integer*4     e_RM_3      ! (rad/m2) rms uncertainty on RM
      integer*4     IHa_3       ! H{alpha} intensity
      integer*4     stepHa_3    ! [1/3]? Rejection reason (G1) (1)
      character*1   n_stepHa_1  ! [ns] Note on Hastep, in notes.dat file (1)
      character*8   HII_3       ! HII region name (RCW number) (1)
      real*4        DHII_1      ! ? Distance of the HII region (1)
      character*3   n_DHII_1    ! Note on DHII, in notes.dat file (1)
      real*4        DHII2_1     ! ? Second distance of the HII region (1)
      character*1   n_DHII2_1   ! Note on DHII2, in notes.dat file (1)
      character*12  SNR_3       ! SNR name (1)
      character*1   l_DSNR_1    ! Limit flag on DSNR (1)
      real*4        DSNR_1      ! (kpc) ? Distance of the SNR (1)
      character*3   n_DSNR_1    ! Note on DSNR, in notes.dat file (1)
*Note (1): Only for table3.dat (rejected PSR).

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

C  Declarations for 'notes.dat'	! Individual notes

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

      character*1   Note        ! Note code
      character*78  Text        ! Text of the note

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

C  Loading file 'table2.dat'	! The rejected extragalactic sources

C  Format for file interpretation

    1 format(F6.2,1X,F5.2,1X,I5,1X,I2,1X,I4,1X,I1,1X,A5,1X,A10,1X,A1)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table2.dat')
      write(6,*) '....Loading file: table2.dat'
      do i__=1,55
        read(1,'(A47)')ar__
        read(ar__,1)GLON,GLAT,RM,e_RM,IHa,stepHa,HII,SNR,n_SNR
        if(ar__(28:28) .EQ. '') stepHa = iNULL__
c    ..............Just test output...........
        write(6,1)GLON,GLAT,RM,e_RM,IHa,stepHa,HII,SNR,n_SNR
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table4.dat'	! The extragalactic sources with reliable rotation
*                             measure (RM) estimates

C  Format for file interpretation

    2 format(F6.2,1X,F5.2,1X,I5,1X,I2,1X,I4,1X,I1,1X,A5,1X,A10,1X,A1)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table4.dat')
      write(6,*) '....Loading file: table4.dat'
      do i__=1,107
        read(1,'(A47)')ar__1
        read(ar__1,2)
     +  GLON_1,GLAT_1,RM_1,e_RM_1,IHa_1,stepHa_1,HII_1,SNR_1,n_SNR_1
        if(ar__1(28:28) .EQ. '') stepHa_1 = iNULL__
c    ..............Just test output...........
        write(6,2)
     +  GLON_1,GLAT_1,RM_1,e_RM_1,IHa_1,stepHa_1,HII_1,SNR_1,n_SNR_1
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table3.dat'	! The rejected pulsars (PSR)

C  Format for file interpretation

    3 format(
     +  A10,1X,F6.2,1X,F5.2,1X,I4,1X,F5.2,1X,I5,1X,I2,1X,I3,1X,I1,A1,
     +  1X,A8,1X,F3.1,A3,1X,F3.1,A1,1X,A12,1X,A1,F4.2,A3)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table3.dat')
      write(6,*) '....Loading file: table3.dat'
      do i__=1,47
        read(1,'(A93)')ar__2
        read(ar__2,3)
     +  PSR,GLON_2,GLAT_2,DM,Dist,RM_2,e_RM_2,IHa_2,stepHa_2,n_stepHa,
     +  HII_2,DHII,n_DHII,DHII2,n_DHII2,SNR_2,l_DSNR,DSNR,n_DSNR
        if(ar__2(49:49) .EQ. '') stepHa_2 = iNULL__
        if(ar__2(61:63) .EQ. '') DHII = rNULL__
        if(ar__2(68:70) .EQ. '') DHII2 = rNULL__
        if(ar__2(87:90) .EQ. '') DSNR = rNULL__
c    ..............Just test output...........
        write(6,3)
     +  PSR,GLON_2,GLAT_2,DM,Dist,RM_2,e_RM_2,IHa_2,stepHa_2,n_stepHa,
     +  HII_2,DHII,n_DHII,DHII2,n_DHII2,SNR_2,l_DSNR,DSNR,n_DSNR
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table5.dat'	! The pulsars with reliable RM estimates

C  Format for file interpretation

    4 format(
     +  A10,1X,F6.2,1X,F5.2,1X,I4,1X,F5.2,1X,I5,1X,I2,1X,I3,1X,I1,A1,
     +  1X,A8,1X,F3.1,A3,1X,F3.1,A1,1X,A12,1X,A1,F4.2,A3)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table5.dat')
      write(6,*) '....Loading file: table5.dat'
      do i__=1,132
        read(1,'(A93)')ar__3
        read(ar__3,4)
     +  PSR_1,GLON_3,GLAT_3,DM_1,Dist_1,RM_3,e_RM_3,IHa_3,stepHa_3,
     +  n_stepHa_1,HII_3,DHII_1,n_DHII_1,DHII2_1,n_DHII2_1,SNR_3,
     +  l_DSNR_1,DSNR_1,n_DSNR_1
        if(ar__3(49:49) .EQ. '') stepHa_3 = iNULL__
        if(ar__3(61:63) .EQ. '') DHII_1 = rNULL__
        if(ar__3(68:70) .EQ. '') DHII2_1 = rNULL__
        if(ar__3(87:90) .EQ. '') DSNR_1 = rNULL__
c    ..............Just test output...........
        write(6,4)
     +  PSR_1,GLON_3,GLAT_3,DM_1,Dist_1,RM_3,e_RM_3,IHa_3,stepHa_3,
     +  n_stepHa_1,HII_3,DHII_1,n_DHII_1,DHII2_1,n_DHII2_1,SNR_3,
     +  l_DSNR_1,DSNR_1,n_DSNR_1
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'notes.dat'	! Individual notes

C  Format for file interpretation

    5 format(A1,1X,A78)

C  Effective file loading

      open(unit=1,status='old',file=
     +'notes.dat')
      write(6,*) '....Loading file: notes.dat'
      do i__=1,31
        read(1,'(A80)')ar__4
        read(ar__4,5)Note,Text
c    ..............Just test output...........
        write(6,5)Note,Text
c    .......End.of.Just test output...........
      end do
      close(1)

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