Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/597/A10 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.81 (2015-09-23), on 2024-Mar-29 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/A+A/597/A10 South Ecliptic Pole stars radial velocities (Fremat+, 2017) *================================================================================ *A test field for Gaia. Radial velocity catalogue of stars in the *South Ecliptic Pole. * Fremat Y., Altmann M., Pancino E., Soubiran C., Jofre P., * Damerdji Y., Heiter U., Royer F., Seabroke G., Sordo R., * Blanco-Cuaresma S., Jasniewicz G., Martayan C., Thevenin F., * Vallenari A., Blomme R., David M., Gosset E., Katz D., Viala Y., * Boudreault S., Cantat-Gaudin T., Lobel A., Meisenheimer K., * Nordlander T., Raskin G., Royer P., Zorec J. * <Astron. Astrophys. 597, A10 (2017)> * =2017A&A...597A..10F (SIMBAD/NED BibCode) C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! BVRI photometry of SEP stars integer*4 nr__ parameter (nr__=747) ! Number of records character*91 ar__ ! Full-size record C J2000 position composed of: RAdeg DEdeg character*17 v2MASS (nr__) ! 2MASS name (JHHMMSSss+DDMMSSs) integer*4 EID (nr__) ! ID the 1st version of the GEPC real*8 RAdeg (nr__) ! (deg) Right Ascension (J2000) real*8 DEdeg (nr__) ! (deg) Declination (J2000) character*15 OGLE (nr__) ! OGLE ID (LMCFFF.FF.NNNN) (1) real*4 Dist (nr__) ! (arcsec) ? Angular distance between EID and OGLE sources real*4 Bmag (nr__) ! (mag) ? WFI B magnitude (2) real*4 Vmag (nr__) ! (mag) ? WFI V magnitude (2) real*4 Rmag (nr__) ! (mag) ? WFI R magnitude (2) real*4 Imag (nr__) ! (mag) ? WFI I magnitude (2) *Note (1): from OGLE SEP catalogue of variable stars (Soszynski et al., * 2012, Cat. J/AcA/62/219), for matches found within 1 arcsec. *Note (2): BVRI photometry obtained in 2007 and 2009 at the ESO-La Silla * observatory in Chile with the 2.2-m telescope and the WFI instrument. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! GIRAFFE observations log integer*4 nr__1 parameter (nr__1=51) ! Number of records character*41 ar__1 ! Full-size record integer*4 OB (nr__1) ! Observation Block number real*8 MJD (nr__1) ! (d) Modified Julian date character*4 Setup (nr__1) ! Giraffe setup integer*4 Plate (nr__1) ! Plate number integer*4 ExpTime (nr__1) ! (s) Exposure time character*3 ObsPer (nr__1) ! ESO observing period character*2 Pointing (nr__1) ! Pointing field (see Fig.1) integer*4 SNR (nr__1) ! Signal to noise ratio c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3.dat' ! Characteristics of the closest HERMES spectrum integer*4 nr__2 parameter (nr__2=1249) ! Number of records character*85 ar__2 ! Full-size record integer*4 EID_1 (nr__2) ! ID the 1st version of the GEPC character*4 Setup_1 (nr__2) ! Giraffe setup character*24 ID (nr__2) ! ID of the HERMES star character*18 SpType (nr__2) ! Spectral type of closest spectrum integer*4 r_SpType (nr__2) ! ? Reference for the spectral type * (in refs.dat file) (1) integer*4 Teff (nr__2) ! (K) ? Effective temperature of closest spectrum real*4 logg (nr__2) ! ([cm/s2]) ? Surface gravity of closest spectrum real*4 v_Fe_H_ (nr__2) ! ? Iron abundance of closest spectrum integer*4 r_Teff (nr__2) ! ? Reference for the APs (in refs.dat file) (1) integer*4 vsini (nr__2) ! (km/s) ? vsin(i) of the closest spectrum integer*4 r_vsini (nr__2) ! ? Reference for the vsini (in refs.dat file) (1) *Note (1): When no literature reference is provided for the spectral type, the * classification is the one found in the basic information in the Simbad * database (CDS), while the same situation for the astrophysical parameters * means that the values were estimated using the available Stroemgren photometry * as well as the Moon & Dworetsky (1985MNRAS.217..305M) calibration updated by * Napiwotzki (1997, priv. comm.). c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table5.dat' ! Stellar parameters of the final best template integer*4 nr__3 parameter (nr__3=747) ! Number of records character*38 ar__3 ! Full-size record integer*4 EID_2 (nr__3) ! ID the 1st version of the GEPC integer*4 Teff_1 (nr__3) ! (K) ? Effective temperature real*4 logg_1 (nr__3) ! ([cm/s2]) ? Surface gravity real*4 v_Fe_H__1 (nr__3) ! ? Iron abundance real*4 v_alpha_Fe_(nr__3) ! ? Relative abundance of alpha elements integer*4 vsini_1 (nr__3) ! (km/s) ? Projected rotational velocity character*6 Com (nr__3) ! Comments (C STAR or GALAXY) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table7.dat' ! *Epoch radial velocity determinations integer*4 nr__4 parameter (nr__4=4204) ! Number of records character*94 ar__4 ! Full-size record integer*4 EID_3 (nr__4) ! ID the 1st version of the GEPC character*4 Setup_2 (nr__4) ! Giraffe setup integer*4 SNR_1 (nr__4) ! Signal to noise ratio real*8 HJD (nr__4) ! (d) Heliocentric Julian date real*8 RVISPEC (nr__4) ! (km/s) ? ISPEC de-trended barycentric RV real*4 e_RVISPEC (nr__4) ! (km/s) ? rms uncertainty on RVISPEC real*8 RVPCOR (nr__4) ! (km/s) ? PCOR de-trended barycentric RV real*4 e_RVPCOR (nr__4) ! (km/s) ? rms uncertainty on RVPCOR real*8 RVDAOSPEC (nr__4) ! (km/s) ? DAOSPEC de-trended barycentric RV real*4 e_RVDAOSPEC(nr__4) ! (km/s) ? rms uncertainty on RVDAOSPEC real*8 RV (nr__4) ! (km/s) Weighted mean real*4 e_RV (nr__4) ! (km/s) Corresponding error bar character*7 Rem (nr__4) ! Comment on SNR/type of star c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table8.dat' ! Median RV, LMC membership, and variable status integer*4 nr__5 parameter (nr__5=724) ! Number of records character*72 ar__5 ! Full-size record integer*4 EID_4 (nr__5) ! ID the 1st version of the GEPC real*4 RV_1 (nr__5) ! (km/s) ? Median radial velocity real*4 e_RV_1 (nr__5) ! (km/s) ? Error on RV integer*4 o_RV (nr__5) ! Total number of individual measurements used * to compute the median integer*4 Nep (nr__5) ! Number of epochs real*4 TimeSpan (nr__5) ! (d) Time span of the observations character*21 Rem_1 (nr__5) ! Remarks (1) real*4 Per (nr__5) ! (d) ? OGLE variation period (2) character*11 Vflag (nr__5) ! OGLE variability flag (2) *Note (1): Labels as follows: * LMC = bona fide LMC member * LMC? = possible LMC member * VAR = RV variable * VAR? = possible RV variable * RV-REF = target with constant RV over the time span * RV-REF? = possibly constant in RV * CaII K em. = shows emission in the CaII K line * CaII T em. = shows emission in the CaII triplet * HI em. = shows emission in the Paschen lines *Note (2): For the stars found to have variable photometry by OGLE, we further * give in the last columns the corresponding period of photometric variation * and the OGLE variability flags (Soszynski et al., 2012, Cat. J/AcA/62/219). c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'refs.dat' ! References integer*4 nr__6 parameter (nr__6=80) ! Number of records character*137 ar__6 ! Full-size record integer*4 Ref (nr__6) ! Reference code character*19 BibCode (nr__6) ! BibCode character*27 Aut (nr__6) ! Author's name character*86 Com_1 (nr__6) ! Comments C============================================================================= C Loading file 'table1.dat' ! BVRI photometry of SEP stars C Format for file interpretation 1 format( + A17,1X,I6,1X,F10.6,1X,F10.6,A15,1X,F5.3,1X,F5.2,1X,F5.2,1X, + F5.2,1X,F5.2) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,747 read(1,'(A91)')ar__ read(ar__,1) + v2MASS(i__),EID(i__),RAdeg(i__),DEdeg(i__),OGLE(i__), + Dist(i__),Bmag(i__),Vmag(i__),Rmag(i__),Imag(i__) if(ar__(63:67) .EQ. '') Dist(i__) = rNULL__ if(ar__(69:73) .EQ. '') Bmag(i__) = rNULL__ if(ar__(75:79) .EQ. '') Vmag(i__) = rNULL__ if(ar__(81:85) .EQ. '') Rmag(i__) = rNULL__ if(ar__(87:91) .EQ. '') Imag(i__) = rNULL__ c ..............Just test output........... write(6,1) + v2MASS(i__),EID(i__),RAdeg(i__),DEdeg(i__),OGLE(i__), + Dist(i__),Bmag(i__),Vmag(i__),Rmag(i__),Imag(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table2.dat' ! GIRAFFE observations log C Format for file interpretation 2 format(I6,1X,F11.5,1X,A4,1X,I1,1X,I4,1X,A3,1X,A2,1X,I3) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,51 read(1,'(A41)')ar__1 read(ar__1,2) + OB(i__),MJD(i__),Setup(i__),Plate(i__),ExpTime(i__), + ObsPer(i__),Pointing(i__),SNR(i__) c ..............Just test output........... write(6,2) + OB(i__),MJD(i__),Setup(i__),Plate(i__),ExpTime(i__), + ObsPer(i__),Pointing(i__),SNR(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table3.dat' ! Characteristics of the closest HERMES spectrum C Format for file interpretation 3 format( + I6,1X,A4,1X,A24,1X,A18,1X,I2,1X,I5,1X,F4.2,1X,F5.2,1X,I2,1X, + I3,1X,I2) C Effective file loading open(unit=1,status='old',file= +'table3.dat') write(6,*) '....Loading file: table3.dat' do i__=1,1249 read(1,'(A85)')ar__2 read(ar__2,3) + EID_1(i__),Setup_1(i__),ID(i__),SpType(i__),r_SpType(i__), + Teff(i__),logg(i__),v_Fe_H_(i__),r_Teff(i__),vsini(i__), + r_vsini(i__) if(ar__2(57:58) .EQ. '') r_SpType(i__) = iNULL__ if(ar__2(60:64) .EQ. '') Teff(i__) = iNULL__ if(ar__2(66:69) .EQ. '') logg(i__) = rNULL__ if(ar__2(71:75) .EQ. '') v_Fe_H_(i__) = rNULL__ if(ar__2(77:78) .EQ. '') r_Teff(i__) = iNULL__ if(ar__2(80:82) .EQ. '') vsini(i__) = iNULL__ if(ar__2(84:85) .EQ. '') r_vsini(i__) = iNULL__ c ..............Just test output........... write(6,3) + EID_1(i__),Setup_1(i__),ID(i__),SpType(i__),r_SpType(i__), + Teff(i__),logg(i__),v_Fe_H_(i__),r_Teff(i__),vsini(i__), + r_vsini(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table5.dat' ! Stellar parameters of the final best template C Format for file interpretation 4 format(I6,1X,I5,1X,F3.1,1X,F5.2,1X,F4.2,1X,I3,1X,A6) C Effective file loading open(unit=1,status='old',file= +'table5.dat') write(6,*) '....Loading file: table5.dat' do i__=1,747 read(1,'(A38)')ar__3 read(ar__3,4) + EID_2(i__),Teff_1(i__),logg_1(i__),v_Fe_H__1(i__), + v_alpha_Fe_(i__),vsini_1(i__),Com(i__) if(ar__3(8:12) .EQ. '') Teff_1(i__) = iNULL__ if(ar__3(14:16) .EQ. '') logg_1(i__) = rNULL__ if(ar__3(18:22) .EQ. '') v_Fe_H__1(i__) = rNULL__ if(ar__3(24:27) .EQ. '') v_alpha_Fe_(i__) = rNULL__ if(ar__3(29:31) .EQ. '') vsini_1(i__) = iNULL__ c ..............Just test output........... write(6,4) + EID_2(i__),Teff_1(i__),logg_1(i__),v_Fe_H__1(i__), + v_alpha_Fe_(i__),vsini_1(i__),Com(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table7.dat' ! *Epoch radial velocity determinations C Format for file interpretation 5 format( + I6,1X,A4,1X,I3,1X,F11.5,1X,F7.2,1X,F6.2,1X,F7.2,1X,F6.2,1X, + F7.2,1X,F5.2,1X,F7.2,1X,F6.2,1X,A7) C Effective file loading open(unit=1,status='old',file= +'table7.dat') write(6,*) '....Loading file: table7.dat' do i__=1,4204 read(1,'(A94)')ar__4 read(ar__4,5) + EID_3(i__),Setup_2(i__),SNR_1(i__),HJD(i__),RVISPEC(i__), + e_RVISPEC(i__),RVPCOR(i__),e_RVPCOR(i__),RVDAOSPEC(i__), + e_RVDAOSPEC(i__),RV(i__),e_RV(i__),Rem(i__) if(ar__4(29:35) .EQ. '') RVISPEC(i__) = rNULL__ if(ar__4(37:42) .EQ. '') e_RVISPEC(i__) = rNULL__ if(ar__4(44:50) .EQ. '') RVPCOR(i__) = rNULL__ if(ar__4(52:57) .EQ. '') e_RVPCOR(i__) = rNULL__ if(ar__4(59:65) .EQ. '') RVDAOSPEC(i__) = rNULL__ if(ar__4(67:71) .EQ. '') e_RVDAOSPEC(i__) = rNULL__ c ..............Just test output........... write(6,5) + EID_3(i__),Setup_2(i__),SNR_1(i__),HJD(i__),RVISPEC(i__), + e_RVISPEC(i__),RVPCOR(i__),e_RVPCOR(i__),RVDAOSPEC(i__), + e_RVDAOSPEC(i__),RV(i__),e_RV(i__),Rem(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table8.dat' ! Median RV, LMC membership, and variable status C Format for file interpretation 6 format( + I6,1X,F6.2,1X,F4.2,1X,I2,1X,I2,1X,F6.2,1X,A21,1X,F6.2,1X,A11) C Effective file loading open(unit=1,status='old',file= +'table8.dat') write(6,*) '....Loading file: table8.dat' do i__=1,724 read(1,'(A72)')ar__5 read(ar__5,6) + EID_4(i__),RV_1(i__),e_RV_1(i__),o_RV(i__),Nep(i__), + TimeSpan(i__),Rem_1(i__),Per(i__),Vflag(i__) if(ar__5(8:13) .EQ. '') RV_1(i__) = rNULL__ if(ar__5(15:18) .EQ. '') e_RV_1(i__) = rNULL__ if(ar__5(55:60) .EQ. '') Per(i__) = rNULL__ c ..............Just test output........... write(6,6) + EID_4(i__),RV_1(i__),e_RV_1(i__),o_RV(i__),Nep(i__), + TimeSpan(i__),Rem_1(i__),Per(i__),Vflag(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'refs.dat' ! References C Format for file interpretation 7 format(I2,1X,A19,1X,A27,1X,A86) C Effective file loading open(unit=1,status='old',file= +'refs.dat') write(6,*) '....Loading file: refs.dat' do i__=1,80 read(1,'(A137)')ar__6 read(ar__6,7)Ref(i__),BibCode(i__),Aut(i__),Com_1(i__) c ..............Just test output........... write(6,7)Ref(i__),BibCode(i__),Aut(i__),Com_1(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end