Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_AS/106/141 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.5, on 2013-May-22
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__
ter (rNULL__=-1.e37) ! NULL real number
parameter (iNULL__=-2147483647) ! NULL int 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 (nr__) ! Star name
real*8 JDhel (nr__) ! (d) Heliocentric Julian day
real*4 Vmag (nr__) ! (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 (nr__1) ! Star name
real*8 JDhel_1 (nr__1) ! (d) Heliocentric Julian Date
real*4 Vmag_1 (nr__1) ! (mag) Johnson V
real*4 b_y (nr__1) ! (mag) Stromgren b-y
real*4 v_b (nr__1) ! (mag) Stromgren v-b
real*4 u_v (nr__1) ! (mag) Stromgren u-v
integer*4 Nc (nr__1) ! []? Number of comparison stars used
* in correction
integer*4 Sys (nr__1) ! []? 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 (nr__2) ! Star name
real*8 JDhel_2 (nr__2) ! (d) Heliocentric Julian Date
real*4 Vmag_2 (nr__2) ! (mag) Johnson V
real*4 b_y_1 (nr__2) ! (mag) Stromgren b-y
real*4 v_b_1 (nr__2) ! (mag) Stromgren v-b
real*4 u_v_1 (nr__2) ! (mag) Stromgren u-v
integer*4 Nc_1 (nr__2) ! []? Number of comparison stars used
* in correction
integer*4 Sys_1 (nr__2) ! []? 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 (nr__3) ! star name
real*8 JDhel_3 (nr__3) ! (d) Heliocentric Julian Date
real*4 v_U_B_g (nr__3) ! (mag) Geneva U-B
real*4 v_V_B_g (nr__3) ! (mag) Geneva V-B
real*4 v_B1_B_g (nr__3) ! (mag) Geneva B1-B
real*4 v_B2_B_g (nr__3) ! (mag) Geneva B2-B
real*4 v_V1_B_g (nr__3) ! (mag) Geneva V1-B
real*4 v_G_B_g (nr__3) ! (mag) Geneva G-B
real*4 v_B_V_j (nr__3) ! (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 (nr__4) ! Star name
real*8 JDhel_4 (nr__4) ! (d) Heliocentric Julian Date
real*4 v_V_w (nr__4) ! (mag) Walraven V, log(intensity)
real*4 v_V_B_w (nr__4) ! (mag) Walraven V-B, log(intensity)
real*4 v_B_U_w (nr__4) ! (mag) []? Walraven B-U, log(intensity)
real*4 v_U_W_w (nr__4) ! (mag) []? Walraven U-W, log(intensity)
real*4 v_B_L_w (nr__4) ! (mag) []? Walraven B-L, log(intensity)
integer*4 E (nr__4) ! Errorcode
real*4 Vmag_3 (nr__4) ! (mag) Johnson V derived from Walraven photometry
real*4 v_B_V_j_1 (nr__4) ! (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,file='table4', status='old')
write(6,*) '....Loading file: table4'
do i__=1,65
read(1,'(A27)')ar__
read(ar__,1)Name(i__),JDhel(i__),Vmag(i__)
c ..............Just test output...........
write(6,1)Name(i__),JDhel(i__),Vmag(i__)
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,file='table5', status='old')
write(6,*) '....Loading file: table5'
do i__=1,15
read(1,'(A61)')ar__1
read(ar__1,2)
+ Name_1(i__),JDhel_1(i__),Vmag_1(i__),b_y(i__),v_b(i__),
+ u_v(i__),Nc(i__),Sys(i__)
if(ar__1(55:55) .EQ. '') Nc(i__) = iNULL__
if(ar__1(61:61) .EQ. '') Sys(i__) = iNULL__
c ..............Just test output...........
write(6,2)
+ Name_1(i__),JDhel_1(i__),Vmag_1(i__),b_y(i__),v_b(i__),
+ u_v(i__),Nc(i__),Sys(i__)
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,file='table6', status='old')
write(6,*) '....Loading file: table6'
do i__=1,36
read(1,'(A61)')ar__2
read(ar__2,3)
+ Name_2(i__),JDhel_2(i__),Vmag_2(i__),b_y_1(i__),v_b_1(i__),
+ u_v_1(i__),Nc_1(i__),Sys_1(i__)
if(ar__2(55:55) .EQ. '') Nc_1(i__) = iNULL__
if(ar__2(61:61) .EQ. '') Sys_1(i__) = iNULL__
c ..............Just test output...........
write(6,3)
+ Name_2(i__),JDhel_2(i__),Vmag_2(i__),b_y_1(i__),v_b_1(i__),
+ u_v_1(i__),Nc_1(i__),Sys_1(i__)
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,file='table7', status='old')
write(6,*) '....Loading file: table7'
do i__=1,26
read(1,'(A75)')ar__3
read(ar__3,4)
+ Name_3(i__),JDhel_3(i__),v_U_B_g(i__),v_V_B_g(i__),
+ v_B1_B_g(i__),v_B2_B_g(i__),v_V1_B_g(i__),v_G_B_g(i__),
+ v_B_V_j(i__)
c ..............Just test output...........
write(6,4)
+ Name_3(i__),JDhel_3(i__),v_U_B_g(i__),v_V_B_g(i__),
+ v_B1_B_g(i__),v_B2_B_g(i__),v_V1_B_g(i__),v_G_B_g(i__),
+ v_B_V_j(i__)
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,file='table8', status='old')
write(6,*) '....Loading file: table8'
do i__=1,448
read(1,'(A73)')ar__4
read(ar__4,5)
+ Name_4(i__),JDhel_4(i__),v_V_w(i__),v_V_B_w(i__),v_B_U_w(i__),
+ v_U_W_w(i__),v_B_L_w(i__),E(i__),Vmag_3(i__),v_B_V_j_1(i__)
if(ar__4(35:40) .EQ. '') v_B_U_w(i__) = rNULL__
if(ar__4(42:47) .EQ. '') v_U_W_w(i__) = rNULL__
if(ar__4(49:54) .EQ. '') v_B_L_w(i__) = rNULL__
c ..............Just test output...........
write(6,5)
+ Name_4(i__),JDhel_4(i__),v_V_w(i__),v_V_B_w(i__),v_B_U_w(i__),
+ v_U_W_w(i__),v_B_L_w(i__),E(i__),Vmag_3(i__),v_B_V_j_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end