Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/844/38 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-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/ApJ/844/38 MHOs toward 22 regions with H2 fluxes (Wolf-Chase+, 2017) *================================================================================ *MHOs toward HMOs: a search for Molecular Hydrogen emission-Line Objects toward *High-Mass Outflows. * Wolf-Chase G., Arvidsson K., Smutko M. * <Astrophys. J., 844, 38 (2017)> * =2017ApJ...844...38W C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Observation log of the 26 regions integer*4 nr__ parameter (nr__=78) ! Number of records character*89 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*10 IRAS (nr__) ! IRAS designation (HHMMm+DDMM, B1950) integer*4 Mol (nr__) ! [2/160] Molinari number (G1) integer*4 RAh (nr__) ! (h) Center position: hour of RA (J2000) integer*4 RAm (nr__) ! (min) Center position: minute of RA (J2000) real*4 RAs (nr__) ! (s) Center position: second of RA (J2000) character*1 DE_ (nr__) ! Center position: sign of DE (J2000) integer*4 DEd (nr__) ! (deg) Center position: degree of DE (J2000) integer*4 DEm (nr__) ! (arcmin) Center position: arcminute of DE (J2000) integer*4 DEs (nr__) ! (arcsec) Center position: arcsecond of DE (J2000) character*15 Filter (nr__) ! Filter character*27 Date (nr__) ! UT date(s) of observation (YYMMDD) integer*4 Exp (nr__) ! (s) [1200/5400]? Total exposure time real*4 FWHM (nr__) ! (arcsec) [0.7/1.5]? Resolution c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! Source detections and associations with massive star formation in the 26 regions integer*4 nr__1 parameter (nr__1=41) ! Number of records character*94 ar__1 ! Full-size record character*10 IRAS_1 (nr__1) ! IRAS designation (HHMMm+DDMM, B1950) integer*4 Mol_1 (nr__1) ! [2/160] Molinari number (G1) character*3 f_Mol (nr__1) ! Flag on target (1) character*5 Type (nr__1) ! Type (2) character*4 MHOs_ (nr__1) ! [Y/N ] Whether a targeted region contains MHOs character*4 Col_ (nr__1) ! [Y/N ] Collimated outflow(s) identified? character*15 v_ABB2014_ (nr__1) ! WISE name (GLLL.lll+BB.bbb) (3) character*4 HII (nr__1) ! HII type (4) character*18 RMS (nr__1) ! MSX name (GLLL.llll+BB.bbbbA) (5) character*19 Cl (nr__1) ! RMS type (5) *Note (1): Flag as follows: * * = target were included in a near-infrared imaging survey conducted by * Varricatt+ (2010, J/MNRAS/404/661). * c = G077.4622+01.7600A is coincident with core C and anomalous H_2_ emission * reported by Wolf-Chase+ (2013ApJ...762...87W) and a deeply embedded * source reported by Yao+ (2000ApJ...542..392Y). * d = Bipolar, but very compact, MHOs about Mol 160 A * (Wolf-Chase+ 2012ApJ...745..116W). *Note (2): Refers to objects that have IRAS colors similar to ultra-compact (UC) * HII regions (H: high) and redder colors (L: low) * (Wood & Churchwell 1989ApJ...340..265W ; Palla+ 1991A&A...246..249P). * The designation (UC) indicates a candidate UC HII region based on the * detection of centimeter-radio continuum emission at levels >1mJy * within 40" of the IRAS position (Kurtz+ 1994, J/ApJS/91/659 ; * Molinari+ 1998, J/A+A/336/339 ; Palau+ 2010, J/A+A/510/A5 ; * Gomez-Ruiz+ 2016ApJS..222...18G). *Note (3): Entries are from the WISE catalog of Galactic HII regions * (Anderson+ 2014, J/ApJS/212/1 ; * <[ABB2014] WISE GLLL.lll+BB.bbb> in Simbad). *Note (4): Classifications (Anderson+ 2014, J/ApJS/212/1) indicate known (K), * grouped (G), and candidate (C) HII regions, and radio-quiet (Q) * objects. *Note (5): Red Midcourse Space Experiment (MSX: Egan+ 2003, V/114) Source * catalog (RMS: Lumsden+ 2013, J/ApJS/208/11) located within each * targeted region and their type. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3.dat' ! Molecular Hydrogen emission-line Objects (MHOs) and fluxes in 22 regions integer*4 nr__2 parameter (nr__2=237) ! Number of records character*233 ar__2 ! Full-size record C J2000 position composed of: RAh RAm RAs DE- DEd DEm DEs real*8 RAdeg_1 (nr__2) ! (deg) Right Ascension J2000 real*8 DEdeg_1 (nr__2) ! (deg) Declination J2000 C ---------------------------------- ! (position vector(s) in degrees) character*10 IRAS_2 (nr__2) ! IRAS designation integer*4 Mol_2 (nr__2) ! [2/160] Molinari number (G1) character*7 MHO (nr__2) ! MHO identifier integer*4 RAh_1 (nr__2) ! (h) Right Ascension hours (J2000) integer*4 RAm_1 (nr__2) ! (min) Right Ascension minutes (J2000) integer*4 RAs_1 (nr__2) ! (s) Right Ascension seconds (J2000) character*1 DE__1 (nr__2) ! Sign of declination (J2000) integer*4 DEd_1 (nr__2) ! (deg) Declination degrees (J2000) integer*4 DEm_1 (nr__2) ! (arcmin) Declination arcmin (J2000) integer*4 DEs_1 (nr__2) ! (arcsec) Declination arcsec (J2000) real*4 Area (nr__2) ! (10-10sr) [0.2/46.3]? Area of MHO region real*8 F2_12 (nr__2) ! (10-18W/m2) [0.3/825]? NICFPS flux in 2.12um band real*4 e_F2_12 (nr__2) ! (10-18W/m2) [0.03/54]? Error in F2.12 real*4 F2_25 (nr__2) ! (10-18W/m2) [0.1/138]? NICFPS flux in 2.25um band real*4 e_F2_25 (nr__2) ! (10-18W/m2) [0.04/10]? Error in F2.25 character*1 l_F2_12_F2_25(nr__2) ! Limit flag on F2.12/F2.25 real*4 F2_12_F2_25(nr__2) ! [1/85]? Ratio of 2.12 to 2.25um fluxes real*4 e_F2_12_F2_25(nr__2) ! [0.1/11]? Error in F2.12/F2.25 character*140 Comm (nr__2) ! Comments on each source (1) *Note (1): References are as below: * C99 = Chen et al. (1999, J/AJ/117/446); * C03 = Chen et al. (2003A&A...405..655C); * C05 = Chen et al. (2005, J/ApJ/629/288) and references therein; * K11 = Khanzadyan et al. (2011, J/MNRAS/418/1994); * V10 = Varricatt et al. (2010, J/MNRAS/404/661); * W12 = Wolf-Chase et al. (2012ApJ...745..116W); * W13 = Wolf-Chase et al. (2013ApJ...762...87W); C============================================================================= C Loading file 'table1.dat' ! Observation log of the 26 regions C Format for file interpretation 1 format( + A10,1X,I3,1X,I2,1X,I2,1X,F4.1,1X,A1,I2,1X,I2,1X,I2,1X,A15,1X, + A27,1X,I4,1X,F4.2) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,78 read(1,'(A89)')ar__ read(ar__,1) + IRAS(i__),Mol(i__),RAh(i__),RAm(i__),RAs(i__),DE_(i__), + DEd(i__),DEm(i__),DEs(i__),Filter(i__),Date(i__),Exp(i__), + FWHM(i__) if(ar__(81:84) .EQ. '') Exp(i__) = iNULL__ if(ar__(86:89) .EQ. '') FWHM(i__) = rNULL__ 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) + IRAS(i__),Mol(i__),RAh(i__),RAm(i__),RAs(i__),DE_(i__), + DEd(i__),DEm(i__),DEs(i__),Filter(i__),Date(i__),Exp(i__), + FWHM(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' ! Source detections and associations with massive * star formation in the 26 regions C Format for file interpretation 2 format( + A10,1X,I3,1X,A3,1X,A5,1X,A4,1X,A4,1X,A15,1X,A4,1X,A18,1X,A19) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,41 read(1,'(A94)')ar__1 read(ar__1,2) + IRAS_1(i__),Mol_1(i__),f_Mol(i__),Type(i__),MHOs_(i__), + Col_(i__),v_ABB2014_(i__),HII(i__),RMS(i__),Cl(i__) c ..............Just test output........... write(6,2) + IRAS_1(i__),Mol_1(i__),f_Mol(i__),Type(i__),MHOs_(i__), + Col_(i__),v_ABB2014_(i__),HII(i__),RMS(i__),Cl(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table3.dat' ! Molecular Hydrogen emission-line Objects (MHOs) * and fluxes in 22 regions C Format for file interpretation 3 format( + A10,3X,I3,2X,A7,1X,I2,1X,I2,1X,I2,1X,A1,I2,1X,I2,1X,I2,1X, + F6.3,1X,F7.3,1X,F6.3,1X,F6.2,1X,F4.2,1X,A1,1X,F6.3,1X,F4.1,1X, + A140) C Effective file loading open(unit=1,status='old',file= +'table3.dat') write(6,*) '....Loading file: table3.dat' do i__=1,237 read(1,'(A233)')ar__2 read(ar__2,3) + IRAS_2(i__),Mol_2(i__),MHO(i__),RAh_1(i__),RAm_1(i__), + RAs_1(i__),DE__1(i__),DEd_1(i__),DEm_1(i__),DEs_1(i__), + Area(i__),F2_12(i__),e_F2_12(i__),F2_25(i__),e_F2_25(i__), + l_F2_12_F2_25(i__),F2_12_F2_25(i__),e_F2_12_F2_25(i__), + Comm(i__) if(ar__2(46:51) .EQ. '') Area(i__) = rNULL__ if(ar__2(53:59) .EQ. '') F2_12(i__) = rNULL__ if(ar__2(61:66) .EQ. '') e_F2_12(i__) = rNULL__ if(ar__2(68:73) .EQ. '') F2_25(i__) = rNULL__ if(ar__2(75:78) .EQ. '') e_F2_25(i__) = rNULL__ if(ar__2(82:87) .EQ. '') F2_12_F2_25(i__) = rNULL__ if(ar__2(89:92) .EQ. '') e_F2_12_F2_25(i__) = rNULL__ RAdeg_1(i__) = rNULL__ DEdeg_1(i__) = 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(i__) .GT. -180) RAdeg_1(i__)=RAh_1(i__)*15. if(RAm_1(i__) .GT. -180) RAdeg_1(i__)=RAdeg_1(i__)+RAm_1(i__)/4. if(RAs_1(i__) .GT. -180) RAdeg_1(i__)=RAdeg_1(i__)+RAs_1(i__)/240. if(DEd_1(i__) .GE. 0) DEdeg_1(i__)=DEd_1(i__) if(DEm_1(i__) .GE. 0) DEdeg_1(i__)=DEdeg_1(i__)+DEm_1(i__)/60. if(DEs_1(i__) .GE. 0) DEdeg_1(i__)=DEdeg_1(i__)+DEs_1(i__)/3600. if(DE__1(i__).EQ.'-'.AND.DEdeg_1(i__).GE.0) DEdeg_1(i__)=-DEdeg_1(i__) c ..............Just test output........... write(6,3) + IRAS_2(i__),Mol_2(i__),MHO(i__),RAh_1(i__),RAm_1(i__), + RAs_1(i__),DE__1(i__),DEd_1(i__),DEm_1(i__),DEs_1(i__), + Area(i__),F2_12(i__),e_F2_12(i__),F2_25(i__),e_F2_25(i__), + l_F2_12_F2_25(i__),F2_12_F2_25(i__),e_F2_12_F2_25(i__), + Comm(i__) write(6,'(6H Pos: 2F8.4)') RAdeg_1(i__),DEdeg_1(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end