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