Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/384/1012 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+A/384/1012 Variability of WR 86 (Paardekooper+, 2002) *================================================================================ *On the variability of the visual binary WR 86. WC 7 with a beta-Cephei companion * Paardekooper S.J., Veen P.M., van Genderen A., Van der Hucht K.A. * <Astron. Astrophys. 384, 1012 (2002)> * =2002A&A...384.1012P C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3.dat' ! VBLUW 1989 V light curve integer*4 nr__ parameter (nr__=19) ! Number of records character*45 ar__ ! Full-size record real*8 HJD ! (d) Heliocentric Julian Date real*4 deltaV ! (mag) Differential V magnitudes (1) real*4 deltaV_B ! (mag) ? Differential Walraven V-B colour indices real*4 deltaB_U ! (mag) ? Differential Walraven B-U colour indices real*4 deltaU_W ! (mag) ? Differential Walraven U-W colour indices real*4 deltaB_L ! (mag) ? Differential Walraven B-L colour indices *Note (1): Walraven V magnitude for tables 3, 4 and 5 * Johnson V magnitude for table 6 c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table4.dat' ! VBLUW 1990-I light curves integer*4 nr__1 parameter (nr__1=85) ! Number of records character*46 ar__1 ! Full-size record real*8 HJD_1 ! (d) Heliocentric Julian Date real*4 deltaV_1 ! (mag) Differential V magnitudes (1) real*4 deltaV_B_1 ! (mag) ? Differential Walraven V-B colour indices real*4 deltaB_U_1 ! (mag) ? Differential Walraven B-U colour indices real*4 deltaU_W_1 ! (mag) ? Differential Walraven U-W colour indices real*4 deltaB_L_1 ! (mag) ? Differential Walraven B-L colour indices *Note (1): Walraven V magnitude for tables 3, 4 and 5 * Johnson V magnitude for table 6 c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table5.dat' ! VBLUW 1990-II light curves integer*4 nr__2 parameter (nr__2=199) ! Number of records character*46 ar__2 ! Full-size record real*8 HJD_2 ! (d) Heliocentric Julian Date real*4 deltaV_2 ! (mag) Differential V magnitudes (1) real*4 deltaV_B_2 ! (mag) ? Differential Walraven V-B colour indices real*4 deltaB_U_2 ! (mag) ? Differential Walraven B-U colour indices real*4 deltaU_W_2 ! (mag) ? Differential Walraven U-W colour indices real*4 deltaB_L_2 ! (mag) ? Differential Walraven B-L colour indices *Note (1): Walraven V magnitude for tables 3, 4 and 5 * Johnson V magnitude for table 6 c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table6.dat' ! UBV 1995 V light curve integer*4 nr__3 parameter (nr__3=21) ! Number of records character*45 ar__3 ! Full-size record real*8 HJD_3 ! (d) Heliocentric Julian Date real*4 deltaV_3 ! (mag) Differential V magnitudes (1) real*4 deltaV_B_3 ! (mag) ? Differential Walraven V-B colour indices real*4 deltaB_U_3 ! (mag) ? Differential Walraven B-U colour indices real*4 deltaU_W_3 ! (mag) ? Differential Walraven U-W colour indices real*4 deltaB_L_3 ! (mag) ? Differential Walraven B-L colour indices *Note (1): Walraven V magnitude for tables 3, 4 and 5 * Johnson V magnitude for table 6 c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table8.dat' ! Emission lines 1989 radial velocities integer*4 nr__4 parameter (nr__4=30) ! Number of records character*38 ar__4 ! Full-size record real*8 HJD_4 ! (d) Heliocentric Julian Date integer*4 C4650 ! (km/s) Radial velocities for the CIII,IV 4650{AA} line integer*4 C5696 ! (km/s) Radial velocities for the CIII 5696{AA} line integer*4 C5812 ! (km/s) Radial velocities for the CIV 5812{AA} line integer*4 He6560 ! (km/s) Radial velocities for the HeII 6560{AA} line integer*4 C6744 ! (km/s) Radial velocities for the CIII 6744{AA} line integer*4 C7062 ! (km/s) Radial velocities for the CIV 7062{AA} line c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table9.dat' ! Emission lines 1989 equivalent widths integer*4 nr__5 parameter (nr__5=53) ! Number of records character*44 ar__5 ! Full-size record real*8 HJD_5 ! (d) Heliocentric Julian Date real*4 C4650_1 ! (0.1nm) ? CIII,IV 4650{AA} line equivalent widths (1) (2) real*4 C5696_1 ! (0.1nm) CIII 5696{AA} line equivalent widths (1) real*4 C5812_1 ! (0.1nm) CIV 5812{AA} line equivalent widths (1) real*4 He6560_1 ! (0.1nm) HeII 6560{AA} line equivalent widths (1) real*4 C6744_1 ! (0.1nm) ? CIII 6744{AA} line Equivalent widths (1) (2) *Note (1): Negative values for emission lines *Note (2): Not present in table 11. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table10.dat' ! Emission lines 1995 equivalent widths integer*4 nr__6 parameter (nr__6=44) ! Number of records character*44 ar__6 ! Full-size record real*8 HJD_6 ! (d) Heliocentric Julian Date real*4 C4650_2 ! (0.1nm) ? CIII,IV 4650{AA} line equivalent widths (1) (2) real*4 C5696_2 ! (0.1nm) CIII 5696{AA} line equivalent widths (1) real*4 C5812_2 ! (0.1nm) CIV 5812{AA} line equivalent widths (1) real*4 He6560_2 ! (0.1nm) HeII 6560{AA} line equivalent widths (1) real*4 C6744_2 ! (0.1nm) ? CIII 6744{AA} line Equivalent widths (1) (2) *Note (1): Negative values for emission lines *Note (2): Not present in table 11. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table11.dat' ! Absorption lines 1995 equivalent widths integer*4 nr__7 parameter (nr__7=15) ! Number of records character*43 ar__7 ! Full-size record real*8 HJD_7 ! (d) Heliocentric Julian Date real*4 C4650_3 ! (0.1nm) ? CIII,IV 4650{AA} line equivalent widths (1) (2) real*4 C5696_3 ! (0.1nm) CIII 5696{AA} line equivalent widths (1) real*4 C5812_3 ! (0.1nm) CIV 5812{AA} line equivalent widths (1) real*4 He6560_3 ! (0.1nm) HeII 6560{AA} line equivalent widths (1) real*4 C6744_3 ! (0.1nm) ? CIII 6744{AA} line Equivalent widths (1) (2) *Note (1): Negative values for emission lines *Note (2): Not present in table 11. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table12.dat' ! Emission lines 1995 radial velocities integer*4 nr__8 parameter (nr__8=15) ! Number of records character*32 ar__8 ! Full-size record real*8 HJD_8 ! (d) Heliocentric Julian Date real*4 C5471 ! (km/s) Radial velocities for the CIV 5471{AA} line real*4 C5696_4 ! (km/s) Radial velocities for the CIII 5696{AA} line real*4 C5812_4 ! (km/s) Radial velocities for the CIV 5812{AA} line c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table13.dat' ! Absorption lines 1995 radial velocities integer*4 nr__9 parameter (nr__9=5) ! Number of records character*23 ar__9 ! Full-size record real*8 HJD_9 ! (d) Heliocentric Julian Date real*4 He4026 ! (km/s) Radial velocities for the HeI 4026{AA} line real*4 He4388 ! (km/s) Radial velocities for the HeI 4388{AA} line C============================================================================= C Loading file 'table3.dat' ! VBLUW 1989 V light curve C Format for file interpretation 1 format(F11.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,F6.3,1X,F6.3) C Effective file loading open(unit=1,status='old',file= +'table3.dat') write(6,*) '....Loading file: table3.dat' do i__=1,19 read(1,'(A45)')ar__ read(ar__,1)HJD,deltaV,deltaV_B,deltaB_U,deltaU_W,deltaB_L if(ar__(20:24) .EQ. '') deltaV_B = rNULL__ if(ar__(26:31) .EQ. '') deltaB_U = rNULL__ if(ar__(33:38) .EQ. '') deltaU_W = rNULL__ if(ar__(40:45) .EQ. '') deltaB_L = rNULL__ c ..............Just test output........... write(6,1)HJD,deltaV,deltaV_B,deltaB_U,deltaU_W,deltaB_L c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table4.dat' ! VBLUW 1990-I light curves C Format for file interpretation 2 format(F11.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,F6.3,1X,F6.3) C Effective file loading open(unit=1,status='old',file= +'table4.dat') write(6,*) '....Loading file: table4.dat' do i__=1,85 read(1,'(A46)')ar__1 read(ar__1,2) + HJD_1,deltaV_1,deltaV_B_1,deltaB_U_1,deltaU_W_1,deltaB_L_1 if(ar__1(20:24) .EQ. '') deltaV_B_1 = rNULL__ if(ar__1(26:31) .EQ. '') deltaB_U_1 = rNULL__ if(ar__1(33:38) .EQ. '') deltaU_W_1 = rNULL__ if(ar__1(40:45) .EQ. '') deltaB_L_1 = rNULL__ c ..............Just test output........... write(6,2) + HJD_1,deltaV_1,deltaV_B_1,deltaB_U_1,deltaU_W_1,deltaB_L_1 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table5.dat' ! VBLUW 1990-II light curves C Format for file interpretation 3 format(F11.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,F6.3,1X,F6.3) C Effective file loading open(unit=1,status='old',file= +'table5.dat') write(6,*) '....Loading file: table5.dat' do i__=1,199 read(1,'(A46)')ar__2 read(ar__2,3) + HJD_2,deltaV_2,deltaV_B_2,deltaB_U_2,deltaU_W_2,deltaB_L_2 if(ar__2(20:24) .EQ. '') deltaV_B_2 = rNULL__ if(ar__2(26:31) .EQ. '') deltaB_U_2 = rNULL__ if(ar__2(33:38) .EQ. '') deltaU_W_2 = rNULL__ if(ar__2(40:45) .EQ. '') deltaB_L_2 = rNULL__ c ..............Just test output........... write(6,3) + HJD_2,deltaV_2,deltaV_B_2,deltaB_U_2,deltaU_W_2,deltaB_L_2 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table6.dat' ! UBV 1995 V light curve C Format for file interpretation 4 format(F11.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,F6.3,1X,F6.3) C Effective file loading open(unit=1,status='old',file= +'table6.dat') write(6,*) '....Loading file: table6.dat' do i__=1,21 read(1,'(A45)')ar__3 read(ar__3,4) + HJD_3,deltaV_3,deltaV_B_3,deltaB_U_3,deltaU_W_3,deltaB_L_3 if(ar__3(20:24) .EQ. '') deltaV_B_3 = rNULL__ if(ar__3(26:31) .EQ. '') deltaB_U_3 = rNULL__ if(ar__3(33:38) .EQ. '') deltaU_W_3 = rNULL__ if(ar__3(40:45) .EQ. '') deltaB_L_3 = rNULL__ c ..............Just test output........... write(6,4) + HJD_3,deltaV_3,deltaV_B_3,deltaB_U_3,deltaU_W_3,deltaB_L_3 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table8.dat' ! Emission lines 1989 radial velocities C Format for file interpretation 5 format(F11.3,1X,I3,1X,I4,1X,I2,1X,I3,1X,I4,1X,I4) C Effective file loading open(unit=1,status='old',file= +'table8.dat') write(6,*) '....Loading file: table8.dat' do i__=1,30 read(1,'(A38)')ar__4 read(ar__4,5)HJD_4,C4650,C5696,C5812,He6560,C6744,C7062 c ..............Just test output........... write(6,5)HJD_4,C4650,C5696,C5812,He6560,C6744,C7062 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table9.dat' ! Emission lines 1989 equivalent widths C Format for file interpretation 6 format(F11.3,1X,F6.1,1X,F5.1,1X,F6.1,1X,F5.1,1X,F5.1) C Effective file loading open(unit=1,status='old',file= +'table9.dat') write(6,*) '....Loading file: table9.dat' do i__=1,53 read(1,'(A44)')ar__5 read(ar__5,6)HJD_5,C4650_1,C5696_1,C5812_1,He6560_1,C6744_1 if(ar__5(13:18) .EQ. '') C4650_1 = rNULL__ if(ar__5(39:43) .EQ. '') C6744_1 = rNULL__ c ..............Just test output........... write(6,6)HJD_5,C4650_1,C5696_1,C5812_1,He6560_1,C6744_1 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table10.dat' ! Emission lines 1995 equivalent widths C Format for file interpretation 7 format(F11.3,1X,F6.1,1X,F5.1,1X,F6.1,1X,F5.1,1X,F5.1) C Effective file loading open(unit=1,status='old',file= +'table10.dat') write(6,*) '....Loading file: table10.dat' do i__=1,44 read(1,'(A44)')ar__6 read(ar__6,7)HJD_6,C4650_2,C5696_2,C5812_2,He6560_2,C6744_2 if(ar__6(13:18) .EQ. '') C4650_2 = rNULL__ if(ar__6(39:43) .EQ. '') C6744_2 = rNULL__ c ..............Just test output........... write(6,7)HJD_6,C4650_2,C5696_2,C5812_2,He6560_2,C6744_2 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table11.dat' ! Absorption lines 1995 equivalent widths C Format for file interpretation 8 format(F11.3,1X,F6.1,1X,F5.1,1X,F6.1,1X,F5.1,1X,F5.1) C Effective file loading open(unit=1,status='old',file= +'table11.dat') write(6,*) '....Loading file: table11.dat' do i__=1,15 read(1,'(A43)')ar__7 read(ar__7,8)HJD_7,C4650_3,C5696_3,C5812_3,He6560_3,C6744_3 if(ar__7(13:18) .EQ. '') C4650_3 = rNULL__ if(ar__7(39:43) .EQ. '') C6744_3 = rNULL__ c ..............Just test output........... write(6,8)HJD_7,C4650_3,C5696_3,C5812_3,He6560_3,C6744_3 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table12.dat' ! Emission lines 1995 radial velocities C Format for file interpretation 9 format(F11.3,1X,F6.1,1X,F6.1,1X,F5.1) C Effective file loading open(unit=1,status='old',file= +'table12.dat') write(6,*) '....Loading file: table12.dat' do i__=1,15 read(1,'(A32)')ar__8 read(ar__8,9)HJD_8,C5471,C5696_4,C5812_4 c ..............Just test output........... write(6,9)HJD_8,C5471,C5696_4,C5812_4 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table13.dat' ! Absorption lines 1995 radial velocities C Format for file interpretation 10 format(F11.3,1X,F5.1,1X,F5.1) C Effective file loading open(unit=1,status='old',file= +'table13.dat') write(6,*) '....Loading file: table13.dat' do i__=1,5 read(1,'(A23)')ar__9 read(ar__9,10)HJD_9,He4026,He4388 c ..............Just test output........... write(6,10)HJD_9,He4026,He4388 c .......End.of.Just test output........... end do close(1) C============================================================================= stop end