FORTRAN Generation
(/./ftp/cats/J/A_AS/106/141)

Conversion of standardized ReadMe file for file /./ftp/cats/J/A_AS/106/141 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. J/A+AS/106/141   Photometry of luminous blue variables   (Spoon+ 1994)
*================================================================================
*Variability of luminous blue variables. I. Intermediate-band photometry
*     Spoon H.W.W., De Koter A., Sterken  C., Lamers H.J.G.L.M., Stahl O.
*     Astron. Astrophys. Suppl. Ser. 106, 141 (1994)
*    =1994A&AS..106..141S
C=============================================================================

C  Internal variables

      integer*4 i__

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

C  Declarations for 'table4'	! ESO Stromgren photometry (HD 160529)

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

      character*9   Name        ! Star name
      real*8        JDhel       ! (d) Heliocentric Julian day
      real*4        Vmag        ! (mag) Johnson V

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

C  Declarations for 'table5'	! LTPV Stromgren photometry (S Dor)

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

      character*6   Name_1      ! Star name
      real*8        JDhel_1     ! (d) Heliocentric Julian Date
      real*4        Vmag_1      ! (mag) Johnson V
      real*4        b_y         ! (mag) Stromgren b-y
      real*4        v_b         ! (mag) Stromgren v-b
      real*4        u_v         ! (mag) Stromgren u-v
      integer*4     Nc          ! []? Number of comparison stars used
*                                       in correction
      integer*4     Sys         ! []? LTPV instrumental system ident

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

C  Declarations for 'table6'	! SAAO Stromgren photometry (AG Car, HR Car)

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

      character*6   Name_2      ! Star name
      real*8        JDhel_2     ! (d) Heliocentric Julian Date
      real*4        Vmag_2      ! (mag) Johnson V
      real*4        b_y_1       ! (mag) Stromgren b-y
      real*4        v_b_1       ! (mag) Stromgren v-b
      real*4        u_v_1       ! (mag) Stromgren u-v
      integer*4     Nc_1        ! []? Number of comparison stars used
*                                       in correction
      integer*4     Sys_1       ! []? LTPV instrumental system ident

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

C  Declarations for 'table7'	! Geneva/Johnson photometry (HR Car)

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

      character*6   Name_3      ! star name
      real*8        JDhel_3     ! (d) Heliocentric Julian Date
      real*4        v_U_B_g     ! (mag) Geneva  U-B
      real*4        v_V_B_g     ! (mag) Geneva  V-B
      real*4        v_B1_B_g    ! (mag) Geneva  B1-B
      real*4        v_B2_B_g    ! (mag) Geneva  B2-B
      real*4        v_V1_B_g    ! (mag) Geneva  V1-B
      real*4        v_G_B_g     ! (mag) Geneva  G-B
      real*4        v_B_V_j     ! (mag) Johnson  B-V derived from Geneva photometry

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

C  Declarations for 'table8'	! VBLUW/Johnson photometry (AG Car, HR Car,
                                  RMC 71, S Dor)

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

      character*6   Name_4      ! Star name
      real*8        JDhel_4     ! (d) Heliocentric Julian Date
      real*4        v_V_w       ! (mag) Walraven V, log(intensity)
      real*4        v_V_B_w     ! (mag) Walraven V-B, log(intensity)
      real*4        v_B_U_w     ! (mag) []? Walraven B-U, log(intensity)
      real*4        v_U_W_w     ! (mag) []? Walraven U-W, log(intensity)
      real*4        v_B_L_w     ! (mag) []? Walraven B-L, log(intensity)
      integer*4     E           ! Errorcode
      real*4        Vmag_3      ! (mag) Johnson V derived from Walraven photometry
      real*4        v_B_V_j_1   ! (mag) Johnson B-V derived from Walraven photometry

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

C  Loading file 'table4'	! ESO Stromgren photometry (HD 160529)

