Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_AS/139/425 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-Jun-19
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/A+AS/139/425 CCD photometry and astrometry of double stars (Cuypers+, 1999)
*================================================================================
*CCD photometry and astrometry of visual double and multiple stars of the
*HIPPARCOS catalogue. II. CCD photometry and differential astrometry of 288
*southern "intermediate" systems
* Cuypers J., Seggewiss W.
* <Astron. Astrophys. Suppl. Ser. 139, 425 (1999)>
* =1999A&AS..139..425C (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Astrometric and photometric differential results
(instrumental V and I) of the CCD observations for
visual binaries
integer*4 nr__
parameter (nr__=288) ! Number of records
character*113 ar__ ! Full-size record
character*14 Name ! Star designation
character*1 Note1 ! Standard type (1)
real*8 Date ! (yr) Date of observation (Besselian year)
character*1 Note2 ! Note to table1.dat (2)
integer*4 Nobs ! Total number of observations
real*8 rho ! (arcsec) Mean separation
real*8 e_rho ! (arcsec) ? Standard error of the mean separation
real*4 theta ! (deg) Mean position angle
real*4 e_theta ! (deg) ? Standard error of the mean position angle
real*8 rVI ! (arcsec) ? Distance between the V and I parameters
real*8 rNH ! (arcsec) ? Distance between this observation and the
* corresponding Hipparcos (Cat. <I/239>) result
integer*4 o_Vmag ! Number of observations in filter V
real*8 DVmag ! (mag) ? Magnitude difference between component A
* and B in (instrumental) V
real*8 e_DVmag ! (mag) ? Standard error of the mean magnitude
* difference between component A and B in
* (instrumental) V
integer*4 o_Imag ! Number of observations in filter I
real*8 DImag ! (mag) ? Magnitude difference between component A
* and B in (instrumental) I
real*8 e_DImag ! (mag) ? Standard error of the mean magnitude
* difference between component A and B in
* (instrumental) I
*Note (1): a: Astrometric standard
* p: Photometric standard
*Note (2): *: more than one sequence of measurements (see Table 2)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Astrometric and photometric
differential results (instrumental V and I) of the
CCD observations for visual binaries with more
than one sequence of measurements
integer*4 nr__1
parameter (nr__1=71) ! Number of records
character*113 ar__1 ! Full-size record
character*14 Name_1 ! Star designation
character*1 Note1_1 ! Standard type (1)
real*8 Date_1 ! (yr) Date of observation (Besselian year)
character*1 Note2_1 ! Note to table1.dat (2)
integer*4 Nobs_1 ! Total number of observations
real*8 rho_1 ! (arcsec) Mean separation
real*8 e_rho_1 ! (arcsec) ? Standard error of the mean separation
real*4 theta_1 ! (deg) Mean position angle
real*4 e_theta_1 ! (deg) ? Standard error of the mean position angle
real*8 rVI_1 ! (arcsec) ? Distance between the V and I parameters
real*8 rNH_1 ! (arcsec) ? Distance between this observation and the
* corresponding Hipparcos (Cat. <I/239>) result
integer*4 o_Vmag_1 ! Number of observations in filter V
real*8 DVmag_1 ! (mag) ? Magnitude difference between component A
* and B in (instrumental) V
real*8 e_DVmag_1 ! (mag) ? Standard error of the mean magnitude
* difference between component A and B in
* (instrumental) V
integer*4 o_Imag_1 ! Number of observations in filter I
real*8 DImag_1 ! (mag) ? Magnitude difference between component A
* and B in (instrumental) I
real*8 e_DImag_1 ! (mag) ? Standard error of the mean magnitude
* difference between component A and B in
* (instrumental) I
*Note (1): a: Astrometric standard
* p: Photometric standard
*Note (2): *: more than one sequence of measurements (see Table 2)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Photometric results (V and I) of the CCD
observations for visual binaries
integer*4 nr__2
parameter (nr__2=237) ! Number of records
character*104 ar__2 ! Full-size record
character*14 Name_2 ! Star designation
character*1 Note1_2 ! Standard type (1)
real*8 JD ! (d) Julian date
character*1 Note2_2 ! Note to table3.dat (2)
real*4 VmagA ! (mag) V magnitude of component A
real*4 e_VmagA ! (mag) Standard error of the mean on V magnitude of
* component A
real*4 VmagB ! (mag) V magnitude of component B
real*4 e_VmagB ! (mag) Standard error of the mean on V magnitude of
* component B
real*4 DVmag_2 ! (mag) Magnitude difference between component A and B
* in V
integer*4 o_Vmag_2 ! Number of observations in filter V
real*4 V_IA ! (mag) Colour index V-I of component A
real*4 e_V_IA ! (mag) Standard error of the mean of the colour index
* of component A
real*4 V_IB ! (mag) Colour index V-I of component B
real*4 e_V_IB ! (mag) Standard error of the mean of the colour index
* of component B
integer*4 o_Imag_2 ! Number of observations in filter I
real*4 DV_I ! (mag) Colour index V-I difference between component
* A and B
*Note (1): a: Astrometric standard
* p: Photometric standard
*Note (2): *: more than one sequence of measurements (see Table 4)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! Photometric results (V and I) of the CCD
observations for visual binaries with more than
one sequence of measurements
integer*4 nr__3
parameter (nr__3=45) ! Number of records
character*104 ar__3 ! Full-size record
character*14 Name_3 ! Star designation
character*1 Note1_3 ! Standard type (1)
real*8 JD_1 ! (d) Julian date
character*1 Note2_3 ! Note to table3.dat (2)
real*4 VmagA_1 ! (mag) V magnitude of component A
real*4 e_VmagA_1 ! (mag) Standard error of the mean on V magnitude of
* component A
real*4 VmagB_1 ! (mag) V magnitude of component B
real*4 e_VmagB_1 ! (mag) Standard error of the mean on V magnitude of
* component B
real*4 DVmag_3 ! (mag) Magnitude difference between component A and B
* in V
integer*4 o_Vmag_3 ! Number of observations in filter V
real*4 V_IA_1 ! (mag) Colour index V-I of component A
real*4 e_V_IA_1 ! (mag) Standard error of the mean of the colour index
* of component A
real*4 V_IB_1 ! (mag) Colour index V-I of component B
real*4 e_V_IB_1 ! (mag) Standard error of the mean of the colour index
* of component B
integer*4 o_Imag_3 ! Number of observations in filter I
real*4 DV_I_1 ! (mag) Colour index V-I difference between component
* A and B
*Note (1): a: Astrometric standard
* p: Photometric standard
*Note (2): *: more than one sequence of measurements (see Table 4)
C=============================================================================
C Loading file 'table1.dat' ! Astrometric and photometric differential results
* (instrumental V and I) of the CCD observations for
* visual binaries
C Format for file interpretation
1 format(
+ A14,1X,A1,1X,F8.3,1X,A1,1X,I3,1X,F7.3,1X,F7.3,1X,F6.2,1X,F6.2,
+ 1X,F7.3,1X,F7.3,1X,I3,F7.3,F7.3,1X,I3,F7.3,F7.3)
C Effective file loading
open(unit=1,file='table1.dat', status='old')
write(6,*) '....Loading file: table1.dat'
do i__=1,288
read(1,'(A113)')ar__
read(ar__,1)
+ Name,Note1,Date,Note2,Nobs,rho,e_rho,theta,e_theta,rVI,rNH,
+ o_Vmag,DVmag,e_DVmag,o_Imag,DImag,e_DImag
if(ar__(41:47) .EQ. '') e_rho = rNULL__
if(ar__(56:61) .EQ. '') e_theta = rNULL__
if(ar__(63:69) .EQ. '') rVI = rNULL__
if(ar__(71:77) .EQ. '') rNH = rNULL__
if(ar__(82:88) .EQ. '') DVmag = rNULL__
if(ar__(89:95) .EQ. '') e_DVmag = rNULL__
if(ar__(100:106) .EQ. '') DImag = rNULL__
if(ar__(107:113) .EQ. '') e_DImag = rNULL__
c ..............Just test output...........
write(6,1)
+ Name,Note1,Date,Note2,Nobs,rho,e_rho,theta,e_theta,rVI,rNH,
+ o_Vmag,DVmag,e_DVmag,o_Imag,DImag,e_DImag
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! Astrometric and photometric
* differential results (instrumental V and I) of the
* CCD observations for visual binaries with more
* than one sequence of measurements
C Format for file interpretation
2 format(
+ A14,1X,A1,1X,F8.3,1X,A1,1X,I3,1X,F7.3,1X,F7.3,1X,F6.2,1X,F6.2,
+ 1X,F7.3,1X,F7.3,1X,I3,F7.3,F7.3,1X,I3,F7.3,F7.3)
C Effective file loading
open(unit=1,file='table2.dat', status='old')
write(6,*) '....Loading file: table2.dat'
do i__=1,71
read(1,'(A113)')ar__1
read(ar__1,2)
+ Name_1,Note1_1,Date_1,Note2_1,Nobs_1,rho_1,e_rho_1,theta_1,
+ e_theta_1,rVI_1,rNH_1,o_Vmag_1,DVmag_1,e_DVmag_1,o_Imag_1,
+ DImag_1,e_DImag_1
if(ar__1(41:47) .EQ. '') e_rho_1 = rNULL__
if(ar__1(56:61) .EQ. '') e_theta_1 = rNULL__
if(ar__1(63:69) .EQ. '') rVI_1 = rNULL__
if(ar__1(71:77) .EQ. '') rNH_1 = rNULL__
if(ar__1(82:88) .EQ. '') DVmag_1 = rNULL__
if(ar__1(89:95) .EQ. '') e_DVmag_1 = rNULL__
if(ar__1(100:106) .EQ. '') DImag_1 = rNULL__
if(ar__1(107:113) .EQ. '') e_DImag_1 = rNULL__
c ..............Just test output...........
write(6,2)
+ Name_1,Note1_1,Date_1,Note2_1,Nobs_1,rho_1,e_rho_1,theta_1,
+ e_theta_1,rVI_1,rNH_1,o_Vmag_1,DVmag_1,e_DVmag_1,o_Imag_1,
+ DImag_1,e_DImag_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! Photometric results (V and I) of the CCD
* observations for visual binaries
C Format for file interpretation
3 format(
+ A14,A1,1X,F12.4,1X,A1,1X,F6.3,F6.3,1X,F6.3,F6.3,1X,F6.3,1X,I3,
+ 1X,F6.3,F6.3,1X,F6.3,F6.3,1X,I3,1X,F6.3)
C Effective file loading
open(unit=1,file='table3.dat', status='old')
write(6,*) '....Loading file: table3.dat'
do i__=1,237
read(1,'(A104)')ar__2
read(ar__2,3)
+ Name_2,Note1_2,JD,Note2_2,VmagA,e_VmagA,VmagB,e_VmagB,DVmag_2,
+ o_Vmag_2,V_IA,e_V_IA,V_IB,e_V_IB,o_Imag_2,DV_I
c ..............Just test output...........
write(6,3)
+ Name_2,Note1_2,JD,Note2_2,VmagA,e_VmagA,VmagB,e_VmagB,DVmag_2,
+ o_Vmag_2,V_IA,e_V_IA,V_IB,e_V_IB,o_Imag_2,DV_I
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4.dat' ! Photometric results (V and I) of the CCD
* observations for visual binaries with more than
* one sequence of measurements
C Format for file interpretation
4 format(
+ A14,A1,1X,F12.4,1X,A1,1X,F6.3,F6.3,1X,F6.3,F6.3,1X,F6.3,1X,I3,
+ 1X,F6.3,F6.3,1X,F6.3,F6.3,1X,I3,1X,F6.3)
C Effective file loading
open(unit=1,file='table4.dat', status='old')
write(6,*) '....Loading file: table4.dat'
do i__=1,45
read(1,'(A104)')ar__3
read(ar__3,4)
+ Name_3,Note1_3,JD_1,Note2_3,VmagA_1,e_VmagA_1,VmagB_1,
+ e_VmagB_1,DVmag_3,o_Vmag_3,V_IA_1,e_V_IA_1,V_IB_1,e_V_IB_1,
+ o_Imag_3,DV_I_1
c ..............Just test output...........
write(6,4)
+ Name_3,Note1_3,JD_1,Note2_3,VmagA_1,e_VmagA_1,VmagB_1,
+ e_VmagB_1,DVmag_3,o_Vmag_3,V_IA_1,e_V_IA_1,V_IB_1,e_V_IB_1,
+ o_Imag_3,DV_I_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end