Conversion of standardized ReadMe file for
file /./ftp/cats/J/other/RMxAA/39.89 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-25
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/RMxAA/39.89 UBVRI and polarisation in Lynga 1 (Vazquez+, 2003)
*================================================================================
*Lynga 1, a small open cluster containing a red-supergiant member.
* Vazquez R.A., Giorgi E.E., Brusasco M.A., Baume G., Solivella G.R.
* <Rev. Mex. Astron. Astrofis., 39, 89-105 (2003)>
* =2003RMxAA..39...89V
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! CCD photometric observations in Lynga 1
integer*4 nr__
parameter (nr__=257) ! Number of records
character*73 ar__ ! Full-size record
integer*4 VGB ! Sequential number, Cl* Lynga 1 VGB NNN in Simbad
integer*4 PF88 ! ? Peterson & Fitzgerald (1988MNRAS.235.1439P)
* number, Cl* Lynga 1 PF NN in Simbad
real*4 Xpos ! (pix) X position (1)
real*4 Ypos ! (pix) Y position (1)
real*4 Vmag ! (mag) V magnitude
character*2 u_Vmag ! [: ] Uncertainty flag on Vmag (2)
real*4 B_V ! (mag) ? B-V colour index
character*3 u_B_V ! [: ] Uncertainty flag on B-V (2)
real*4 U_B ! (mag) ? U-B colour index
character*2 u_U_B ! [: ] Uncertainty flag on U-B (2)
real*4 V_Rc ! (mag) ? Cousins V-R colour index
character*2 u_V_Rc ! [: ] Uncertainty flag on V-Rc (2)
real*4 V_Ic ! (mag) ? Cousins V-I colour index
character*2 u_V_Ic ! [: ] Uncertainty flag on V-Ic (2)
character*8 Notes ! Notes about membership and color excess (3)
*Note (1): North is up and East is left. 1 pix = 0.45".
*Note (2): Double colon (::) for photometric errors >0.10.
*Note (3): Notes:
* *: denotes stars used to derive the E(B-V) mean color excess;
* lm: denotes likely member stars;
* pm: denotes probable member;
*
* Stars with proper motions (in mas/y) available from Hippacos (<I/239>):
* Star 1: pmRAcos{delta} = -4.5, pmDE = 2.8
* Star 2: pmRAcos{delta} = -8.3, pmDE = 0.2
* Star 4: pmRAcos{delta} = -13.2, pmDE = -10.2
* Star 5: pmRAcos{delta} = -15.0, pmDE = 4.9
* Star 9: pmRAcos{delta} = -5.8, pmDE = -5.3
*
* Stars showing large differences with Peterson & Fitzgerald
* (1988MNRAS.235.1439P):
* Star 1: {delta}V = 0.17; V_int_ = 12.56; {delta}V_int_ = 0.10
* Star 10: {delta}V = 0.18; V_int_ = 12.32; {delta}V_int_ = -0.09
* Star 28: {delta}V = -0.46; V_int_ = 13.68; {delta}V_int_ = 0.24
* Star 29: {delta}V = 0.56; V_int_ = 13.97; {delta}V_int_ = 0.08
* Star 35: {delta}V = 0.14; V_int_ = 14.71; {delta}V_int_ = 0.07
* Star 40: {delta}V = 0.89; V_int_ = 14.45; {delta}V_int_ = 0.30
* Star 49: {delta}V = -1.21; V_int_ = 15.39; {delta}V_int_ = -0.99
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! Polarization measurements
integer*4 nr__1
parameter (nr__1=77) ! Number of records
character*33 ar__1 ! Full-size record
integer*4 VGB_1 ! Sequential number, Cl* Lynga 1 VGB NNN in Simbad
character*1 Band ! [UBVRI] Photometric band
real*4 Pol ! (%) Percentage of polarisation
real*4 e_Pol ! (%) rms uncertainty on Pol
real*4 theta ! (deg) Polarisation angle
real*4 e_theta ! (deg) rms uncertainty on theta
integer*4 o_Band ! Number of observations in the Band
C=============================================================================
C Loading file 'table3.dat' ! CCD photometric observations in Lynga 1
C Format for file interpretation
1 format(
+ I3,2X,I2,2X,F6.2,1X,F6.2,3X,F5.2,A2,F5.2,A3,F5.2,A2,2X,F4.2,
+ A2,2X,F4.2,A2,2X,A8)
C Effective file loading
open(unit=1,file='table3.dat', status='old')
write(6,*) '....Loading file: table3.dat'
do i__=1,257
read(1,'(A73)')ar__
read(ar__,1)
+ VGB,PF88,Xpos,Ypos,Vmag,u_Vmag,B_V,u_B_V,U_B,u_U_B,V_Rc,
+ u_V_Rc,V_Ic,u_V_Ic,Notes
if(ar__(6:7) .EQ. '') PF88 = iNULL__
if(ar__(33:37) .EQ. '') B_V = rNULL__
if(ar__(41:45) .EQ. '') U_B = rNULL__
if(ar__(50:53) .EQ. '') V_Rc = rNULL__
if(ar__(58:61) .EQ. '') V_Ic = rNULL__
c ..............Just test output...........
write(6,1)
+ VGB,PF88,Xpos,Ypos,Vmag,u_Vmag,B_V,u_B_V,U_B,u_U_B,V_Rc,
+ u_V_Rc,V_Ic,u_V_Ic,Notes
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4.dat' ! Polarization measurements
C Format for file interpretation
2 format(I3,1X,A1,1X,F5.2,2X,F4.2,1X,F6.2,2X,F5.2,1X,I1)
C Effective file loading
open(unit=1,file='table4.dat', status='old')
write(6,*) '....Loading file: table4.dat'
do i__=1,77
read(1,'(A33)')ar__1
read(ar__1,2)VGB_1,Band,Pol,e_Pol,theta,e_theta,o_Band
c ..............Just test output...........
write(6,2)VGB_1,Band,Pol,e_Pol,theta,e_theta,o_Band
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end