Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/409/1017 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-16
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/409/1017 Magnetic activity of 6 young solar stars. II (Messina+, 2003)
*================================================================================
*Magnetic activity of six young solar analogues.
*II. Surface Differential Rotation from long-term photometry
* Messina S., Guinan E.F.
* <Astron. Astrophys. 409, 1017 (2003)>
* =2003A&A...409.1017M
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! BE Cet periodogram analysis
integer*4 nr__
parameter (nr__=10) ! Number of records
character*48 ar__ ! Full-size record
integer*4 JD1_2440000(nr__) ! (d) First observing HJD
integer*4 JD2_2440000(nr__) ! (d) Last observing HJD
integer*4 Nights (nr__) ! Number of observing nights
real*4 Per (nr__) ! (d) Rotational period
real*4 e_Per (nr__) ! (d) Uncertainty on P
real*4 FAP (nr__) ! False Alarm Probability
integer*4 Note (nr__) ! [1/2]? Note (1)
*Note (1): 1: primary period; 2: secondary period
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! {kappa}^1^ Cet periodogram analysis
integer*4 nr__1
parameter (nr__1=6) ! Number of records
character*49 ar__1 ! Full-size record
integer*4 JD1_2440000_1(nr__1) ! (d) First observing HJD
integer*4 JD2_2440000_1(nr__1) ! (d) Last observing HJD
integer*4 Nights_1 (nr__1) ! Number of observing nights
real*4 Per_1 (nr__1) ! (d) Rotational period
real*4 e_Per_1 (nr__1) ! (d) Uncertainty on P
real*4 FAP_1 (nr__1) ! False Alarm Probability
integer*4 Note_1 (nr__1) ! [1/2]? Note (1)
*Note (1): 1: primary period; 2: secondary period
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! {pi}^1^ UMa periodogram analysis
integer*4 nr__2
parameter (nr__2=15) ! Number of records
character*49 ar__2 ! Full-size record
integer*4 JD1_2440000_2(nr__2) ! (d) First observing HJD
integer*4 JD2_2440000_2(nr__2) ! (d) Last observing HJD
integer*4 Nights_2 (nr__2) ! Number of observing nights
real*4 Per_2 (nr__2) ! (d) Rotational period
real*4 e_Per_2 (nr__2) ! (d) Uncertainty on P
real*4 FAP_2 (nr__2) ! False Alarm Probability
integer*4 Note_2 (nr__2) ! [1/2]? Note (1)
*Note (1): 1: primary period; 2: secondary period
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table5.dat' ! EK Dra periodogram analysis
integer*4 nr__3
parameter (nr__3=41) ! Number of records
character*58 ar__3 ! Full-size record
integer*4 JD1_2440000_3(nr__3) ! (d) First observing HJD
integer*4 JD2_2440000_3(nr__3) ! (d) Last observing HJD
integer*4 Nights_3 (nr__3) ! Number of observing nights
real*4 Per_3 (nr__3) ! (d) Rotational period
real*4 e_Per_3 (nr__3) ! (d) Uncertainty on P
real*4 FAP_3 (nr__3) ! False Alarm Probability
integer*4 Note_3 (nr__3) ! [1/2]? Note (1)
*Note (1): 1: primary period; 2: secondary period
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table6.dat' ! HN Peg periodogram analysis
integer*4 nr__4
parameter (nr__4=8) ! Number of records
character*56 ar__4 ! Full-size record
integer*4 JD1_2440000_4(nr__4) ! (d) First observing HJD
integer*4 JD2_2440000_4(nr__4) ! (d) Last observing HJD
integer*4 Nights_4 (nr__4) ! Number of observing nights
real*4 Per_4 (nr__4) ! (d) Rotational period
real*4 e_Per_4 (nr__4) ! (d) Uncertainty on P
real*4 FAP_4 (nr__4) ! False Alarm Probability
integer*4 Note_4 (nr__4) ! [1/2]? Note (1)
*Note (1): 1: primary period; 2: secondary period
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table7.dat' ! DX Leo periodogram analysis
integer*4 nr__5
parameter (nr__5=15) ! Number of records
character*50 ar__5 ! Full-size record
integer*4 JD1_2440000_5(nr__5) ! (d) First observing HJD
integer*4 JD2_2440000_5(nr__5) ! (d) Last observing HJD
integer*4 Nights_5 (nr__5) ! Number of observing nights
real*4 Per_5 (nr__5) ! (d) Rotational period
real*4 e_Per_5 (nr__5) ! (d) Uncertainty on P
real*4 FAP_5 (nr__5) ! False Alarm Probability
integer*4 Note_5 (nr__5) ! [1/2]? Note (1)
*Note (1): 1: primary period; 2: secondary period
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table8.dat' ! LQ Hya periodogram analysis
integer*4 nr__6
parameter (nr__6=16) ! Number of records
character*55 ar__6 ! Full-size record
integer*4 JD1_2440000_6(nr__6) ! (d) First observing HJD
integer*4 JD2_2440000_6(nr__6) ! (d) Last observing HJD
integer*4 Nights_6 (nr__6) ! Number of observing nights
real*4 Per_6 (nr__6) ! (d) Rotational period
real*4 e_Per_6 (nr__6) ! (d) Uncertainty on P
real*4 FAP_6 (nr__6) ! False Alarm Probability
integer*4 Note_6 (nr__6) ! [1/2]? Note (1)
*Note (1): 1: primary period; 2: secondary period
C=============================================================================
C Loading file 'table2.dat' ! BE Cet periodogram analysis
C Format for file interpretation
1 format(I5,2X,I5,2X,I3,3X,F6.4,2X,F6.4,2X,E9.3,1X,I1)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,10
read(1,'(A48)')ar__
read(ar__,1)
+ JD1_2440000(i__),JD2_2440000(i__),Nights(i__),Per(i__),
+ e_Per(i__),FAP(i__),Note(i__)
if(ar__(47:47) .EQ. '') Note(i__) = iNULL__
c ..............Just test output...........
write(6,1)
+ JD1_2440000(i__),JD2_2440000(i__),Nights(i__),Per(i__),
+ e_Per(i__),FAP(i__),Note(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! {kappa}^1^ Cet periodogram analysis
C Format for file interpretation
2 format(I5,2X,I5,2X,I3,3X,F6.4,2X,F6.4,2X,E9.3,1X,I1)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,6
read(1,'(A49)')ar__1
read(ar__1,2)
+ JD1_2440000_1(i__),JD2_2440000_1(i__),Nights_1(i__),
+ Per_1(i__),e_Per_1(i__),FAP_1(i__),Note_1(i__)
if(ar__1(47:47) .EQ. '') Note_1(i__) = iNULL__
c ..............Just test output...........
write(6,2)
+ JD1_2440000_1(i__),JD2_2440000_1(i__),Nights_1(i__),
+ Per_1(i__),e_Per_1(i__),FAP_1(i__),Note_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4.dat' ! {pi}^1^ UMa periodogram analysis
C Format for file interpretation
3 format(I5,2X,I5,2X,I3,3X,F6.4,2X,F6.4,2X,E9.3,1X,I1)
C Effective file loading
open(unit=1,status='old',file=
+'table4.dat')
write(6,*) '....Loading file: table4.dat'
do i__=1,15
read(1,'(A49)')ar__2
read(ar__2,3)
+ JD1_2440000_2(i__),JD2_2440000_2(i__),Nights_2(i__),
+ Per_2(i__),e_Per_2(i__),FAP_2(i__),Note_2(i__)
if(ar__2(47:47) .EQ. '') Note_2(i__) = iNULL__
c ..............Just test output...........
write(6,3)
+ JD1_2440000_2(i__),JD2_2440000_2(i__),Nights_2(i__),
+ Per_2(i__),e_Per_2(i__),FAP_2(i__),Note_2(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table5.dat' ! EK Dra periodogram analysis
C Format for file interpretation
4 format(I5,2X,I5,2X,I3,3X,F6.4,2X,F6.4,2X,E9.3,1X,I1)
C Effective file loading
open(unit=1,status='old',file=
+'table5.dat')
write(6,*) '....Loading file: table5.dat'
do i__=1,41
read(1,'(A58)')ar__3
read(ar__3,4)
+ JD1_2440000_3(i__),JD2_2440000_3(i__),Nights_3(i__),
+ Per_3(i__),e_Per_3(i__),FAP_3(i__),Note_3(i__)
if(ar__3(47:47) .EQ. '') Note_3(i__) = iNULL__
c ..............Just test output...........
write(6,4)
+ JD1_2440000_3(i__),JD2_2440000_3(i__),Nights_3(i__),
+ Per_3(i__),e_Per_3(i__),FAP_3(i__),Note_3(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table6.dat' ! HN Peg periodogram analysis
C Format for file interpretation
5 format(I5,2X,I5,2X,I3,3X,F6.4,2X,F6.4,2X,E9.3,1X,I1)
C Effective file loading
open(unit=1,status='old',file=
+'table6.dat')
write(6,*) '....Loading file: table6.dat'
do i__=1,8
read(1,'(A56)')ar__4
read(ar__4,5)
+ JD1_2440000_4(i__),JD2_2440000_4(i__),Nights_4(i__),
+ Per_4(i__),e_Per_4(i__),FAP_4(i__),Note_4(i__)
if(ar__4(47:47) .EQ. '') Note_4(i__) = iNULL__
c ..............Just test output...........
write(6,5)
+ JD1_2440000_4(i__),JD2_2440000_4(i__),Nights_4(i__),
+ Per_4(i__),e_Per_4(i__),FAP_4(i__),Note_4(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table7.dat' ! DX Leo periodogram analysis
C Format for file interpretation
6 format(I5,2X,I5,2X,I3,3X,F6.4,2X,F6.4,2X,E9.3,1X,I1)
C Effective file loading
open(unit=1,status='old',file=
+'table7.dat')
write(6,*) '....Loading file: table7.dat'
do i__=1,15
read(1,'(A50)')ar__5
read(ar__5,6)
+ JD1_2440000_5(i__),JD2_2440000_5(i__),Nights_5(i__),
+ Per_5(i__),e_Per_5(i__),FAP_5(i__),Note_5(i__)
if(ar__5(47:47) .EQ. '') Note_5(i__) = iNULL__
c ..............Just test output...........
write(6,6)
+ JD1_2440000_5(i__),JD2_2440000_5(i__),Nights_5(i__),
+ Per_5(i__),e_Per_5(i__),FAP_5(i__),Note_5(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table8.dat' ! LQ Hya periodogram analysis
C Format for file interpretation
7 format(I5,2X,I5,2X,I3,3X,F6.4,2X,F6.4,2X,E9.3,1X,I1)
C Effective file loading
open(unit=1,status='old',file=
+'table8.dat')
write(6,*) '....Loading file: table8.dat'
do i__=1,16
read(1,'(A55)')ar__6
read(ar__6,7)
+ JD1_2440000_6(i__),JD2_2440000_6(i__),Nights_6(i__),
+ Per_6(i__),e_Per_6(i__),FAP_6(i__),Note_6(i__)
if(ar__6(47:47) .EQ. '') Note_6(i__) = iNULL__
c ..............Just test output...........
write(6,7)
+ JD1_2440000_6(i__),JD2_2440000_6(i__),Nights_6(i__),
+ Per_6(i__),e_Per_6(i__),FAP_6(i__),Note_6(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end