Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/533/A4 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.81 (2015-09-23), on 2024-Apr-20 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/533/A4 CoRoT photometry of three O-type stars (Blomme+, 2011) *================================================================================ *Variability in the CoRoT photometry of three hot O-type stars. *HD 46223, HD 46150 and HD 46966 * Blomme R., Mahy L., Catala C., Cuypers J., Gosset E., Godart M., * Montalban J., Ventura P., Rauw G., Morel T., Degroote P., Aerts C., * Noels A., Michel E., Baudin F., Baglin A., Auvergne M., Samadi R. * <Astron. Astrophys. 533, A4 (2011)> * =2011A&A...533A...4B C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'hd46223.dat' ! Frequencies, amplitudes, phases for HD 46223 (table 2 of the paper) integer*4 nr__ parameter (nr__=500) ! Number of records character*74 ar__ ! Full-size record integer*4 ID (nr__) ! Frequency ID (running number) real*8 Freq (nr__) ! (d-1) Frequency real*8 e_Freq (nr__) ! (d-1) Error on the frequency real*8 Ampl (nr__) ! (ct) Semi-amplitude real*8 e_Ampl (nr__) ! (ct) Error on semi-amplitude real*4 Phase (nr__) ! (rad) Phase real*4 e_Phase (nr__) ! (rad) Error on the phase real*8 Stdev (nr__) ! (ct) Standard deviation at this phase prewhitening real*4 SigRed (nr__) ! Significance under red noise conditions character*1 Red (nr__) ! [R] 'R' if significant under red noise, * ' ' otherwise character*1 Half (nr__) ! [*] '*' if still present when data set is split * in two halves, ' ' otherwise c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'hd46150.dat' ! Frequencies, amplitudes, phases for HD 46150 (table 3 of the paper) integer*4 nr__1 parameter (nr__1=500) ! Number of records character*74 ar__1 ! Full-size record integer*4 ID_1 (nr__1) ! Frequency ID (running number) real*8 Freq_1 (nr__1) ! (d-1) Frequency real*8 e_Freq_1 (nr__1) ! (d-1) Error on the frequency real*8 Ampl_1 (nr__1) ! (ct) Semi-amplitude real*8 e_Ampl_1 (nr__1) ! (ct) Error on semi-amplitude real*4 Phase_1 (nr__1) ! (rad) Phase real*4 e_Phase_1 (nr__1) ! (rad) Error on the phase real*8 Stdev_1 (nr__1) ! (ct) Standard deviation at this phase prewhitening real*4 SigRed_1 (nr__1) ! Significance under red noise conditions character*1 Red_1 (nr__1) ! [R] 'R' if significant under red noise, * ' ' otherwise character*1 Half_1 (nr__1) ! [*] '*' if still present when data set is split * in two halves, ' ' otherwise c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'hd46966.dat' ! Frequencies, amplitudes, phases for HD 46966 (table 4 of the paper) integer*4 nr__2 parameter (nr__2=300) ! Number of records character*74 ar__2 ! Full-size record integer*4 ID_2 (nr__2) ! Frequency ID (running number) real*8 Freq_2 (nr__2) ! (d-1) Frequency real*8 e_Freq_2 (nr__2) ! (d-1) Error on the frequency real*8 Ampl_2 (nr__2) ! (ct) Semi-amplitude real*8 e_Ampl_2 (nr__2) ! (ct) Error on semi-amplitude real*4 Phase_2 (nr__2) ! (rad) Phase real*4 e_Phase_2 (nr__2) ! (rad) Error on the phase real*8 Stdev_2 (nr__2) ! (ct) Standard deviation at this phase prewhitening real*4 SigRed_2 (nr__2) ! Significance under red noise conditions character*1 Red_2 (nr__2) ! [R] 'R' if significant under red noise, * ' ' otherwise character*1 Half_2 (nr__2) ! [*] '*' if still present when data set is split * in two halves, ' ' otherwise C============================================================================= C Loading file 'hd46223.dat' ! Frequencies, amplitudes, phases for HD 46223 * (table 2 of the paper) C Format for file interpretation 1 format( + I4,1X,F7.4,1X,F7.4,1X,F8.3,1X,F8.3,1X,F6.3,1X,F6.3,1X,F9.3,2X, + F6.4,1X,A1,1X,A1) C Effective file loading open(unit=1,status='old',file= +'hd46223.dat') write(6,*) '....Loading file: hd46223.dat' do i__=1,500 read(1,'(A74)')ar__ read(ar__,1) + ID(i__),Freq(i__),e_Freq(i__),Ampl(i__),e_Ampl(i__), + Phase(i__),e_Phase(i__),Stdev(i__),SigRed(i__),Red(i__), + Half(i__) c ..............Just test output........... write(6,1) + ID(i__),Freq(i__),e_Freq(i__),Ampl(i__),e_Ampl(i__), + Phase(i__),e_Phase(i__),Stdev(i__),SigRed(i__),Red(i__), + Half(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'hd46150.dat' ! Frequencies, amplitudes, phases for HD 46150 * (table 3 of the paper) C Format for file interpretation 2 format( + I4,1X,F7.4,1X,F7.4,1X,F8.3,1X,F8.3,1X,F6.3,1X,F6.3,1X,F9.3,2X, + F6.4,1X,A1,1X,A1) C Effective file loading open(unit=1,status='old',file= +'hd46150.dat') write(6,*) '....Loading file: hd46150.dat' do i__=1,500 read(1,'(A74)')ar__1 read(ar__1,2) + ID_1(i__),Freq_1(i__),e_Freq_1(i__),Ampl_1(i__),e_Ampl_1(i__), + Phase_1(i__),e_Phase_1(i__),Stdev_1(i__),SigRed_1(i__), + Red_1(i__),Half_1(i__) c ..............Just test output........... write(6,2) + ID_1(i__),Freq_1(i__),e_Freq_1(i__),Ampl_1(i__),e_Ampl_1(i__), + Phase_1(i__),e_Phase_1(i__),Stdev_1(i__),SigRed_1(i__), + Red_1(i__),Half_1(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'hd46966.dat' ! Frequencies, amplitudes, phases for HD 46966 * (table 4 of the paper) C Format for file interpretation 3 format( + I4,1X,F7.4,1X,F7.4,1X,F8.3,1X,F8.3,1X,F6.3,1X,F6.3,1X,F9.3,2X, + F6.4,1X,A1,1X,A1) C Effective file loading open(unit=1,status='old',file= +'hd46966.dat') write(6,*) '....Loading file: hd46966.dat' do i__=1,300 read(1,'(A74)')ar__2 read(ar__2,3) + ID_2(i__),Freq_2(i__),e_Freq_2(i__),Ampl_2(i__),e_Ampl_2(i__), + Phase_2(i__),e_Phase_2(i__),Stdev_2(i__),SigRed_2(i__), + Red_2(i__),Half_2(i__) c ..............Just test output........... write(6,3) + ID_2(i__),Freq_2(i__),e_Freq_2(i__),Ampl_2(i__),e_Ampl_2(i__), + Phase_2(i__),e_Phase_2(i__),Stdev_2(i__),SigRed_2(i__), + Red_2(i__),Half_2(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end