CDS.headStuff2
FORTRAN Generation
Conversion of standardized ReadMe file for
catalog 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.81 (2015-09-23), on 2024-Apr-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__=--2147483648.) ! NULL real number parameter (iNULL__=(-2147483647-1)) ! NULL int number integer idig ! testing NULL number C============================================================================= Cat. J/MNRAS/352/285 u(bj)r & BV photometry of blue HB stars (Clewley+, 2004) *================================================================================ *Distant field blue horizontal branch stars and the mass of the Galaxy - *II. Photometry and spectroscopy of UKST candidates 16<B<19.5, 11<R<52kpc * Clewley L., Warren S.J., Hewett P.C., Norris J.E., Evans N.W. * <Mon. Not. R. Astron. Soc., 352, 285-298 (2004)> * =2004MNRAS.352..285C C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table4.dat' ! Photometric catalogue of A-type stars selected from six UKST fields integer*4 nr__ parameter (nr__=461) ! Number of records character*64 ar__ ! Full-size record C J2000.0 position composed of: RAh RAm RAs DE- DEd DEm DEs real*8 RAdeg ! (deg) Right Ascension J2000.0 real*8 DEdeg ! (deg) Declination J2000.0 C ---------------------------------- ! (position vector(s) in degrees) character*9 v_CWH2004_ ! Name integer*4 RAh ! (h) Right ascension (J2000.0) integer*4 RAm ! (min) Right ascension (J2000.0) real*4 RAs ! (s) Right ascension (J2000.0) character*1 DE_ ! Declination sign (J2000.0) integer*4 DEd ! (deg) Declination (J2000.0) integer*4 DEm ! (arcmin) Declination (J2000.0) real*4 DEs ! (arcsec) Declination (J2000.0) real*4 bjmag ! (mag) bj magnitude (1) real*4 u_bj ! (mag) u-bj colour index (1) real*4 bj_or ! (mag) bj-or colour index (1) real*4 e_u_bj ! (mag) rms uncertainty on u-bj real*4 e_bj_or ! (mag) rms uncertainty on bj-or *Note (1): UKST filters: * --------------------------------------------------------- * Name Wavelength (nm) at transmittances of * 1/10 and 9/10 maximum values * --------------------------------------------------------- * bj : GG395 365 415 * u : UG1 315,390 330,375 * or : OG590 580 600 * --------------------------------------------------------- c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table7.dat' ! Photometric data for the blue horizontal-branch star candidates, corrected for extinction integer*4 nr__1 parameter (nr__1=280) ! Number of records character*68 ar__1 ! Full-size record C J2000.0 position composed of: RAh RAm RAs DE- DEd DEm DEs real*8 RAdeg_1 ! (deg) Right Ascension J2000.0 real*8 DEdeg_1 ! (deg) Declination J2000.0 C ---------------------------------- ! (position vector(s) in degrees) character*9 v_CWH2004__1 ! Name (1) character*1 m__CWH2004_ ! [qv] Multiplicity index on [CWH2004] integer*4 RAh_1 ! (h) Right ascension (J2000.0) integer*4 RAm_1 ! (min) Right ascension (J2000.0) real*4 RAs_1 ! (s) Right ascension (J2000.0) character*1 DE__1 ! Declination sign (J2000.0) integer*4 DEd_1 ! (deg) Declination (J2000.0) integer*4 DEm_1 ! (arcmin) Declination (J2000.0) real*4 DEs_1 ! (arcsec) Declination (J2000.0) real*4 Vmag ! (mag) V magnitude real*4 v_B_V_0 ! (mag) Dereddend B-V colour index real*4 e_Vmag ! (mag) rms uncertainty on Vmag real*4 e__B_V_0 ! (mag) rms uncertainty on (B-V)0 real*4 E_B_V ! (mag) Reddening in B-V integer*4 N ! Number of photometric nights (2) *Note (1): Suspected variables are labelled 'V'. * Stars that were subsequently found to be quasars are labelled 'q'. * Stars in the complete sample have names prefixed 'C', otherwise the * stars are prefixed 'I'. *Note (2): The dates and total number of photometric nights 'N' for the * photometric survey in each of the six fields presented in Table 1. * Observations were made using the 1.0-m Jacobus Kapteyn Telescope * (JKT), the 2.5-m Isaac Newton Telescope (INT) and the 2.3-m Telescope * at Siding Spring Observatories (SSO). * ---------------------------------------------------------------------- * Telescope Date N Fields * ----------------------------------------------------------------------- * SSO 1998 Sep 13-16 4 SGP * JKT 1998 Oct 15, 17-20 5 SA94, MTF * SSO 1999 Mar 12-18 7 F854, F789, SGP * JKT 1999 April 4, 7-9 4 F854, F789 * SSO 1999 Oct 11-17 7 SGP * JKT 1999 Oct 30-31, Sep 1, 3-5 6 SA94, MTF * SSO 1999 Nov 17-20 4 F358 * SSO 2000 Feb 24 4 F854, F789 * JKT 2000 Mar 23, 26, 28 3 F854, F789 * INT 2001 Mar 29-30, Apr 1 3 SA94, MTF c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table11.dat' ! Spectroscopic data for the horizontal-branch star candidates integer*4 nr__2 parameter (nr__2=142) ! Number of records character*88 ar__2 ! Full-size record character*9 v_CWH2004__2 ! Name character*1 n__CWH2004_ ! [Nbv] Multiplicity index on [CWH2004] real*4 D0_15_gd ! (0.1nm) D0.15 parameter (1) real*4 e_D0_15_gd ! (0.1nm) rms uncertainty on D0.15 real*4 b_gd ! (0.1nm) b parameter (1) real*4 c_gd ! (0.1nm) c parameter (1) real*4 A ! (0.1nm) Semi-major axes of the error ellipse * in the b-c plane (2) real*4 B ! (0.1nm) Semi-minor axes of the error ellipse * in the b-c plane (2) real*4 theta ! (rad) Orientation of the semi-major axis measured * anti-clockwise from the b-axis (2) real*4 v_Fe_H_ ! ([Sun]) ? Measured metallicity real*4 e__Fe_H_ ! ([Sun]) ? rms uncertainty on [Fe/H] real*8 HRV ! (km/s) Heliocentric radial velocity real*4 e_HRV ! (km/s) rms uncertainty on HRV real*4 Dist ! (kpc) Heliocentric distance real*4 e_Dist ! (kpc) rms uncertainty on Dist character*5 Class ! Classification as BHB (blue horizontal-branch) * or A/BS (field blue straggler) *Note (1): Two methods were developed in paper I (Clemens et al., * 2002MNRAS.337...87C) to separate the two populations of A stars. Both * methods employ a Sersic function fit to the H{gamma} and H{delta} * absorption lines. * -- The first method, the 'D0.15-colour' method, plots the average of * the width of the two Balmer lines against (B-V)0 colour. * -- The second method, called the scale-width-shape method, plots two * parameters of the Sersic fit, the scale-width b, against the * power-law exponent c. *Note (2): The errors on the parameters b(gd) and c(gd) are provided with * the A, B and theta parameters of the error ellipse. C============================================================================= C Loading file 'table4.dat' ! Photometric catalogue of A-type stars selected * from six UKST fields C Format for file interpretation 1 format( + A9,1X,I2,1X,I2,1X,F5.2,1X,A1,I2,1X,I2,1X,F5.2,1X,F5.2,1X,F5.2, + 1X,F5.2,1X,F4.2,1X,F4.2) C Effective file loading open(unit=1,status='old',file= +'table4.dat') write(6,*) '....Loading file: table4.dat' do i__=1,461 read(1,'(A64)')ar__ read(ar__,1) + v_CWH2004_,RAh,RAm,RAs,DE_,DEd,DEm,DEs,bjmag,u_bj,bj_or, + e_u_bj,e_bj_or RAdeg = rNULL__ DEdeg = rNULL__ c Derive coordinates RAdeg and DEdeg from input data c (RAdeg and DEdeg are set to rNULL__ when unknown) if(RAh .GT. -180) RAdeg=RAh*15. if(RAm .GT. -180) RAdeg=RAdeg+RAm/4. if(RAs .GT. -180) RAdeg=RAdeg+RAs/240. if(DEd .GE. 0) DEdeg=DEd if(DEm .GE. 0) DEdeg=DEdeg+DEm/60. if(DEs .GE. 0) DEdeg=DEdeg+DEs/3600. if(DE_.EQ.'-'.AND.DEdeg.GE.0) DEdeg=-DEdeg c ..............Just test output........... write(6,1) + v_CWH2004_,RAh,RAm,RAs,DE_,DEd,DEm,DEs,bjmag,u_bj,bj_or, + e_u_bj,e_bj_or write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table7.dat' ! Photometric data for the blue horizontal-branch * star candidates, corrected for extinction C Format for file interpretation 2 format( + A9,A1,1X,I2,1X,I2,1X,F5.2,1X,A1,I2,1X,I2,1X,F5.2,1X,F5.2,1X, + F5.2,1X,F5.3,1X,F5.3,1X,F5.3,1X,I1) C Effective file loading open(unit=1,status='old',file= +'table7.dat') write(6,*) '....Loading file: table7.dat' do i__=1,280 read(1,'(A68)')ar__1 read(ar__1,2) + v_CWH2004__1,m__CWH2004_,RAh_1,RAm_1,RAs_1,DE__1,DEd_1,DEm_1, + DEs_1,Vmag,v_B_V_0,e_Vmag,e__B_V_0,E_B_V,N RAdeg_1 = rNULL__ DEdeg_1 = rNULL__ c Derive coordinates RAdeg_1 and DEdeg_1 from input data c (RAdeg_1 and DEdeg_1 are set to rNULL__ when unknown) if(RAh_1 .GT. -180) RAdeg_1=RAh_1*15. if(RAm_1 .GT. -180) RAdeg_1=RAdeg_1+RAm_1/4. if(RAs_1 .GT. -180) RAdeg_1=RAdeg_1+RAs_1/240. if(DEd_1 .GE. 0) DEdeg_1=DEd_1 if(DEm_1 .GE. 0) DEdeg_1=DEdeg_1+DEm_1/60. if(DEs_1 .GE. 0) DEdeg_1=DEdeg_1+DEs_1/3600. if(DE__1.EQ.'-'.AND.DEdeg_1.GE.0) DEdeg_1=-DEdeg_1 c ..............Just test output........... write(6,2) + v_CWH2004__1,m__CWH2004_,RAh_1,RAm_1,RAs_1,DE__1,DEd_1,DEm_1, + DEs_1,Vmag,v_B_V_0,e_Vmag,e__B_V_0,E_B_V,N write(6,'(6H Pos: 2F8.4)') RAdeg_1,DEdeg_1 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table11.dat' ! Spectroscopic data for the horizontal-branch * star candidates C Format for file interpretation 3 format( + A9,A1,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,F5.3,1X,F5.3, + 1X,F4.1,1X,F3.1,1X,F7.2,1X,F4.1,1X,F4.1,1X,F3.1,1X,A5) C Effective file loading open(unit=1,status='old',file= +'table11.dat') write(6,*) '....Loading file: table11.dat' do i__=1,142 read(1,'(A88)')ar__2 read(ar__2,3) + v_CWH2004__2,n__CWH2004_,D0_15_gd,e_D0_15_gd,b_gd,c_gd,A,B, + theta,v_Fe_H_,e__Fe_H_,HRV,e_HRV,Dist,e_Dist,Class if(ar__2(52:55) .EQ. '') v_Fe_H_ = rNULL__ if(ar__2(57:59) .EQ. '') e__Fe_H_ = rNULL__ c ..............Just test output........... write(6,3) + v_CWH2004__2,n__CWH2004_,D0_15_gd,e_D0_15_gd,b_gd,c_gd,A,B, + theta,v_Fe_H_,e__Fe_H_,HRV,e_HRV,Dist,e_Dist,Class c .......End.of.Just test output........... end do close(1) C============================================================================= stop end