Conversion of standardized ReadMe file for
file /./ftp/cats/J/other/JAD/13.3 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.5, on 2013-May-22
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__=-1.e37) ! NULL real number
parameter (iNULL__=-2147483647) ! NULL int number
C=============================================================================
Cat. J/other/JAD/13.3 BVRI light curves of some cool giant stars (Adelman+, 2007)
*================================================================================
*Johnson BV and Cousins RI photometry of some cool giant stars.
* Adelman S.J., Colegrove B.S., Woodrow S.L.
* <Journal Astronom. Data, 13, 3 (2007)>
* =2007JAD....13....3A
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Photometric Groups
integer*4 nr__
parameter (nr__=30) ! Number of records
character*53 ar__ ! Full-size record
integer*4 HD (nr__) ! HD number
character*12 Name (nr__) ! Star name
character*2 Role (nr__) ! [v c ch] star role: variable, comparison, check
real*4 Vmag (nr__) ! (mag) V magnitude
real*4 B_V (nr__) ! (mag) B-V colour index
character*16 SpType (nr__) ! MK spectral type
integer*4 fltr (nr__) ! [1/5] Neutral density filter (1)
*Note (2): Filters as follows:
* 1 = no neutral density filter
* 2 = 1.25mag neutral density filter
* 3 = 2.50mag neutral density filter
* 4 = 3.75mag neutral density filter
* 5 = 5.00mag neutral density filter
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'photom.dat' ! Differential photometry of 10 stars
integer*4 nr__1
parameter (nr__1=927) ! Number of records
character*83 ar__1 ! Full-size record
real*8 HJD (nr__1) ! (d) Heliocentric Julian Date
real*4 dB1mag (nr__1) ! (mag) Differential v-c B magnitude (1)
real*4 dB0mag (nr__1) ! (mag) Differential ch-c B magnitude (1)
real*4 dV1mag (nr__1) ! (mag) Differential v-c V magnitude (1)
real*4 dV0mag (nr__1) ! (mag) Differential ch-c V magnitude (1)
real*4 dR1mag (nr__1) ! (mag) Differential v-c R magnitude (1)
real*4 dR0mag (nr__1) ! (mag) Differential ch-c R magnitude (1)
real*4 dI1mag (nr__1) ! (mag) Differential v-c I magnitude (1)
real*4 dI0mag (nr__1) ! (mag) Differential ch-c I magnitude (1)
integer*4 HD_1 (nr__1) ! HD number of variable star
*Note (1): Type of star: v = variable, c = comparison star, and ch = check star
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table10.dat' ! Seasonal averages for individual stars
integer*4 nr__2
parameter (nr__2=54) ! Number of records
character*84 ar__2 ! Full-size record
character*10 Calc (nr__2) ! Calculation type: Average or Std. Deviation
integer*4 Season (nr__2) ! Season used in calculation (1)
real*4 dB1mag_1 (nr__2) ! (mag) Differential v-c B magnitude
real*4 dB0mag_1 (nr__2) ! (mag) Differential ch-c B magnitude
real*4 dV1mag_1 (nr__2) ! (mag) ?=- Differential v-c V magnitude
real*4 dV0mag_1 (nr__2) ! (mag) Differential ch-c V magnitude
real*4 dR1mag_1 (nr__2) ! (mag) Differential v-c R magnitude
real*4 dR0mag_1 (nr__2) ! (mag) Differential ch-c R magnitude
real*4 dI1mag_1 (nr__2) ! (mag) ?=- Differential v-c I magnitude
real*4 dI0mag_1 (nr__2) ! (mag) Differential ch-c I magnitude
integer*4 HD_2 (nr__2) ! HD number of variable star
*Note (1): Seasons as follows: :
* 8 = 2450719-2450961 (1997-Sep/1998-Aug)
* 9 = 2451077-2451325 (1998-Sep/1999-Aug)
* 10 = 2451434-2451731 (1999-Sep/2000-Aug)
* 11 = 2451807-2452061 (2000-Sep/2001-Aug)
* 12 = 2452335-2452462 (2001-Sep/2002-Aug)
* 13 = 2452693-2452828 (2002-Sep/2003-Aug)
C=============================================================================
C Loading file 'table1.dat' ! Photometric Groups
C Format for file interpretation
1 format(I6,2X,A12,A2,2X,F4.2,1X,F5.2,1X,A16,1X,I1)
C Effective file loading
open(unit=1,file='table1.dat', status='old')
write(6,*) '....Loading file: table1.dat'
do i__=1,30
read(1,'(A53)')ar__
read(ar__,1)
+ HD(i__),Name(i__),Role(i__),Vmag(i__),B_V(i__),SpType(i__),
+ fltr(i__)
c ..............Just test output...........
write(6,1)
+ HD(i__),Name(i__),Role(i__),Vmag(i__),B_V(i__),SpType(i__),
+ fltr(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'photom.dat' ! Differential photometry of 10 stars
C Format for file interpretation
2 format(
+ F12.4,2X,F6.3,2X,F6.3,2X,F6.3,2X,F6.3,2X,F6.3,2X,F6.3,2X,F6.3,
+ 2X,F6.3,1X,I6)
C Effective file loading
open(unit=1,file='photom.dat', status='old')
write(6,*) '....Loading file: photom.dat'
do i__=1,927
read(1,'(A83)')ar__1
read(ar__1,2)
+ HJD(i__),dB1mag(i__),dB0mag(i__),dV1mag(i__),dV0mag(i__),
+ dR1mag(i__),dR0mag(i__),dI1mag(i__),dI0mag(i__),HD_1(i__)
c ..............Just test output...........
write(6,2)
+ HJD(i__),dB1mag(i__),dB0mag(i__),dV1mag(i__),dV0mag(i__),
+ dR1mag(i__),dR0mag(i__),dI1mag(i__),dI0mag(i__),HD_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table10.dat' ! Seasonal averages for individual stars
C Format for file interpretation
3 format(
+ A10,I2,2X,F6.3,2X,F6.3,2X,F6.3,2X,F6.3,2X,F6.3,2X,F6.3,2X,
+ F6.3,2X,F6.3,2X,I6)
C Effective file loading
open(unit=1,file='table10.dat', status='old')
write(6,*) '....Loading file: table10.dat'
do i__=1,54
read(1,'(A84)')ar__2
read(ar__2,3)
+ Calc(i__),Season(i__),dB1mag_1(i__),dB0mag_1(i__),
+ dV1mag_1(i__),dV0mag_1(i__),dR1mag_1(i__),dR0mag_1(i__),
+ dI1mag_1(i__),dI0mag_1(i__),HD_2(i__)
if (dV1mag_1(i__) .EQ. 2.2233e-322) dV1mag_1(i__) = rNULL__
if (dI1mag_1(i__) .EQ. 2.2233e-322) dI1mag_1(i__) = rNULL__
c ..............Just test output...........
write(6,3)
+ Calc(i__),Season(i__),dB1mag_1(i__),dB0mag_1(i__),
+ dV1mag_1(i__),dV0mag_1(i__),dR1mag_1(i__),dR0mag_1(i__),
+ dI1mag_1(i__),dI0mag_1(i__),HD_2(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end