FORTRAN Generation
(/./ftp/cats/II/63A)

Conversion of standardized ReadMe file for file /./ftp/cats/II/63A 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-28
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. II/63A              Balmer Lines Photometric Data     (Mermilliod+ 1980)
*================================================================================
*A Compilation of Balmer lines photometric data
*     Mermilliod J.C., Mermilliod M.
*    <Bull. Inform. CDS 19, 65 (1980)>
*    =1980BICDS..19...65M
C=============================================================================

C  Internal variables

      integer*4 i__

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

C  Declarations for 'phot42.dat'	! *Tebbe (alpha, beta) photometry

      integer*4 nr__
      parameter (nr__=80)	! Number of records
      character*124 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*11  LID         ! Coded designation in Lausanne/Geneve system
      real*4        alpha       ! (mag) *? Tebbe alpha index = 2.5log(Wa) - 2.5log(Na)
      real*4        beta        ! (mag) *  Tebbe beta  index = 2.5log(Wb) - 2.5log(Nb)
      integer*4     o_alpha     ! Number of observations of alpha and beta
      integer*4     r_alpha     ! Reference
      character*20  SimID       ! Name recognized by Simbad (G1)
      integer*4     RAh         ! (h) Right Ascension J2000 (hours) (G1)
      integer*4     RAm         ! (min) Right Ascension J2000 (minutes) (G1)
      real*4        RAs         ! (s) Right Ascension J2000 (seconds) (G1)
      character*1   DE_         ! Declination J2000 (sign) (G1)
      integer*4     DEd         ! (deg) Declination J2000 (degrees) (G1)
      integer*4     DEm         ! (arcmin) Declination J2000 (minutes) (G1)
      integer*4     DEs         ! (arcsec) Declination J2000 (seconds) (G1)
*Note on alpha, beta:
*     See the description in "Note on phot42.dat" section above

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

C  Declarations for 'phot43.dat'	! *Sinnerstad (beta, gamma) photometry

      integer*4 nr__1
      parameter (nr__1=67)	! Number of records
      character*124 ar__1  	! 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*11  LID_1       ! Coded designation
      real*4        beta_1      ! (mag) *Sinnerstad  beta index
      real*4        gamma       ! (mag) *Sinnerstad gamma index
      integer*4     o_gamma     ! Number of observations of alpha and beta
      integer*4     r_gamma     ! Reference
      character*20  SimID_1     ! Name recognized by Simbad (G1)
      integer*4     RAh_1       ! (h) Right Ascension J2000 (hours) (G1)
      integer*4     RAm_1       ! (min) Right Ascension J2000 (minutes) (G1)
      real*4        RAs_1       ! (s) Right Ascension J2000 (seconds) (G1)
      character*1   DE__1       ! Declination J2000 (sign) (G1)
      integer*4     DEd_1       ! (deg) Declination J2000 (degrees) (G1)
      integer*4     DEm_1       ! (arcmin) Declination J2000 (minutes) (G1)
      integer*4     DEs_1       ! (arcsec) Declination J2000 (seconds) (G1)
*Note on beta, gamma:
*     See the description in "Note on phot43.dat" section above

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

C  Declarations for 'phot44.dat'	! *Cester (alpha) photometry

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

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

      character*11  LID_2       ! Coded designation
      character*1   f_LID       ! [D] indicates a combination of >= 2 stars
      real*4        Vmag        ! (mag) ? Visual magnitude
      real*4        alpha_1     ! (mag) *? Cester or  Dachs alpha index
      integer*4     o_alpha_1   ! ? Number of observations of alpha and beta
      integer*4     r_alpha_1   ! Reference
      character*20  SimID_2     ! Name recognized by Simbad (G1)
      integer*4     RAh_2       ! (h) Right Ascension J2000 (hours) (G1)
      integer*4     RAm_2       ! (min) Right Ascension J2000 (minutes) (G1)
      real*4        RAs_2       ! (s) Right Ascension J2000 (seconds) (G1)
      character*1   DE__2       ! Declination J2000 (sign) (G1)
      integer*4     DEd_2       ! (deg) Declination J2000 (degrees) (G1)
      integer*4     DEm_2       ! (arcmin) Declination J2000 (minutes) (G1)
      integer*4     DEs_2       ! (arcsec) Declination J2000 (seconds) (G1)
*Note on alpha:
*     The description of the Cester index is in "Note on phot44.dat" section
*     above, and the Dachs index in "Note on phot55.dat" section.

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

