Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/506/471 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.5, on 2013-May-26
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+A/506/471 Frequency analysis of CoRoT B stars (Degroote+, 2009)
*================================================================================
*CoRoT's view on newly discovered B-star pulsators: results for 358 candidate
*B pulsators from the initial run's exoplanet field data.
* Degroote P., Aerts C., Ollivier M., Miglio A., Debosscher J., Cuypers J.,
* Briquet M., Montalban J., Thoul A, Noels A., De Cat P., Balaguer-Nunez L.,
* Maceroni C., Ribas I., Auvergne M., Baglin A., Deleuil M., Weiss W.,
* Jorda L., Baudin F., Samadi, R.
* <Astron. Astrophys. 506, 471 (2009)>
* =2009A&A...506..471D
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'stars.dat' ! Star positions
integer*4 nr__
parameter (nr__=352) ! Number of records
character*40 ar__ ! Full-size record
integer*4 CoRoT ! CoRoT star number
real*8 RAdeg ! (deg) Right ascension in decimal degrees (J2000)
real*8 DEdeg ! (deg) Declination in decimal degrees (J2000)
character*13 FileName ! Name of the file with frequency analysis in
* "data" subdirectory
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'data/*' ! Frequency analysis for each star
integer*4 nr__1
parameter (nr__1=352) ! Number of records
character*186 ar__1 ! Full-size record
integer*4 nr ! Frequency number
real*8 A ! (mmag) Amplitude value
real*8 e_A ! (mmag) Mean error on the Amplitude value
real*8 f ! (1/d) Frequency value
real*8 e_f ! (1/d) Mean error on the frequency value
real*8 p ! ]-0.5,0.5] Phase value (in rad/2pi unit)
real*8 e_p ! Mean error on the phase value (in rad/2pi unit)
real*8 S_N ! Signal-to-noise ratio, calculated over 6/d
* interval in the relevant periodogram (not the
* residual periodogram)
character*75 Note ! Notes about the frequency (TeX format)
C=============================================================================
C Loading file 'stars.dat' ! Star positions
C Format for file interpretation
1 format(I9,1X,F7.3,1X,F8.5,1X,A13)
C Effective file loading
open(unit=1,file='stars.dat', status='old')
write(6,*) '....Loading file: stars.dat'
do i__=1,352
read(1,'(A40)')ar__
read(ar__,1)CoRoT,RAdeg,DEdeg,FileName
c ..............Just test output...........
write(6,1)CoRoT,RAdeg,DEdeg,FileName
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'data/*' ! Frequency analysis for each star
C Format for file interpretation
2 format(
+ I3,4X,F14.10,5X,F13.10,4X,F14.10,5X,F13.10,3X,F9.5,3X,F9.5,3X,
+ F8.3,1X,A75)
C Effective file loading
open(unit=1,file='data/*', status='old')
write(6,*) '....Loading file: data/*'
do i__=1,352
read(1,'(A186)')ar__1
read(ar__1,2)nr,A,e_A,f,e_f,p,e_p,S_N,Note
c ..............Just test output...........
write(6,2)nr,A,e_A,f,e_f,p,e_p,S_N,Note
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end