Conversion of standardized ReadMe file for
file /./ftp/cats/III/257/ 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-23
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. III/257 RAVE second data release (Zwitter+, 2008)
*================================================================================
*The Radial Velocity Experiment (RAVE): second data release.
* Zwitter T., Siebert A., Munari U., Freeman K.C., Siviero A., Watson F.G.,
* Fulbright J.P., Wyse R.F.G., Campbell R., Seabroke G.M., Williams M.,
* Steinmetz M., Bienayme O., Gilmore G., Grebel E.K., Helmi A., Navarro J.F.,
* Anguiano B., Boeche C., Burton D., Cass P., Dawe J., Fiegert K., Hartley M.,
* Russell K., Veltz L., Bailin J., Binney J., Bland-Hawthorn J., Brown A.,
* Dehnen W., Evans N.W., Fiorentin P.R., Fiorucci M., Gerhard O., Gibson B.,
* Kelz A., Kujken K., Matijevic G., Minchev I., Parker Q.A., Penarrubia J.,
* Quillen A., Read M.A., Reid W., Roeser S., Ruchti G., Scholz R.-D.,
* Smith M.C., Sordo R., Tolstoi E., Tomasella L., Vidrih S., de Boer E.W.
* <Astron. J. 136, 421 (2008)>
* =2008AJ....136..421Z
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ravedr2.dat' ! RAVE catalog with position, radial velocities,
atmospheric parameters and photometry
integer*4 nr__
parameter (nr__=51829) ! Number of records
character*476 ar__ ! Full-size record
character*16 Name (nr__) ! Target designation
character*16 AltName (nr__) ! Target altername designation
real*8 RAdeg (nr__) ! (deg) Right ascension in decimal degrees (J2000.0)
real*8 DEdeg (nr__) ! (deg) Declination in decimal degrees (J2000.0)
real*8 GLON (nr__) ! (deg) Galactic longitude
real*8 GLAT (nr__) ! (deg) Galactic latitude
real*8 HRV (nr__) ! (km/s) Heliocentric radial velocity
real*4 e_HRV (nr__) ! (km/s) HRV error
real*4 pmRA (nr__) ! (mas/yr) ?=9999.9 Proper motion RA
real*4 e_pmRA (nr__) ! (mas/yr) ?=9999.9 Error proper motion RA
real*4 pmDE (nr__) ! (mas/yr) ?=9999.9 Proper motion DE
real*4 e_pmDE (nr__) ! (mas/yr) ?=9999.9 Error proper motion DE
integer*4 r_pmDE (nr__) ! ?=9 Source of proper motion (1)
real*4 Imag (nr__) ! (mag) Input catalog I magnitude
character*8 ObsDate (nr__) ! ("YYYYMMDD") Date of observation
character*10 Field (nr__) ! Name of RAVE field
integer*4 Plate (nr__) ! [1/2] Plate number used
integer*4 Fiber (nr__) ! [1/150] Fiber number
integer*4 Teff (nr__) ! (K) ?=0 Effective Temperature
real*4 logg (nr__) ! ?=9.99 Gravity
real*4 v_M_H_ (nr__) ! ?=99.99 Uncalibrated [M/H]
real*4 v_alf_Fe_ (nr__) ! ?=9.99 alpha enhancement [{alpha}/Fe]
real*4 v_M_H_c (nr__) ! ([Sun]) ?=99.99 Calibrated [M/H]
real*8 Chi2 (nr__) ! ?=0 chi square
real*4 S2N (nr__) ! ?=0 Corrected signal to noise
real*4 R (nr__) ! Tonry-Davis correlation coefficient
real*4 hcp (nr__) ! Height of correlation peak
real*4 wcp (nr__) ! (km/s) Width of correlation peak
real*4 cRV (nr__) ! (km/s) Zero point correction applied
real*4 HRVsky (nr__) ! (km/s) Measured heliocentric radial velocity of sky
real*4 e_HRVsky (nr__) ! (km/s) Error HRV of sky
real*4 Rsky (nr__) ! Sky Tonry-Davis correlation coefficient
real*4 S_N (nr__) ! ?=-10 Spectra signal to noise ratio
real*4 BTmag (nr__) ! (mag) ?=99.999 Tycho-2 BT magnitude
real*4 e_BTmag (nr__) ! (mag) ?=99.999 Error on BTmag
real*4 VTmag (nr__) ! (mag) ?=99.999 Tycho-2 VT magnitude
real*4 e_VTmag (nr__) ! (mag) ?=99.999 Error on VTmag
character*14 USNO_B (nr__) ! USNO-B designation
real*4 DistU (nr__) ! (mas) ?=99.999 Distance to USNO-B source
real*4 B1mag (nr__) ! (mag) ?=99.99 USNO-B B1 magnitude
real*4 R1mag (nr__) ! (mag) ?=99.99 USNO-B R1 magnitude
real*4 B2mag (nr__) ! (mag) ?=99.99 USNO-B B2 magnitude
real*4 R2mag (nr__) ! (mag) ?=99.99 USNO-B R2 magnitude
real*4 ImagU (nr__) ! (mag) ?=99.99 USNO-B I magnitude
character*1 XU (nr__) ! [ABCDX] USNO cross-identification flag (2)
character*16 DENIS (nr__) ! DENIS designation
real*4 DistD (nr__) ! (mas) ?=99.999 Distance to DENIS source
real*4 ImagD (nr__) ! (mag) ?=99.999 DENIS I magnitude
real*4 e_ImagD (nr__) ! (mag) ?=9.99 Error on DENIS I magnitude
real*4 JmagD (nr__) ! (mag) ?=99.999 DENIS J magnitude
real*4 e_JmagD (nr__) ! (mag) ?=9.99 Error on DENIS J magnitude
real*4 KmagD (nr__) ! (mag) ?=99.999 DENIS K magnitude
real*4 e_KmagD (nr__) ! (mag) ?=9.99 Error on DENIS K magnitude
character*1 XD (nr__) ! [ABCDX] DENIS cross-identification flag (2)
character*16 v2MASS (nr__) ! 2MASS designation
real*4 Dist2 (nr__) ! (mas) ?=99.999 Distance to 2MASS source
real*4 Jmag2 (nr__) ! (mag) ?=99.990 2MASS J magnitude
real*4 e_Jmag2 (nr__) ! (mag) ?=9.990 Error on 2MASS J magnitude
real*4 Hmag2 (nr__) ! (mag) ?=99.990 2MASS H magnitude
real*4 e_Hmag2 (nr__) ! (mag) ?=9.990 Error on 2MASS H magnitude
real*4 Kmag2 (nr__) ! (mag) ?=99.990 2MASS K magnitude
real*4 e_Kmag2 (nr__) ! (mag) ?=9.990 Error on 2MASS K magnitude
character*3 q_2MASS (nr__) ! 2MASS photometric flag
character*1 X2 (nr__) ! [ABCDX] 2MASS cross-identification flag (2)
character*1 ZP1 (nr__) ! [A-E] Entire plate zero point correction
* flag (3)
character*1 ZP2 (nr__) ! [A-E] 50 fibers group to which the fiber
* belongs zero point correction flag (3)
character*1 ZP3 (nr__) ! [*] * when fiber is close to a 15 fibers gap
character*8 Qual (nr__) ! Spectra quality flag (4)
*Note (1): Source of proper motion as follows:
* 0 = no proper motion
* 1 = Tycho-2 proper motion
* 2 = Supercosmos Sky Survey proper motion
* 3 = STARNET2.0 proper motion
* 4 = GSC1.2 x 2MASS proper motion
* 5 = UCAC-2 proper motions
*Note (2): Cross-identification flag as follows:
* A = good association
* B = 2 solutions within 1arcsec
* C = more than two solutions within 1arcsec
* D = nearest neighbour more than 2arcsec away
* X = no possible counterpart found
*Note (3): Flag value as follows:
* A = dispersion around correction lower than 1km/s
* B = dispersion between 1 and 2km/s
* C = dispersion between 2 and 3km/s
* D = dispersion larger than 3km/s
* E = less than 15 fibers available for the fit
*Note (4): Flag identifying possible problem in the spectra (values can be
* combined) as follows:
* a = asymmetric Ca lines
* c = cosmic ray pollution
* e = emission line spectra
* n = noise dominated spectra
* l = no lines visible
* w = weak lines
* g = strong ghost
* t = bad template fit
* s = strong residual sky emission
* cc = bad continuum
* r = red part of the spectra shows problem
* b = blue part of the spectra shows problem
* p = possible binary/doubled lined
* x = peculiar object
C=============================================================================
C Loading file 'ravedr2.dat' ! RAVE catalog with position, radial velocities,
* atmospheric parameters and photometry
C Format for file interpretation
1 format(
+ A16,1X,A16,1X,F12.8,1X,F12.8,1X,F9.5,1X,F9.5,1X,F7.1,1X,F6.1,
+ 1X,F6.1,1X,F6.1,1X,F6.1,1X,F6.1,1X,I1,1X,F5.2,1X,A8,1X,A10,1X,
+ I1,1X,I3,1X,I5,1X,F4.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,F8.1,1X,
+ F5.1,1X,F5.1,1X,F4.2,1X,F6.1,1X,F6.1,1X,F6.1,1X,F6.1,1X,F5.1,
+ 1X,F5.1,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,A14,1X,F6.3,1X,
+ F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,A1,1X,A16,1X,F6.3,1X,
+ F6.3,1X,F4.2,1X,F6.3,1X,F4.2,1X,F6.3,1X,F4.2,1X,A1,1X,A16,1X,
+ F6.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,A3,1X,
+ A1,1X,A1,A1,A1,1X,A8)
C Effective file loading
open(unit=1,file='ravedr2.dat', status='old')
write(6,*) '....Loading file: ravedr2.dat'
do i__=1,51829
read(1,'(A476)')ar__
read(ar__,1)
+ Name(i__),AltName(i__),RAdeg(i__),DEdeg(i__),GLON(i__),
+ GLAT(i__),HRV(i__),e_HRV(i__),pmRA(i__),e_pmRA(i__),pmDE(i__),
+ e_pmDE(i__),r_pmDE(i__),Imag(i__),ObsDate(i__),Field(i__),
+ Plate(i__),Fiber(i__),Teff(i__),logg(i__),v_M_H_(i__),
+ v_alf_Fe_(i__),v_M_H_c(i__),Chi2(i__),S2N(i__),R(i__),
+ hcp(i__),wcp(i__),cRV(i__),HRVsky(i__),e_HRVsky(i__),
+ Rsky(i__),S_N(i__),BTmag(i__),e_BTmag(i__),VTmag(i__),
+ e_VTmag(i__),USNO_B(i__),DistU(i__),B1mag(i__),R1mag(i__),
+ B2mag(i__),R2mag(i__),ImagU(i__),XU(i__),DENIS(i__),
+ DistD(i__),ImagD(i__),e_ImagD(i__),JmagD(i__),e_JmagD(i__),
+ KmagD(i__),e_KmagD(i__),XD(i__),v2MASS(i__),Dist2(i__),
+ Jmag2(i__),e_Jmag2(i__),Hmag2(i__),e_Hmag2(i__),Kmag2(i__),
+ e_Kmag2(i__),q_2MASS(i__),X2(i__),ZP1(i__),ZP2(i__),ZP3(i__),
+ Qual(i__)
c ..............Just test output...........
write(6,1)
+ Name(i__),AltName(i__),RAdeg(i__),DEdeg(i__),GLON(i__),
+ GLAT(i__),HRV(i__),e_HRV(i__),pmRA(i__),e_pmRA(i__),pmDE(i__),
+ e_pmDE(i__),r_pmDE(i__),Imag(i__),ObsDate(i__),Field(i__),
+ Plate(i__),Fiber(i__),Teff(i__),logg(i__),v_M_H_(i__),
+ v_alf_Fe_(i__),v_M_H_c(i__),Chi2(i__),S2N(i__),R(i__),
+ hcp(i__),wcp(i__),cRV(i__),HRVsky(i__),e_HRVsky(i__),
+ Rsky(i__),S_N(i__),BTmag(i__),e_BTmag(i__),VTmag(i__),
+ e_VTmag(i__),USNO_B(i__),DistU(i__),B1mag(i__),R1mag(i__),
+ B2mag(i__),R2mag(i__),ImagU(i__),XU(i__),DENIS(i__),
+ DistD(i__),ImagD(i__),e_ImagD(i__),JmagD(i__),e_JmagD(i__),
+ KmagD(i__),e_KmagD(i__),XD(i__),v2MASS(i__),Dist2(i__),
+ Jmag2(i__),e_Jmag2(i__),Hmag2(i__),e_Hmag2(i__),Kmag2(i__),
+ e_Kmag2(i__),q_2MASS(i__),X2(i__),ZP1(i__),ZP2(i__),ZP3(i__),
+ Qual(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end