C  Declarations for 'phot55.dat'	! *Dachs (alpha) photometry

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

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

      character*11  LID_3       ! Coded designation
      character*1   f_LID_1     ! [D] indicates a combination of >= 2 stars
      real*4        Vmag_1      ! (mag) ? Visual magnitude
      real*4        alpha_2     ! (mag) *? Cester or  Dachs alpha index
      integer*4     o_alpha_2   ! ? Number of observations of alpha and beta
      integer*4     r_alpha_2   ! Reference
      character*20  SimID_3     ! Name recognized by Simbad (G1)
      integer*4     RAh_3       ! (h) Right Ascension J2000 (hours) (G1)
      integer*4     RAm_3       ! (min) Right Ascension J2000 (minutes) (G1)
      real*4        RAs_3       ! (s) Right Ascension J2000 (seconds) (G1)
      character*1   DE__3       ! Declination J2000 (sign) (G1)
      integer*4     DEd_3       ! (deg) Declination J2000 (degrees) (G1)
      integer*4     DEm_3       ! (arcmin) Declination J2000 (minutes) (G1)
      integer*4     DEs_3       ! (arcsec) Declination J2000 (seconds) (G1)
*Note on alpha:
*     The description of the Cester index is in "Note on phot44.dat" section
*     above, and the Dachs index in "Note on phot55.dat" section.

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

C  Declarations for 'phot56.dat'	! *Abt-Golson (alpha, beta, gamma, delta) photometry

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

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

      character*11  LID_4       ! Coded designation
      real*4        alpha_3     ! (mag) *Abt-Golson alpha index
      real*4        beta_2      ! (mag) *Abt-Golson beta index
      real*4        gamma_1     ! (mag) *Abt-Golson gamma index
      real*4        delta       ! (mag) *Abt-Golson delta index
      character*1   l_o_alpha   ! [/] '/' when o_alpha is a minimal number
      integer*4     o_alpha_3   ! ? Number of observations of alpha and beta
      integer*4     r_alpha_3   ! Reference
      character*20  SimID_4     ! Name recognized by Simbad (G1)
      integer*4     RAh_4       ! (h) Right Ascension J2000 (hours) (G1)
      integer*4     RAm_4       ! (min) Right Ascension J2000 (minutes) (G1)
      real*4        RAs_4       ! (s) Right Ascension J2000 (seconds) (G1)
      character*1   DE__4       ! Declination J2000 (sign) (G1)
      integer*4     DEd_4       ! (deg) Declination J2000 (degrees) (G1)
      integer*4     DEm_4       ! (arcmin) Declination J2000 (minutes) (G1)
      integer*4     DEs_4       ! (arcsec) Declination J2000 (seconds) (G1)
*Note on alpha, beta, gamma, delta:
*     See the description in "Note on phot56.dat" section above

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

C  Declarations for 'phot57.dat'	! *Peton (alpha, beta) photometry

      integer*4 nr__5
      parameter (nr__5=94)	! Number of records
      character*124 ar__5  	! Full-size record

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

      character*11  LID_5       ! Coded designation
      real*4        alpha_4     ! (mag) *? Peton  alpha index
      real*4        beta_3      ! (mag) *Peton beta index
      integer*4     o_alpha_4   ! ? Number of observations of alpha and beta
      integer*4     r_alpha_4   ! Reference
      character*20  SimID_5     ! Name recognized by Simbad (G1)
      integer*4     RAh_5       ! (h) Right Ascension J2000 (hours) (G1)
      integer*4     RAm_5       ! (min) Right Ascension J2000 (minutes) (G1)
      real*4        RAs_5       ! (s) Right Ascension J2000 (seconds) (G1)
      character*1   DE__5       ! Declination J2000 (sign) (G1)
      integer*4     DEd_5       ! (deg) Declination J2000 (degrees) (G1)
      integer*4     DEm_5       ! (arcmin) Declination J2000 (minutes) (G1)
      integer*4     DEs_5       ! (arcsec) Declination J2000 (seconds) (G1)
*Note on alpha, beta:
*     See the description in "Note on phot57.dat" section above

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

C  Declarations for 'phot58.dat'	! *Feinstein (alpha, beta, gamma) photometry

      integer*4 nr__6
      parameter (nr__6=327)	! Number of records
      character*124 ar__6  	! Full-size record

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

      character*11  LID_6       ! Coded designation
      real*4        alpha_5     ! (mag) *Feinstein  alpha index
      real*4        beta_4      ! (mag) *Feinstein beta index
      real*4        gamma_2     ! (mag) *? Feinstein gamma index
      integer*4     o_alpha_5   ! ? Number of observations of alpha and beta
      integer*4     r_alpha_5   ! Reference
      character*20  SimID_6     ! Name recognized by Simbad (G1)
      integer*4     RAh_6       ! (h) Right Ascension J2000 (hours) (G1)
      integer*4     RAm_6       ! (min) Right Ascension J2000 (minutes) (G1)
      real*4        RAs_6       ! (s) Right Ascension J2000 (seconds) (G1)
      character*1   DE__6       ! Declination J2000 (sign) (G1)
      integer*4     DEd_6       ! (deg) Declination J2000 (degrees) (G1)
      integer*4     DEm_6       ! (arcmin) Declination J2000 (minutes) (G1)
      integer*4     DEs_6       ! (arcsec) Declination J2000 (seconds) (G1)