C  Format for file interpretation

    1 format(A9,1X,F11.3,1X,F5.3)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table4')
      write(6,*) '....Loading file: table4'
      do i__=1,65
        read(1,'(A27)')ar__
        read(ar__,1)Name,JDhel,Vmag
c    ..............Just test output...........
        write(6,1)Name,JDhel,Vmag
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table5'	! LTPV Stromgren photometry (S Dor)

C  Format for file interpretation

    2 format(A6,1X,F12.4,1X,F6.3,1X,F6.3,2X,F6.3,2X,F6.3,5X,I1,5X,I1)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table5')
      write(6,*) '....Loading file: table5'
      do i__=1,15
        read(1,'(A61)')ar__1
        read(ar__1,2)Name_1,JDhel_1,Vmag_1,b_y,v_b,u_v,Nc,Sys
        if(ar__1(55:55) .EQ. '') Nc = iNULL__
        if(ar__1(61:61) .EQ. '') Sys = iNULL__
c    ..............Just test output...........
        write(6,2)Name_1,JDhel_1,Vmag_1,b_y,v_b,u_v,Nc,Sys
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table6'	! SAAO Stromgren photometry (AG Car, HR Car)

C  Format for file interpretation

    3 format(A6,1X,F12.4,1X,F6.3,1X,F6.3,2X,F6.3,2X,F6.3,5X,I1,5X,I1)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table6')
      write(6,*) '....Loading file: table6'
      do i__=1,36
        read(1,'(A61)')ar__2
        read(ar__2,3)
     +  Name_2,JDhel_2,Vmag_2,b_y_1,v_b_1,u_v_1,Nc_1,Sys_1
        if(ar__2(55:55) .EQ. '') Nc_1 = iNULL__
        if(ar__2(61:61) .EQ. '') Sys_1 = iNULL__
c    ..............Just test output...........
        write(6,3)
     +  Name_2,JDhel_2,Vmag_2,b_y_1,v_b_1,u_v_1,Nc_1,Sys_1
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table7'	! Geneva/Johnson photometry (HR Car)

C  Format for file interpretation

    4 format(
     +  A6,1X,F12.4,8X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,
     +  1X,F6.3)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table7')
      write(6,*) '....Loading file: table7'
      do i__=1,26
        read(1,'(A75)')ar__3
        read(ar__3,4)
     +  Name_3,JDhel_3,v_U_B_g,v_V_B_g,v_B1_B_g,v_B2_B_g,v_V1_B_g,
     +  v_G_B_g,v_B_V_j
c    ..............Just test output...........
        write(6,4)
     +  Name_3,JDhel_3,v_U_B_g,v_V_B_g,v_B1_B_g,v_B2_B_g,v_V1_B_g,
     +  v_G_B_g,v_B_V_j
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table8'	! VBLUW/Johnson photometry (AG Car, HR Car,
*                                  RMC 71, S Dor)

C  Format for file interpretation

    5 format(
     +  A6,1X,F12.4,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,I2,3X,
     +  F6.3,1X,F6.3)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table8')
      write(6,*) '....Loading file: table8'
      do i__=1,448
        read(1,'(A73)')ar__4
        read(ar__4,5)
     +  Name_4,JDhel_4,v_V_w,v_V_B_w,v_B_U_w,v_U_W_w,v_B_L_w,E,Vmag_3,
     +  v_B_V_j_1
        if(ar__4(35:40) .EQ. '') v_B_U_w = rNULL__
        if(ar__4(42:47) .EQ. '') v_U_W_w = rNULL__
        if(ar__4(49:54) .EQ. '') v_B_L_w = rNULL__
c    ..............Just test output...........
        write(6,5)
     +  Name_4,JDhel_4,v_V_w,v_V_B_w,v_B_U_w,v_U_W_w,v_B_L_w,E,Vmag_3,
     +  v_B_V_j_1
c    .......End.of.Just test output...........
      end do
      close(1)

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