Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/784/19 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/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 (nr__) ! (deg) Right Ascension J2000 real*8 DEdeg (nr__) ! (deg) Declination J2000 C ---------------------------------- ! (position vector(s) in degrees) character*8 Name (nr__) ! Star identifier (HD NNNNNN, OSS-NN) character*1 n_Name (nr__) ! [LMH] Note on Name (1) integer*4 RAh (nr__) ! (h) Hour of Right Ascension (J2000) integer*4 RAm (nr__) ! (min) Minute of Right Ascension (J2000) real*4 RAs (nr__) ! (s) Second of Right Ascension (J2000) character*1 DE_ (nr__) ! Sign of the Declination (J2000) integer*4 DEd (nr__) ! (deg) Degree of Declination (J2000) integer*4 DEm (nr__) ! (arcmin) Arcminute of Declination (J2000) real*4 DEs (nr__) ! (arcsec) Arcsecond of Declination (J2000) real*4 Vmag (nr__) ! (mag) [5.86/17.82] V-band magnitude (2) character*10 Date (nr__) ! ("date") UT Date of observation character*8 Time (nr__) ! ("h:m:s") UT Time of observation real*4 Airmass (nr__) ! [1.01/2.0] Airmass character*7 Exp (nr__) ! (s) Exposure time integer*4 S_N (nr__) ! [31/335] Signal-to-noise ratio (3) real*4 HV (nr__) ! (km/s) [-38.2/297.8] Heliocentric velocity real*4 e_HV (nr__) ! (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 (nr__1) ! (nm) Wavelength real*4 Species (nr__1) ! [8.0/63.1] Species identifier real*4 chi (nr__1) ! (eV) Excitation potential real*8 log_gf (nr__1) ! ([-]) Log of the oscillator strength real*4 HD41667 (nr__1) ! (10-13m) ? HD 41667 equivalent width (1) real*4 HD44007 (nr__1) ! (10-13m) ? HD 44007 equivalent width (1) real*4 HD76932 (nr__1) ! (10-13m) ? HD 76932 equivalent width (1) real*4 HD136316 (nr__1) ! (10-13m) ? HD 136316 equivalent width (1) real*4 HD141531 (nr__1) ! (10-13m) ? HD 141531 equivalent width (1) real*4 HD142948 (nr__1) ! (10-13m) ? HD 142948 equivalent width (1) real*4 OSS_3 (nr__1) ! (10-13m) ? OSS 3 equivalent width (1) real*4 OSS_6 (nr__1) ! (10-13m) ? OSS 6 equivalent width (1) real*4 OSS_8 (nr__1) ! (10-13m) ? OSS 8 equivalent width (1) real*4 OSS_14 (nr__1) ! (10-13m) ? OSS 14 equivalent width (1) real*4 OSS_18 (nr__1) ! (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 (nr__2) ! Star identifier (HD NNNNNN, OSS-NN) character*5 Species_1 (nr__2) ! Species identifier real*4 DATeff (nr__2) ! ([-]) Abundance uncertainty from T_eff_ real*4 DAlogg (nr__2) ! ([-]) Abundance uncertainty from log(g) real*4 DAvt (nr__2) ! ([-]) Abundance uncertainty from microturbulence real*4 SEDrand (nr__2) ! ([-]) Abundance random standard error about the mean real*4 e__X_H_ (nr__2) ! ([-]) Total [X/H] abundance uncertainty real*4 e__X_Fe_ (nr__2) ! ([-]) ? 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(i__),n_Name(i__),RAh(i__),RAm(i__),RAs(i__),DE_(i__), + DEd(i__),DEm(i__),DEs(i__),Vmag(i__),Date(i__),Time(i__), + Airmass(i__),Exp(i__),S_N(i__),HV(i__),e_HV(i__) RAdeg(i__) = rNULL__ DEdeg(i__) = rNULL__ c Derive coordinates RAdeg and DEdeg from input data c (RAdeg and DEdeg are set to rNULL__ when unknown) if(RAh(i__) .GT. -180) RAdeg(i__)=RAh(i__)*15. if(RAm(i__) .GT. -180) RAdeg(i__)=RAdeg(i__)+RAm(i__)/4. if(RAs(i__) .GT. -180) RAdeg(i__)=RAdeg(i__)+RAs(i__)/240. if(DEd(i__) .GE. 0) DEdeg(i__)=DEd(i__) if(DEm(i__) .GE. 0) DEdeg(i__)=DEdeg(i__)+DEm(i__)/60. if(DEs(i__) .GE. 0) DEdeg(i__)=DEdeg(i__)+DEs(i__)/3600. if(DE_(i__).EQ.'-'.AND.DEdeg(i__).GE.0) DEdeg(i__)=-DEdeg(i__) c ..............Just test output........... write(6,1) + Name(i__),n_Name(i__),RAh(i__),RAm(i__),RAs(i__),DE_(i__), + DEd(i__),DEm(i__),DEs(i__),Vmag(i__),Date(i__),Time(i__), + Airmass(i__),Exp(i__),S_N(i__),HV(i__),e_HV(i__) write(6,'(6H Pos: 2F8.4)') RAdeg(i__),DEdeg(i__) 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(i__),Species(i__),chi(i__),log_gf(i__),HD41667(i__), + HD44007(i__),HD76932(i__),HD136316(i__),HD141531(i__), + HD142948(i__),OSS_3(i__),OSS_6(i__),OSS_8(i__),OSS_14(i__), + OSS_18(i__) if(ar__1(28:33) .EQ. '') HD41667(i__) = rNULL__ if(ar__1(35:40) .EQ. '') HD44007(i__) = rNULL__ if(ar__1(42:47) .EQ. '') HD76932(i__) = rNULL__ if(ar__1(49:54) .EQ. '') HD136316(i__) = rNULL__ if(ar__1(56:61) .EQ. '') HD141531(i__) = rNULL__ if(ar__1(63:68) .EQ. '') HD142948(i__) = rNULL__ if(ar__1(70:75) .EQ. '') OSS_3(i__) = rNULL__ if(ar__1(77:82) .EQ. '') OSS_6(i__) = rNULL__ if(ar__1(84:89) .EQ. '') OSS_8(i__) = rNULL__ if(ar__1(91:96) .EQ. '') OSS_14(i__) = rNULL__ if(ar__1(98:103) .EQ. '') OSS_18(i__) = rNULL__ c ..............Just test output........... write(6,2) + Wave(i__),Species(i__),chi(i__),log_gf(i__),HD41667(i__), + HD44007(i__),HD76932(i__),HD136316(i__),HD141531(i__), + HD142948(i__),OSS_3(i__),OSS_6(i__),OSS_8(i__),OSS_14(i__), + OSS_18(i__) 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(i__),Species_1(i__),DATeff(i__),DAlogg(i__),DAvt(i__), + SEDrand(i__),e__X_H_(i__),e__X_Fe_(i__) if(ar__2(45:48) .EQ. '') e__X_Fe_(i__) = rNULL__ c ..............Just test output........... write(6,3) + Name_1(i__),Species_1(i__),DATeff(i__),DAlogg(i__),DAvt(i__), + SEDrand(i__),e__X_H_(i__),e__X_Fe_(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end