Conversion of standardized ReadMe file for
file /./ftp/cats/J/MNRAS/411/1597 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-28 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/411/1597 LMC point source classification in SAGE-Spec (Woods+, 2011) *================================================================================ *The SAGE-Spec Spitzer Legacy programme: the life-cycle of dust and gas in the *Large Magellanic Cloud. Point source classification I. * Woods P.M., Oliveira J.M., Kemper F., van Loon J.T., Sargent B.A., * Matsuura M., Szczerba R., Volk K., Zijlstra A.A., Sloan G.C., Lagadec E., * McDonald I., Jones O., Gorjian V., Kraemer K.E., Gielen C., Meixner M., * Blum R.D., Sewilo M., Riebel D., Shiao B., Chen C.-H.R., Boyer M.L., * Indebetouw R., Antoniou V., Bernard J.-P., Cohen M., Dijkstra C., * Galametz M., Galliano F., Gordon K.D., Harris J., Hony S., Hora J.L., * Kawamura A., Lawton B., Leisenring J.M., Madden S., Marengo M., McGuire C., * Mulia A.J., O'Halloran B., Olsen K., Paladini R., Paradis D., Reach W.T., * Rubin D., Sandstrom K., Soszynski I., Speck A.K., Srinivasan S., * Tielens A.G.G.M., van Aarle E., van Dyk S.D., Van Winckel H., Vijh U.P., * Whitney B., Wilkins A.N. * <Mon. Not. R. Astron. Soc., 411, 1597-1627 (2011)> * =2011MNRAS.411.1597W C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3.dat' ! Classification of point sources targeted in IRS staring mode as part of the SAGE-Spec program integer*4 nr__ parameter (nr__=197) ! Number of records character*133 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) integer*4 SSID ! [1/197] Sequential number character*25 Name ! Name (1) integer*4 RAh ! (h) Observed right ascension (J2000) integer*4 RAm ! (min) Observed right ascension (J2000) real*4 RAs ! (s) Observed right ascension (J2000) character*1 DE_ ! Observed declination sign (J2000) integer*4 DEd ! (deg) Observed declination (J2000) integer*4 DEm ! (arcmin) Observed declination (J2000) real*4 DEs ! (arcsec) Observed declination (J2000) character*22 SSTISAGE ! SSTISAGE designation (2) character*13 MACHO ! MACHO designation (Cat. II/247) integer*4 Per ! (d) ? MACHO period or * lower value of period interval (3) integer*4 Per2 ! (d) ? Upper value of MACHO period interval (3) character*1 u_Per ! [u] for period undefined in MACHO character*10 OGLE ! OLGE designation integer*4 PerO ! (d) ? OGLE period (4) character*15 Class ! Classification of the object (5) *Note (1): We employ commonly-used abbreviations, e.g., * * RP for [RP2006] (Reid & Parker, 2006, Cat. J/MNRAS/373/521), * * KDM for [KDM2001] (Kontizas et al., 2001, cat. J/A+A/369/932) *Note (2): SAGE-LMC identifier (Meixner et al., 2006, Cat. J/AJ/132/2268) *Note (3): Periods are taken from Alcock et al. (1998AJ....115.1921A) and * Fraser et al. (2005AJ....129..768F, 2008, Cat. J/AJ/136/1242). *Note (4): Periods are taken from the online OGLE-III catalog, as of 2009 * October 21 (Soszy'nski et al. 2008, Cat. J/AcA/58/293; * 2009, Cat. J/AcA/59/239) *Note (5): the classes are defined as follows: * YSO-1 = Young stellar object with ices * YSO-2 = Young stellar object with silicate absorption * YSO-3 = Young stellar object with PAH emission * YSO-4 = Young stellar object with silicate emission * STAR = Stellar photosphere * C-AGB = C-rich AGB star * O-AGB = O-rich AGB star * RSG = Red supergiant * C-PAGB = C-rich post-AGB star * O-PAGB = O-rich post-AGB star * C-PN = C-rich planetary nebula * O-PN = O-rich planetary nebula * HII = HII region * GAL = Galaxy * OTHER = Object of known type * UNK = Object of unknown type C============================================================================= C Loading file 'table3.dat' ! Classification of point sources targeted in IRS * staring mode as part of the SAGE-Spec program C Format for file interpretation 1 format( + I3,1X,A25,1X,I2,1X,I2,1X,F5.2,1X,A1,I2,1X,I2,1X,F5.2,1X,A22, + 1X,A13,1X,I4,1X,I4,A1,1X,A10,1X,I3,1X,A15) C Effective file loading open(unit=1,status='old',file= +'table3.dat') write(6,*) '....Loading file: table3.dat' do i__=1,197 read(1,'(A133)')ar__ read(ar__,1) + SSID,Name,RAh,RAm,RAs,DE_,DEd,DEm,DEs,SSTISAGE,MACHO,Per,Per2, + u_Per,OGLE,PerO,Class if(ar__(93:96) .EQ. '') Per = iNULL__ if(ar__(98:101) .EQ. '') Per2 = iNULL__ if(ar__(115:117) .EQ. '') PerO = iNULL__ 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) + SSID,Name,RAh,RAm,RAs,DE_,DEd,DEm,DEs,SSTISAGE,MACHO,Per,Per2, + u_Per,OGLE,PerO,Class write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg c .......End.of.Just test output........... end do close(1) C============================================================================= stop end