Conversion of standardized ReadMe file for
file /./ftp/cats/J/other/RMxAA/44.111 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/RMxAA/44.111 ubvy{beta} photometry of NGC 6882/5 stars (Pena+, 2008)
*================================================================================
*On the nature of the open clusters in the direction of NGC 6882/5.
* Pena J.H., Peniche R., Garrido R., Paparo M., Garcia-Cole A.
* <Rev. Mex. Astron. Astrofis., 44, 111-123 (2008)>
* =2008RMxAA..44..111P
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! {beta} photoelectric photometry of the stars in the
direction of NGC 6882
integer*4 nr__
parameter (nr__=106) ! Number of records
character*103 ar__ ! Full-size record
integer*4 WEBDA (nr__) ! ? WEBDA number
character*10 Name (nr__) ! Denomination for stars without WEBDA number (1)
real*4 v_Vmag_ (nr__) ! (mag) Mean V magnitude
real*4 v_b_y_ (nr__) ! (mag) Mean b-y colour index
real*4 v_m1_ (nr__) ! (mag) Mean m1 index
real*4 v_c1_ (nr__) ! (mag) Mean c1 index
real*4 v_beta_ (nr__) ! (mag) ?=- Mean beta index
character*2 phSp (nr__) ! Photometric spectral type
character*5 SpType (nr__) ! WEBDA MK spectral type
real*4 Vmag (nr__) ! (mag) ? WEBDA V magnitude (2)
real*4 Xpos (nr__) ! (pix) WEBDA X position, or X part of Name (2)
real*4 Ypos (nr__) ! (pix) WEBDA Y position, or Y part of Name(2)
character*20 SName (nr__) ! Simbad name (2) (3)
*Note (1): For a few stars were observed that have no WEBDA ID identifier,
* these are reported by their WEBDA coordinates. Object identified as
* [PPG2008] +xx.x+yy.y in Simbad
*Note (2): Column added at CDS from WEBDA
* (http://www.univie.ac.at/webda/interrogation.html)
*Note (3): Nomenclature note:
* NGC 6882 NN = Hoag et al. 1961PUSNO..17..343H
* Cl* NGC 6882 MAT NN = Mathews R.T. 1963, Publ. Goodsell Obs. no 14
* Cl* NGC 6882 ZUG NN = Zug, 1933LicOB..16..119Z
* Cl* NGC 6882 LAV NNN = Lavdovski, 1961TrPul..73....5L
* NGC 6882 HR NN = Hintz & Rose, 2005PASP..117..955H
C=============================================================================
C Loading file 'table3.dat' ! {beta} photoelectric photometry of the stars in the
* direction of NGC 6882
C Format for file interpretation
1 format(
+ I3,1X,A10,3X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F5.3,1X,A2,1X,A5,
+ 2X,F5.2,2X,F6.2,1X,F6.2,2X,A20)
C Effective file loading
open(unit=1,file='table3.dat', status='old')
write(6,*) '....Loading file: table3.dat'
do i__=1,106
read(1,'(A103)')ar__
read(ar__,1)
+ WEBDA(i__),Name(i__),v_Vmag_(i__),v_b_y_(i__),v_m1_(i__),
+ v_c1_(i__),v_beta_(i__),phSp(i__),SpType(i__),Vmag(i__),
+ Xpos(i__),Ypos(i__),SName(i__)
if(ar__(1:3) .EQ. '') WEBDA(i__) = iNULL__
if (v_beta_(i__) .EQ. 2.2233e-322) v_beta_(i__) = rNULL__
if(ar__(62:66) .EQ. '') Vmag(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ WEBDA(i__),Name(i__),v_Vmag_(i__),v_b_y_(i__),v_m1_(i__),
+ v_c1_(i__),v_beta_(i__),phSp(i__),SpType(i__),Vmag(i__),
+ Xpos(i__),Ypos(i__),SName(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end