*Note on alpha, beta, gamma:
*     See the description in "Note on phot58.dat" section above

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

C  Declarations for 'phot59.dat'	! *Villanova (alpha, beta) alpha photometry

      integer*4 nr__7
      parameter (nr__7=56)	! Number of records
      character*124 ar__7  	! Full-size record

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

      character*11  LID_7       ! Coded designation
      real*4        alpha_6     ! (mag) *Villanova  alpha index
      real*4        beta_5      ! (mag) *? Villanova beta index
      character*1   l_o_alpha_1 ! [S/] '/' when o_alpha is a minimal number
      integer*4     o_alpha_6   ! ? Number of observations of alpha and beta
      integer*4     r_alpha_6   ! Reference
      character*20  SimID_7     ! Name recognized by Simbad (G1)
      integer*4     RAh_7       ! (h) Right Ascension J2000 (hours) (G1)
      integer*4     RAm_7       ! (min) Right Ascension J2000 (minutes) (G1)
      real*4        RAs_7       ! (s) Right Ascension J2000 (seconds) (G1)
      character*1   DE__7       ! Declination J2000 (sign) (G1)
      integer*4     DEd_7       ! (deg) Declination J2000 (degrees) (G1)
      integer*4     DEm_7       ! (arcmin) Declination J2000 (minutes) (G1)
      integer*4     DEs_7       ! (arcsec) Declination J2000 (seconds) (G1)
*Note on alpha, beta:
*     See the description in "Note on phot59.dat" section above

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

C  Declarations for 'phot60.dat'	! *Bappu (gamma) photometry

      integer*4 nr__8
      parameter (nr__8=177)	! Number of records
      character*124 ar__8  	! Full-size record

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

      character*11  LID_8       ! Coded designation
      real*4        gamma_3     ! (mag) *Bappu  gamma index
      character*1   l_o_gamma   ! [S/] '/' when o_alpha is a minimal number
      integer*4     o_gamma_1   ! ? Number of observations of alpha and beta
      integer*4     r_gamma_1   ! Reference
      character*20  SimID_8     ! Name recognized by Simbad (G1)
      integer*4     RAh_8       ! (h) Right Ascension J2000 (hours) (G1)
      integer*4     RAm_8       ! (min) Right Ascension J2000 (minutes) (G1)
      real*4        RAs_8       ! (s) Right Ascension J2000 (seconds) (G1)
      character*1   DE__8       ! Declination J2000 (sign) (G1)
      integer*4     DEd_8       ! (deg) Declination J2000 (degrees) (G1)
      integer*4     DEm_8       ! (arcmin) Declination J2000 (minutes) (G1)
      integer*4     DEs_8       ! (arcsec) Declination J2000 (seconds) (G1)
*Note on gamma:
*     See the description in "Note on phot60.dat" section above

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

C  Declarations for 'phot61.dat'	! *Peat Ralpha photometry

      integer*4 nr__9
      parameter (nr__9=1715)	! Number of records
      character*124 ar__9  	! Full-size record

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

      character*11  LID_9       ! Coded designation
      character*1   m_LID       ! [12] Multiplicity index (1=A, 2=B)
      real*4        Vmag_2      ! (mag) ? Johnson V magnitude
      real*4        Ralpha      ! *Ralpha =  (B/BL)/(A/AL)
      character*1   l_o_Ralpha  ! [/] '/' when o_alpha is a minimal number
      integer*4     o_Ralpha    ! ? Number of observations of alpha and beta
      integer*4     r_Ralpha    ! Reference
      character*20  SimID_9     ! Name recognized by Simbad (G1)
      integer*4     RAh_9       ! (h) Right Ascension J2000 (hours) (G1)
      integer*4     RAm_9       ! (min) Right Ascension J2000 (minutes) (G1)
      real*4        RAs_9       ! (s) Right Ascension J2000 (seconds) (G1)
      character*1   DE__9       ! Declination J2000 (sign) (G1)
      integer*4     DEd_9       ! (deg) Declination J2000 (degrees) (G1)
      integer*4     DEm_9       ! (arcmin) Declination J2000 (minutes) (G1)
      integer*4     DEs_9       ! (arcsec) Declination J2000 (seconds) (G1)
*Note on Ralpha:
*     See the description in "Note on phot61.dat" section above

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

