Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_AS/111/41 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 2026-Oct-15
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+AS/111/41 Photometry of magnetic CP stars (North+, 1995)
*================================================================================
*Stroemgren and Geneva photometry of the magnetic CP stars 56 Tauri, HD 111133,
*HD 126515 and HD 215441.
* North P., Adelman S.J.
* <Astron. Astrophys. Suppl. Ser. 111, 41 (1995)>
* =1995A&AS..111...41N
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'gen.dat' ! Geneva photometry
integer*4 nr__
parameter (nr__=60) ! Number of records
character*85 ar__ ! Full-size record
character*9 Name (nr__) ! Star name
real*8 HJD (nr__) ! (d) Heliocentric julian day
integer*4 Q (nr__) ! photometric Q weight (Rufener 1988).
real*4 v_V_ (nr__) ! (mag) Magnitude in the visible: Geneva [V],
integer*4 P (nr__) ! photometric P weight (Rufener 1988).
real*4 v_U_B_ (nr__) ! (mag) Geneva [U-B] index
real*4 v_V_B_ (nr__) ! (mag) Geneva [V-B] index
real*4 v_B1_B_ (nr__) ! (mag) Geneva [B1-B] index
real*4 v_B2_B_ (nr__) ! (mag) Geneva [B2-B] index
real*4 v_V1_B_ (nr__) ! (mag) Geneva [V1-B] index
real*4 v_G_B_ (nr__) ! (mag) Geneva [G-B] index
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'hd27309.dat' ! *Photometry of HD 27309
integer*4 nr__1
parameter (nr__1=89) ! Number of records
character*85 ar__1 ! Full-size record
character*9 Name_1 (nr__1) ! Star name
real*8 HJD_1 (nr__1) ! (d) Heliocentric julian day
integer*4 Q_1 (nr__1) ! Photometric Q weight (Rufener 1988).
* Only valid for Geneva photometry
real*4 v_V__1 (nr__1) ! (mag) Magnitude in the visible (1)
integer*4 P_1 (nr__1) ! Photometric P weight (Rufener 1988).
* Only valid for Geneva photometry
real*4 v_U_B__1 (nr__1) ! (mag) Geneva [U-B] or U-B(Johnson) index (2)
real*4 v_V_B__1 (nr__1) ! (mag) Geneva [V-B] or V-B(Johnson) or y-<vb> index (3)
real*4 v_B1_B__1 (nr__1) ! (mag) Geneva [B1-B] index, (0 for other photometries)
real*4 v_B2_B__1 (nr__1) ! (mag) Geneva [B2-B] index, (0 for other photometries)
real*4 v_V1_B__1 (nr__1) ! (mag) Geneva [V1-B] index, (0 for other photometries)
real*4 v_G_B__1 (nr__1) ! (mag) Geneva [G-B] index, (0 for other photometries)
*Note (1): The magnitude is Geneva [V], differential Stromgren y (dy+6.327
* for the dy data of Wolff & Wolff 1972, and dy+6.319 for our dy data)
* or Johnson V (dV+6.321 for our dV data).
*Note (2): The index is Geneva [U-B] index, or Johnson's differential U-B
* index (zero for uvby photometry). U-B corrected by a constant so that
* U=V-(V-B)+(U-B) has the same zero point as Geneva [U] (offset of 6.881)
*Note (3): The index is Geneva [V-B] index, or differential Johnson's
* V-B index or y-<vb>. V-B and y-<vb> corrected by a constant so that
* B=V-(V-B) and <vb>=y-(y-<vb>) have the same zero point as Geneva [B]
* (offsets of 5.347 and 5.351 respectively)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'hd111133.dat' ! *Photometry of HD 111133
integer*4 nr__2
parameter (nr__2=286) ! Number of records
character*86 ar__2 ! Full-size record
character*9 Name_2 (nr__2) ! Star name
real*8 HJD_2 (nr__2) ! (d) Heliocentric julian day
integer*4 Q_2 (nr__2) ! Photometric Q weight (Rufener 1988).
* Only valid for Geneva photometry
real*4 v_V__2 (nr__2) ! (mag) Magnitude in the visible (1)
integer*4 P_2 (nr__2) ! Photometric P weight (Rufener 1988).
* Only valid for Geneva photometry
real*4 v_U_B__2 (nr__2) ! (mag) Geneva [U-B] or U-B(Johnson) index (2)
real*4 v_V_B__2 (nr__2) ! (mag) Geneva [V-B] or V-B(Johnson) or y-<vb> index (3)
real*4 v_B1_B__2 (nr__2) ! (mag) Geneva [B1-B] index, (0 for other photometries)
real*4 v_B2_B__2 (nr__2) ! (mag) Geneva [B2-B] index, (0 for other photometries)
real*4 v_V1_B__2 (nr__2) ! (mag) Geneva [V1-B] index, (0 for other photometries)
real*4 v_G_B__2 (nr__2) ! (mag) Geneva [G-B] index, (0 for other photometries)
*Note (1): The magnitude is Geneva [V], differential Stromgren y (dy+6.327
* for the dy data of Wolff & Wolff 1972, and dy+6.319 for our dy data)
* or Johnson V (dV+6.321 for our dV data).
*Note (2): The index is Geneva [U-B] index, or Johnson's differential U-B
* index (zero for uvby photometry). U-B corrected by a constant so that
* U=V-(V-B)+(U-B) has the same zero point as Geneva [U] (offset of 6.881)
*Note (3): The index is Geneva [V-B] index, or differential Johnson's
* V-B index or y-<vb>. V-B and y-<vb> corrected by a constant so that
* B=V-(V-B) and <vb>=y-(y-<vb>) have the same zero point as Geneva [B]
* (offsets of 5.347 and 5.351 respectively)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ubvy.dat' ! Differential uvby photometry
integer*4 nr__3
parameter (nr__3=312) ! Number of records
character*52 ar__3 ! Full-size record
character*9 Name_3 (nr__3) ! Star name
real*8 HJD_3 (nr__3) ! (d) Heliocentric julian day of the observation
real*4 umag (nr__3) ! (mag) Differential u magnitude
real*4 vmag (nr__3) ! (mag) Differential v magnitude
real*4 bmag (nr__3) ! (mag) Differential b magnitude
real*4 ymag (nr__3) ! (mag) Differential y magnitude
*--------------------------------------------------------------------------------
*
*Observations characteristics
*-----------------------------------------------------------------------------
* File Q Nobs HJD Star Differential magnitude dm
*-----------------------------------------------------------------------------
* h111 2 286 2440630.000 HD 111133 ---
* h27 2 89 2441313.000 HD 27309 ---
* gen 2 35 2441039.000 HD 126515 ---
* gen 2 25 2439350.000 HD 215441 ---
* ubvy - 81 2448329.000 HD 111133 m(HD111133)-m(HD109860)
* ubvy - 124 2448308.000 HD 126515 m(HD126515)-0.5[m(HR5418)+m(HR5368)]
* ubvy - 73 2448411.000 HD 215441 m(HD15441)-m(HD215501)
* ubvy - 34 2448532.000 HD 27309 m(HD27309)-0.5[m(HR1331)+m(HR1399)]
*-----------------------------------------------------------------------------
* Q : minimum Q weight (Rufener 1988) to consider the Geneva observation
* in the period determination. Dummy value of 3 attributed to our
* y measurements or the V ones from the literature.
* Nobs : Total number of measurements
* HJD : Heliocentric Julian Date from which the data are taken into account
* (e.g. for period search).
C=============================================================================
C Loading file 'gen.dat' ! Geneva photometry
C Format for file interpretation
1 format(
+ A9,1X,F11.3,3X,I1,3X,F5.3,3X,I1,3X,F5.3,3X,F5.3,3X,F5.3,3X,
+ F5.3,3X,F5.3,3X,F5.3)
C Effective file loading
open(unit=1,status='old',file=
+'gen.dat')
write(6,*) '....Loading file: gen.dat'
do i__=1,60
read(1,'(A85)')ar__
read(ar__,1)
+ Name(i__),HJD(i__),Q(i__),v_V_(i__),P(i__),v_U_B_(i__),
+ v_V_B_(i__),v_B1_B_(i__),v_B2_B_(i__),v_V1_B_(i__),v_G_B_(i__)
c ..............Just test output...........
write(6,1)
+ Name(i__),HJD(i__),Q(i__),v_V_(i__),P(i__),v_U_B_(i__),
+ v_V_B_(i__),v_B1_B_(i__),v_B2_B_(i__),v_V1_B_(i__),v_G_B_(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'hd27309.dat' ! *Photometry of HD 27309
C Format for file interpretation
2 format(
+ A9,1X,F11.3,3X,I1,3X,F5.3,3X,I1,3X,F5.3,3X,F5.3,3X,F5.3,3X,
+ F5.3,3X,F5.3,3X,F5.3)
C Effective file loading
open(unit=1,status='old',file=
+'hd27309.dat')
write(6,*) '....Loading file: hd27309.dat'
do i__=1,89
read(1,'(A85)')ar__1
read(ar__1,2)
+ Name_1(i__),HJD_1(i__),Q_1(i__),v_V__1(i__),P_1(i__),
+ v_U_B__1(i__),v_V_B__1(i__),v_B1_B__1(i__),v_B2_B__1(i__),
+ v_V1_B__1(i__),v_G_B__1(i__)
c ..............Just test output...........
write(6,2)
+ Name_1(i__),HJD_1(i__),Q_1(i__),v_V__1(i__),P_1(i__),
+ v_U_B__1(i__),v_V_B__1(i__),v_B1_B__1(i__),v_B2_B__1(i__),
+ v_V1_B__1(i__),v_G_B__1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'hd111133.dat' ! *Photometry of HD 111133
C Format for file interpretation
3 format(
+ A9,1X,F11.3,3X,I1,3X,F5.3,3X,I1,3X,F5.3,3X,F5.3,3X,F5.3,3X,
+ F5.3,3X,F5.3,3X,F5.3)
C Effective file loading
open(unit=1,status='old',file=
+'hd111133.dat')
write(6,*) '....Loading file: hd111133.dat'
do i__=1,286
read(1,'(A86)')ar__2
read(ar__2,3)
+ Name_2(i__),HJD_2(i__),Q_2(i__),v_V__2(i__),P_2(i__),
+ v_U_B__2(i__),v_V_B__2(i__),v_B1_B__2(i__),v_B2_B__2(i__),
+ v_V1_B__2(i__),v_G_B__2(i__)
c ..............Just test output...........
write(6,3)
+ Name_2(i__),HJD_2(i__),Q_2(i__),v_V__2(i__),P_2(i__),
+ v_U_B__2(i__),v_V_B__2(i__),v_B1_B__2(i__),v_B2_B__2(i__),
+ v_V1_B__2(i__),v_G_B__2(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'ubvy.dat' ! Differential uvby photometry
C Format for file interpretation
4 format(A9,1X,F11.3,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'ubvy.dat')
write(6,*) '....Loading file: ubvy.dat'
do i__=1,312
read(1,'(A52)')ar__3
read(ar__3,4)
+ Name_3(i__),HJD_3(i__),umag(i__),vmag(i__),bmag(i__),ymag(i__)
c ..............Just test output...........
write(6,4)
+ Name_3(i__),HJD_3(i__),umag(i__),vmag(i__),bmag(i__),ymag(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end