Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/784/19 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-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/ApJ/784/19 Orphan stream high-resolution spectroscopic study (Casey+, 2014) *================================================================================ *Hunting the parent of the Orphan stream. *II. The first high-resolution spectroscopic study. * Casey A.R., Keller S.C., Da Costa G., Frebel A., Maunder E. * <Astrophys. J., 784, 19 (2014)> * =2014ApJ...784...19C (SIMBAD/NED BibCode) C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Observations integer*4 nr__ parameter (nr__=12) ! Number of records character*87 ar__ ! Full-size record C J2000 position composed of: RAh RAm RAs DE- DEd DEm DEs real*8 RAdeg ! (deg) Right Ascension J2000 real*8 DEdeg ! (deg) Declination J2000 C ---------------------------------- ! (position vector(s) in degrees) character*8 Name ! Star identifier (HD NNNNNN, OSS-NN) character*1 n_Name ! [LMH] Note on Name (1) integer*4 RAh ! (h) Hour of Right Ascension (J2000) integer*4 RAm ! (min) Minute of Right Ascension (J2000) real*4 RAs ! (s) Second of Right Ascension (J2000) character*1 DE_ ! Sign of the Declination (J2000) integer*4 DEd ! (deg) Degree of Declination (J2000) integer*4 DEm ! (arcmin) Arcminute of Declination (J2000) real*4 DEs ! (arcsec) Arcsecond of Declination (J2000) real*4 Vmag ! (mag) [5.86/17.82] V-band magnitude (2) character*10 Date ! ("date") UT Date of observation character*8 Time ! ("h:m:s") UT Time of observation real*4 Airmass ! [1.01/2.0] Airmass character*7 Exp ! (s) Exposure time integer*4 S_N ! [31/335] Signal-to-noise ratio (3) real*4 HV ! (km/s) [-38.2/297.8] Heliocentric velocity real*4 e_HV ! (km/s) [0.9/1.3] Heliocentric velocity error *Note (1): Probability of membership (low, medium, high) listed for the Orphan * stream candidates as defined by Casey et al. (2013ApJ...764...39C). *Note (2): V-band magnitudes for the Orphan stream targets are estimated to be * equivalent to g-band magnitudes. *Note (3): S/N measured per pixel (~0.09 {AA}/pixel) at 600 nm for each target. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! Equivalent Widths for Standard and Program Stars integer*4 nr__1 parameter (nr__1=499) ! Number of records character*103 ar__1 ! Full-size record real*8 Wave ! (nm) Wavelength real*4 Species ! [8.0/63.1] Species identifier real*4 chi ! (eV) Excitation potential real*8 log_gf ! ([-]) Log of the oscillator strength real*4 HD41667 ! (10-13m) ? HD 41667 equivalent width (1) real*4 HD44007 ! (10-13m) ? HD 44007 equivalent width (1) real*4 HD76932 ! (10-13m) ? HD 76932 equivalent width (1) real*4 HD136316 ! (10-13m) ? HD 136316 equivalent width (1) real*4 HD141531 ! (10-13m) ? HD 141531 equivalent width (1) real*4 HD142948 ! (10-13m) ? HD 142948 equivalent width (1) real*4 OSS_3 ! (10-13m) ? OSS 3 equivalent width (1) real*4 OSS_6 ! (10-13m) ? OSS 6 equivalent width (1) real*4 OSS_8 ! (10-13m) ? OSS 8 equivalent width (1) real*4 OSS_14 ! (10-13m) ? OSS 14 equivalent width (1) real*4 OSS_18 ! (10-13m) ? OSS 18 equivalent width (1) *Note (1): In units of milli-Angstroms. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table6.dat' ! Abundance Uncertainties Due to Stellar Parameters integer*4 nr__2 parameter (nr__2=280) ! Number of records character*48 ar__2 ! Full-size record character*8 Name_1 ! Star identifier (HD NNNNNN, OSS-NN) character*5 Species_1 ! Species identifier real*4 DATeff ! ([-]) Abundance uncertainty from T_eff_ real*4 DAlogg ! ([-]) Abundance uncertainty from log(g) real*4 DAvt ! ([-]) Abundance uncertainty from microturbulence real*4 SEDrand ! ([-]) Abundance random standard error about the mean real*4 e__X_H_ ! ([-]) Total [X/H] abundance uncertainty real*4 e__X_Fe_ ! ([-]) ? Total [X/Fe] abundance uncertainty C============================================================================= C Loading file 'table1.dat' ! Observations C Format for file interpretation 1 format( + A8,1X,A1,1X,I2,1X,I2,1X,F4.1,1X,A1,I2,1X,I2,1X,F4.1,1X,F5.2, + 1X,A10,1X,A8,1X,F4.2,1X,A7,1X,I3,2X,F5.1,1X,F3.1) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,12 read(1,'(A87)')ar__ read(ar__,1) + Name,n_Name,RAh,RAm,RAs,DE_,DEd,DEm,DEs,Vmag,Date,Time, + Airmass,Exp,S_N,HV,e_HV 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) + Name,n_Name,RAh,RAm,RAs,DE_,DEd,DEm,DEs,Vmag,Date,Time, + Airmass,Exp,S_N,HV,e_HV write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table2.dat' ! Equivalent Widths for Standard and Program Stars C Format for file interpretation 2 format( + F8.3,1X,F4.1,1X,F4.2,1X,F7.3,1X,F6.2,1X,F6.2,1X,F6.2,1X,F6.2, + 1X,F6.2,1X,F6.2,1X,F6.2,1X,F6.2,1X,F6.2,1X,F6.2,1X,F6.2) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,499 read(1,'(A103)')ar__1 read(ar__1,2) + Wave,Species,chi,log_gf,HD41667,HD44007,HD76932,HD136316, + HD141531,HD142948,OSS_3,OSS_6,OSS_8,OSS_14,OSS_18 if(ar__1(28:33) .EQ. '') HD41667 = rNULL__ if(ar__1(35:40) .EQ. '') HD44007 = rNULL__ if(ar__1(42:47) .EQ. '') HD76932 = rNULL__ if(ar__1(49:54) .EQ. '') HD136316 = rNULL__ if(ar__1(56:61) .EQ. '') HD141531 = rNULL__ if(ar__1(63:68) .EQ. '') HD142948 = rNULL__ if(ar__1(70:75) .EQ. '') OSS_3 = rNULL__ if(ar__1(77:82) .EQ. '') OSS_6 = rNULL__ if(ar__1(84:89) .EQ. '') OSS_8 = rNULL__ if(ar__1(91:96) .EQ. '') OSS_14 = rNULL__ if(ar__1(98:103) .EQ. '') OSS_18 = rNULL__ c ..............Just test output........... write(6,2) + Wave,Species,chi,log_gf,HD41667,HD44007,HD76932,HD136316, + HD141531,HD142948,OSS_3,OSS_6,OSS_8,OSS_14,OSS_18 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table6.dat' ! Abundance Uncertainties Due to Stellar * Parameters C Format for file interpretation 3 format(A8,2X,A5,1X,F5.2,1X,F5.2,1X,F5.2,1X,F4.2,1X,F4.2,1X,F4.2) C Effective file loading open(unit=1,status='old',file= +'table6.dat') write(6,*) '....Loading file: table6.dat' do i__=1,280 read(1,'(A48)')ar__2 read(ar__2,3) + Name_1,Species_1,DATeff,DAlogg,DAvt,SEDrand,e__X_H_,e__X_Fe_ if(ar__2(45:48) .EQ. '') e__X_Fe_ = rNULL__ c ..............Just test output........... write(6,3) + Name_1,Species_1,DATeff,DAlogg,DAvt,SEDrand,e__X_H_,e__X_Fe_ c .......End.of.Just test output........... end do close(1) C============================================================================= stop end