C  Declarations for 'phot62.dat'	! *Beer Rgamma photometry

      integer*4 nr__10
      parameter (nr__10=461)	! Number of records
      character*124 ar__10 	! Full-size record

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

      character*11  LID_10      ! Coded designation
      character*1   m_LID_1     ! [12] Multiplicity index (1=A, 2=B)
      real*4        Vmag_3      ! (mag) Johnson V magnitude
      real*4        Rgamma      ! *Rgamma = [(a)/(aL)]/[(b)/(bL)]
*                                    (fluxes of star and of the lamp)
      integer*4     o_Rgamma    ! Number of observations of alpha and beta
      integer*4     r_Rgamma    ! Reference
      character*20  SimID_10    ! Name recognized by Simbad (G1)
      integer*4     RAh_10      ! (h) Right Ascension J2000 (hours) (G1)
      integer*4     RAm_10      ! (min) Right Ascension J2000 (minutes) (G1)
      real*4        RAs_10      ! (s) Right Ascension J2000 (seconds) (G1)
      character*1   DE__10      ! Declination J2000 (sign) (G1)
      integer*4     DEd_10      ! (deg) Declination J2000 (degrees) (G1)
      integer*4     DEm_10      ! (arcmin) Declination J2000 (minutes) (G1)
      integer*4     DEs_10      ! (arcsec) Declination J2000 (seconds) (G1)
*Note on Rgamma:
*     See the description in "Note on phot62.dat" section above

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

C  Declarations for 'refs.dat'	! Bibliography

      integer*4 nr__11
      parameter (nr__11=15)	! Number of records
      character*100 ar__11 	! Full-size record

      integer*4     RefNo       ! Reference number
      character*19  BibCode     ! Coded reference
      character*74  Authors     ! List of authors

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

C  Loading file 'phot42.dat'	! *Tebbe (alpha, beta) photometry

C  Format for file interpretation

    1 format(
     +  A11,10X,F5.3,2X,F5.3,3X,I3,36X,I5,2X,A20,2X,I2,1X,I2,1X,F4.1,
     +  1X,A1,I2,1X,I2,1X,I2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'phot42.dat')
      write(6,*) '....Loading file: phot42.dat'
      do i__=1,80
        read(1,'(A124)')ar__
        read(ar__,1)
     +  LID,alpha,beta,o_alpha,r_alpha,SimID,RAh,RAm,RAs,DE_,DEd,DEm,
     +  DEs
        if(ar__(22:26) .EQ. '') alpha = 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)
     +  LID,alpha,beta,o_alpha,r_alpha,SimID,RAh,RAm,RAs,DE_,DEd,DEm,
     +  DEs
        write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'phot43.dat'	! *Sinnerstad (beta, gamma) photometry

C  Format for file interpretation

    2 format(
     +  A11,9X,F6.3,1X,F6.3,3X,I3,36X,I5,2X,A20,2X,I2,1X,I2,1X,F4.1,
     +  1X,A1,I2,1X,I2,1X,I2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'phot43.dat')
      write(6,*) '....Loading file: phot43.dat'
      do i__=1,67
        read(1,'(A124)')ar__1
        read(ar__1,2)
     +  LID_1,beta_1,gamma,o_gamma,r_gamma,SimID_1,RAh_1,RAm_1,RAs_1,
     +  DE__1,DEd_1,DEm_1,DEs_1
        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,2)
     +  LID_1,beta_1,gamma,o_gamma,r_gamma,SimID_1,RAh_1,RAm_1,RAs_1,
     +  DE__1,DEd_1,DEm_1,DEs_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 'phot44.dat'	! *Cester (alpha) photometry

C  Format for file interpretation

    3 format(
     +  A11,A1,1X,F5.2,2X,F6.3,3X,I3,43X,I5,2X,A20,2X,I2,1X,I2,1X,
     +  F4.1,1X,A1,I2,1X,I2,1X,I2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'phot44.dat')
      write(6,*) '....Loading file: phot44.dat'
      do i__=1,293
        read(1,'(A124)')ar__2
        read(ar__2,3)
     +  LID_2,f_LID,Vmag,alpha_1,o_alpha_1,r_alpha_1,SimID_2,RAh_2,
     +  RAm_2,RAs_2,DE__2,DEd_2,DEm_2,DEs_2
        if(ar__2(14:18) .EQ. '') Vmag = rNULL__
        if(ar__2(21:26) .EQ. '') alpha_1 = rNULL__
        if(ar__2(30:32) .EQ. '') o_alpha_1 = iNULL__
        RAdeg_2 = rNULL__
        DEdeg_2 = rNULL__
c  Derive coordinates RAdeg_2 and DEdeg_2 from input data
c  (RAdeg_2 and DEdeg_2 are set to rNULL__ when unknown)
        if(RAh_2 .GT. -180) RAdeg_2=RAh_2*15.
        if(RAm_2 .GT. -180) RAdeg_2=RAdeg_2+RAm_2/4.
        if(RAs_2 .GT. -180) RAdeg_2=RAdeg_2+RAs_2/240.
        if(DEd_2 .GE. 0) DEdeg_2=DEd_2
        if(DEm_2 .GE. 0) DEdeg_2=DEdeg_2+DEm_2/60.
        if(DEs_2 .GE. 0) DEdeg_2=DEdeg_2+DEs_2/3600.
        if(DE__2.EQ.'-'.AND.DEdeg_2.GE.0) DEdeg_2=-DEdeg_2
c    ..............Just test output...........
        write(6,3)
     +  LID_2,f_LID,Vmag,alpha_1,o_alpha_1,r_alpha_1,SimID_2,RAh_2,
     +  RAm_2,RAs_2,DE__2,DEd_2,DEm_2,DEs_2
        write(6,'(6H Pos: 2F8.4)') RAdeg_2,DEdeg_2
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'phot55.dat'	! *Dachs (alpha) photometry

C  Format for file interpretation

    4 format(
     +  A11,A1,1X,F5.2,2X,F6.3,3X,I3,43X,I5,2X,A20,2X,I2,1X,I2,1X,
     +  F4.1,1X,A1,I2,1X,I2,1X,I2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'phot55.dat')
      write(6,*) '....Loading file: phot55.dat'
      do i__=1,127
        read(1,'(A124)')ar__3
        read(ar__3,4)
     +  LID_3,f_LID_1,Vmag_1,alpha_2,o_alpha_2,r_alpha_2,SimID_3,
     +  RAh_3,RAm_3,RAs_3,DE__3,DEd_3,DEm_3,DEs_3
        if(ar__3(14:18) .EQ. '') Vmag_1 = rNULL__
        if(ar__3(21:26) .EQ. '') alpha_2 = rNULL__
        if(ar__3(30:32) .EQ. '') o_alpha_2 = iNULL__
        RAdeg_3 = rNULL__
        DEdeg_3 = rNULL__
c  Derive coordinates RAdeg_3 and DEdeg_3 from input data
c  (RAdeg_3 and DEdeg_3 are set to rNULL__ when unknown)
        if(RAh_3 .GT. -180) RAdeg_3=RAh_3*15.
        if(RAm_3 .GT. -180) RAdeg_3=RAdeg_3+RAm_3/4.
        if(RAs_3 .GT. -180) RAdeg_3=RAdeg_3+RAs_3/240.
        if(DEd_3 .GE. 0) DEdeg_3=DEd_3
        if(DEm_3 .GE. 0) DEdeg_3=DEdeg_3+DEm_3/60.
        if(DEs_3 .GE. 0) DEdeg_3=DEdeg_3+DEs_3/3600.
        if(DE__3.EQ.'-'.AND.DEdeg_3.GE.0) DEdeg_3=-DEdeg_3
c    ..............Just test output...........
        write(6,4)
     +  LID_3,f_LID_1,Vmag_1,alpha_2,o_alpha_2,r_alpha_2,SimID_3,
     +  RAh_3,RAm_3,RAs_3,DE__3,DEd_3,DEm_3,DEs_3
        write(6,'(6H Pos: 2F8.4)') RAdeg_3,DEdeg_3
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'phot56.dat'	! *Abt-Golson (alpha, beta, gamma, delta) photometry

C  Format for file interpretation

    5 format(
     +  A11,9X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,2X,A1,I3,22X,I5,2X,A20,2X,
     +  I2,1X,I2,1X,F4.1,1X,A1,I2,1X,I2,1X,I2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'phot56.dat')
      write(6,*) '....Loading file: phot56.dat'
      do i__=1,56
        read(1,'(A124)')ar__4
        read(ar__4,5)
     +  LID_4,alpha_3,beta_2,gamma_1,delta,l_o_alpha,o_alpha_3,
     +  r_alpha_3,SimID_4,RAh_4,RAm_4,RAs_4,DE__4,DEd_4,DEm_4,DEs_4
        if(ar__4(51:53) .EQ. '') o_alpha_3 = iNULL__
        RAdeg_4 = rNULL__
        DEdeg_4 = rNULL__
c  Derive coordinates RAdeg_4 and DEdeg_4 from input data
c  (RAdeg_4 and DEdeg_4 are set to rNULL__ when unknown)
        if(RAh_4 .GT. -180) RAdeg_4=RAh_4*15.
        if(RAm_4 .GT. -180) RAdeg_4=RAdeg_4+RAm_4/4.
        if(RAs_4 .GT. -180) RAdeg_4=RAdeg_4+RAs_4/240.
        if(DEd_4 .GE. 0) DEdeg_4=DEd_4
        if(DEm_4 .GE. 0) DEdeg_4=DEdeg_4+DEm_4/60.
        if(DEs_4 .GE. 0) DEdeg_4=DEdeg_4+DEs_4/3600.
        if(DE__4.EQ.'-'.AND.DEdeg_4.GE.0) DEdeg_4=-DEdeg_4
c    ..............Just test output...........
        write(6,5)
     +  LID_4,alpha_3,beta_2,gamma_1,delta,l_o_alpha,o_alpha_3,
     +  r_alpha_3,SimID_4,RAh_4,RAm_4,RAs_4,DE__4,DEd_4,DEm_4,DEs_4
        write(6,'(6H Pos: 2F8.4)') RAdeg_4,DEdeg_4
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'phot57.dat'	! *Peton (alpha, beta) photometry

C  Format for file interpretation

    6 format(
     +  A11,9X,F6.3,1X,F6.3,3X,I3,36X,I5,2X,A20,2X,I2,1X,I2,1X,F4.1,
     +  1X,A1,I2,1X,I2,1X,I2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'phot57.dat')
      write(6,*) '....Loading file: phot57.dat'
      do i__=1,94
        read(1,'(A124)')ar__5
        read(ar__5,6)
     +  LID_5,alpha_4,beta_3,o_alpha_4,r_alpha_4,SimID_5,RAh_5,RAm_5,
     +  RAs_5,DE__5,DEd_5,DEm_5,DEs_5
        if(ar__5(21:26) .EQ. '') alpha_4 = rNULL__
        if(ar__5(37:39) .EQ. '') o_alpha_4 = iNULL__
        RAdeg_5 = rNULL__
        DEdeg_5 = rNULL__
c  Derive coordinates RAdeg_5 and DEdeg_5 from input data
c  (RAdeg_5 and DEdeg_5 are set to rNULL__ when unknown)
        if(RAh_5 .GT. -180) RAdeg_5=RAh_5*15.
        if(RAm_5 .GT. -180) RAdeg_5=RAdeg_5+RAm_5/4.
        if(RAs_5 .GT. -180) RAdeg_5=RAdeg_5+RAs_5/240.
        if(DEd_5 .GE. 0) DEdeg_5=DEd_5
        if(DEm_5 .GE. 0) DEdeg_5=DEdeg_5+DEm_5/60.
        if(DEs_5 .GE. 0) DEdeg_5=DEdeg_5+DEs_5/3600.
        if(DE__5.EQ.'-'.AND.DEdeg_5.GE.0) DEdeg_5=-DEdeg_5
c    ..............Just test output...........
        write(6,6)
     +  LID_5,alpha_4,beta_3,o_alpha_4,r_alpha_4,SimID_5,RAh_5,RAm_5,
     +  RAs_5,DE__5,DEd_5,DEm_5,DEs_5
        write(6,'(6H Pos: 2F8.4)') RAdeg_5,DEdeg_5
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'phot58.dat'	! *Feinstein (alpha, beta, gamma) photometry

C  Format for file interpretation

    7 format(
     +  A11,9X,F6.3,1X,F6.3,1X,F6.3,3X,I3,29X,I5,2X,A20,2X,I2,1X,I2,
     +  1X,F4.1,1X,A1,I2,1X,I2,1X,I2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'phot58.dat')
      write(6,*) '....Loading file: phot58.dat'
      do i__=1,327
        read(1,'(A124)')ar__6
        read(ar__6,7)
     +  LID_6,alpha_5,beta_4,gamma_2,o_alpha_5,r_alpha_5,SimID_6,
     +  RAh_6,RAm_6,RAs_6,DE__6,DEd_6,DEm_6,DEs_6
        if(ar__6(35:40) .EQ. '') gamma_2 = rNULL__
        if(ar__6(44:46) .EQ. '') o_alpha_5 = iNULL__
        RAdeg_6 = rNULL__
        DEdeg_6 = rNULL__
c  Derive coordinates RAdeg_6 and DEdeg_6 from input data
c  (RAdeg_6 and DEdeg_6 are set to rNULL__ when unknown)
        if(RAh_6 .GT. -180) RAdeg_6=RAh_6*15.
        if(RAm_6 .GT. -180) RAdeg_6=RAdeg_6+RAm_6/4.
        if(RAs_6 .GT. -180) RAdeg_6=RAdeg_6+RAs_6/240.
        if(DEd_6 .GE. 0) DEdeg_6=DEd_6
        if(DEm_6 .GE. 0) DEdeg_6=DEdeg_6+DEm_6/60.
        if(DEs_6 .GE. 0) DEdeg_6=DEdeg_6+DEs_6/3600.
        if(DE__6.EQ.'-'.AND.DEdeg_6.GE.0) DEdeg_6=-DEdeg_6
c    ..............Just test output...........
        write(6,7)
     +  LID_6,alpha_5,beta_4,gamma_2,o_alpha_5,r_alpha_5,SimID_6,
     +  RAh_6,RAm_6,RAs_6,DE__6,DEd_6,DEm_6,DEs_6
        write(6,'(6H Pos: 2F8.4)') RAdeg_6,DEdeg_6
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'phot59.dat'	! *Villanova (alpha, beta) alpha photometry

C  Format for file interpretation

    8 format(
     +  A11,9X,F6.3,1X,F6.3,2X,A1,I3,36X,I5,2X,A20,2X,I2,1X,I2,1X,
     +  F4.1,1X,A1,I2,1X,I2,1X,I2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'phot59.dat')
      write(6,*) '....Loading file: phot59.dat'
      do i__=1,56
        read(1,'(A124)')ar__7
        read(ar__7,8)
     +  LID_7,alpha_6,beta_5,l_o_alpha_1,o_alpha_6,r_alpha_6,SimID_7,
     +  RAh_7,RAm_7,RAs_7,DE__7,DEd_7,DEm_7,DEs_7
        if(ar__7(28:33) .EQ. '') beta_5 = rNULL__
        if(ar__7(37:39) .EQ. '') o_alpha_6 = iNULL__
        RAdeg_7 = rNULL__
        DEdeg_7 = rNULL__
c  Derive coordinates RAdeg_7 and DEdeg_7 from input data
c  (RAdeg_7 and DEdeg_7 are set to rNULL__ when unknown)
        if(RAh_7 .GT. -180) RAdeg_7=RAh_7*15.
        if(RAm_7 .GT. -180) RAdeg_7=RAdeg_7+RAm_7/4.
        if(RAs_7 .GT. -180) RAdeg_7=RAdeg_7+RAs_7/240.
        if(DEd_7 .GE. 0) DEdeg_7=DEd_7
        if(DEm_7 .GE. 0) DEdeg_7=DEdeg_7+DEm_7/60.
        if(DEs_7 .GE. 0) DEdeg_7=DEdeg_7+DEs_7/3600.
        if(DE__7.EQ.'-'.AND.DEdeg_7.GE.0) DEdeg_7=-DEdeg_7
c    ..............Just test output...........
        write(6,8)
     +  LID_7,alpha_6,beta_5,l_o_alpha_1,o_alpha_6,r_alpha_6,SimID_7,
     +  RAh_7,RAm_7,RAs_7,DE__7,DEd_7,DEm_7,DEs_7
        write(6,'(6H Pos: 2F8.4)') RAdeg_7,DEdeg_7
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'phot60.dat'	! *Bappu (gamma) photometry

C  Format for file interpretation

    9 format(
     +  A11,9X,F6.3,2X,A1,I3,43X,I5,2X,A20,2X,I2,1X,I2,1X,F4.1,1X,A1,
     +  I2,1X,I2,1X,I2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'phot60.dat')
      write(6,*) '....Loading file: phot60.dat'
      do i__=1,177
        read(1,'(A124)')ar__8
        read(ar__8,9)
     +  LID_8,gamma_3,l_o_gamma,o_gamma_1,r_gamma_1,SimID_8,RAh_8,
     +  RAm_8,RAs_8,DE__8,DEd_8,DEm_8,DEs_8
        if(ar__8(30:32) .EQ. '') o_gamma_1 = iNULL__
        RAdeg_8 = rNULL__
        DEdeg_8 = rNULL__
c  Derive coordinates RAdeg_8 and DEdeg_8 from input data
c  (RAdeg_8 and DEdeg_8 are set to rNULL__ when unknown)
        if(RAh_8 .GT. -180) RAdeg_8=RAh_8*15.
        if(RAm_8 .GT. -180) RAdeg_8=RAdeg_8+RAm_8/4.
        if(RAs_8 .GT. -180) RAdeg_8=RAdeg_8+RAs_8/240.
        if(DEd_8 .GE. 0) DEdeg_8=DEd_8
        if(DEm_8 .GE. 0) DEdeg_8=DEdeg_8+DEm_8/60.
        if(DEs_8 .GE. 0) DEdeg_8=DEdeg_8+DEs_8/3600.
        if(DE__8.EQ.'-'.AND.DEdeg_8.GE.0) DEdeg_8=-DEdeg_8
c    ..............Just test output...........
        write(6,9)
     +  LID_8,gamma_3,l_o_gamma,o_gamma_1,r_gamma_1,SimID_8,RAh_8,
     +  RAm_8,RAs_8,DE__8,DEd_8,DEm_8,DEs_8
        write(6,'(6H Pos: 2F8.4)') RAdeg_8,DEdeg_8
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'phot61.dat'	! *Peat Ralpha photometry

C  Format for file interpretation

   10 format(
     +  A11,A1,1X,F5.2,2X,F6.3,2X,A1,I3,43X,I5,2X,A20,2X,I2,1X,I2,1X,
     +  F4.1,1X,A1,I2,1X,I2,1X,I2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'phot61.dat')
      write(6,*) '....Loading file: phot61.dat'
      do i__=1,1715
        read(1,'(A124)')ar__9
        read(ar__9,10)
     +  LID_9,m_LID,Vmag_2,Ralpha,l_o_Ralpha,o_Ralpha,r_Ralpha,
     +  SimID_9,RAh_9,RAm_9,RAs_9,DE__9,DEd_9,DEm_9,DEs_9
        if(ar__9(14:18) .EQ. '') Vmag_2 = rNULL__
        if(ar__9(30:32) .EQ. '') o_Ralpha = iNULL__
        RAdeg_9 = rNULL__
        DEdeg_9 = rNULL__
c  Derive coordinates RAdeg_9 and DEdeg_9 from input data
c  (RAdeg_9 and DEdeg_9 are set to rNULL__ when unknown)
        if(RAh_9 .GT. -180) RAdeg_9=RAh_9*15.
        if(RAm_9 .GT. -180) RAdeg_9=RAdeg_9+RAm_9/4.
        if(RAs_9 .GT. -180) RAdeg_9=RAdeg_9+RAs_9/240.
        if(DEd_9 .GE. 0) DEdeg_9=DEd_9
        if(DEm_9 .GE. 0) DEdeg_9=DEdeg_9+DEm_9/60.
        if(DEs_9 .GE. 0) DEdeg_9=DEdeg_9+DEs_9/3600.
        if(DE__9.EQ.'-'.AND.DEdeg_9.GE.0) DEdeg_9=-DEdeg_9
c    ..............Just test output...........
        write(6,10)
     +  LID_9,m_LID,Vmag_2,Ralpha,l_o_Ralpha,o_Ralpha,r_Ralpha,
     +  SimID_9,RAh_9,RAm_9,RAs_9,DE__9,DEd_9,DEm_9,DEs_9
        write(6,'(6H Pos: 2F8.4)') RAdeg_9,DEdeg_9
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'phot62.dat'	! *Beer Rgamma photometry

C  Format for file interpretation

   11 format(
     +  A11,A1,1X,F5.2,2X,F6.3,3X,I3,43X,I5,2X,A20,2X,I2,1X,I2,1X,
     +  F4.1,1X,A1,I2,1X,I2,1X,I2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'phot62.dat')
      write(6,*) '....Loading file: phot62.dat'
      do i__=1,461
        read(1,'(A124)')ar__10
        read(ar__10,11)
     +  LID_10,m_LID_1,Vmag_3,Rgamma,o_Rgamma,r_Rgamma,SimID_10,
     +  RAh_10,RAm_10,RAs_10,DE__10,DEd_10,DEm_10,DEs_10
        RAdeg_10 = rNULL__
        DEdeg_10 = rNULL__
c  Derive coordinates RAdeg_10 and DEdeg_10 from input data
c  (RAdeg_10 and DEdeg_10 are set to rNULL__ when unknown)
        if(RAh_10 .GT. -180) RAdeg_10=RAh_10*15.
        if(RAm_10 .GT. -180) RAdeg_10=RAdeg_10+RAm_10/4.
        if(RAs_10 .GT. -180) RAdeg_10=RAdeg_10+RAs_10/240.
        if(DEd_10 .GE. 0) DEdeg_10=DEd_10
        if(DEm_10 .GE. 0) DEdeg_10=DEdeg_10+DEm_10/60.
        if(DEs_10 .GE. 0) DEdeg_10=DEdeg_10+DEs_10/3600.
        if(DE__10.EQ.'-'.AND.DEdeg_10.GE.0) DEdeg_10=-DEdeg_10
c    ..............Just test output...........
        write(6,11)
     +  LID_10,m_LID_1,Vmag_3,Rgamma,o_Rgamma,r_Rgamma,SimID_10,
     +  RAh_10,RAm_10,RAs_10,DE__10,DEd_10,DEm_10,DEs_10
        write(6,'(6H Pos: 2F8.4)') RAdeg_10,DEdeg_10
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'refs.dat'	! Bibliography

C  Format for file interpretation

   12 format(I5,1X,A19,1X,A74)

C  Effective file loading

      open(unit=1,status='old',file=
     +'refs.dat')
      write(6,*) '....Loading file: refs.dat'
      do i__=1,15
        read(1,'(A100)')ar__11
        read(ar__11,12)RefNo,BibCode,Authors
c    ..............Just test output...........
        write(6,12)RefNo,BibCode,Authors
c    .......End.of.Just test output...........
      end do
      close(1)

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