Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJS/268/63 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 2026-Sep-15
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/ApJS/268/63 The Swift/UVOT+MaNGA (SwiM) v4.1 catalog (Molina+, 2023)
*================================================================================
*The new Swift/UVOT+MaNGA (SwiM) value-added catalog.
* Molina M., Duffy L., Eracleous M., Ogborn M., Kaldor M.E., Yan R.,
* Gronwall C., Ciardullo R., Ajgaonkar N.
* <Astrophys. J. Suppl. Ser., 268, 63 (2023)>
* =2023ApJS..268...63M
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'catalog.dat' ! Swift/UVOT+MaNGA (SwiM) catalog (SwiM_v4.1)
integer*4 nr__
parameter (nr__=559) ! Number of records
character*436 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
character*9 MaNGA (nr__) ! MaNGA identifier (MANGAID)
integer*4 Plate (nr__) ! [7443/12769] Plate identifier (PLATE)
character*5 IFUdsgn (nr__) ! IFU design ID (IFUDSGN)
integer*4 TARG1 (nr__) ! [0/16384] MANGA_TARGET1 maskbit for
* galaxy target catalog (MNGTARG1) (1)
integer*4 TARG3 (nr__) ! [0/67108864] MANGA_TARGET3 maskbit for
* galaxy target catalog (MNGTARG3) (1)
integer*4 Qual (nr__) ! [0/28674] Quality bitmask from drpall
* file (DRP3QUAL) (2)
character*24 Name (nr__) ! Galaxy name (NAME)
character*27 Class (nr__) ! SDSS classification (SDSS_CLASS)
real*4 E_B_V (nr__) ! (mag) [0.005/0.3] E(B-V) value from the
* Schlegel+ (1998ApJ...500..525S) dust map
* (EBV)
real*8 RAdeg (nr__) ! (deg) Right ascension of the galaxy center
* (J2000) (RA)
real*8 DEdeg (nr__) ! (deg) [-9.4/60.1] Declination of the galaxy
* center (J2000) (DEC)
real*8 NSAephi (nr__) ! (deg) Position angle (east of north) used for
* elliptical apertures (NSA_ELPETRO_PHI)
real*8 NSAeth50r (nr__) ! (arcsec) [0.97/162] Elliptical Petrosian
* 50%-light radius (semi-major axis) in
* SDSS r-band (NSA_ELPETRO_TH50_R)
real*4 NSAsth50 (nr__) ! (arcsec) [1/92] Azimuthally averaged SDSS-style
* Petrosian 50% light radius derived from
* SDSS r-band (NSA_ELPETRO_TH50)
real*4 NSAeB_A (nr__) ! [0.2/1] Axis ratio used for elliptical
* apertures (NSA_ELPETRO_BA)
real*4 NSAeMass (nr__) ! (h-2.Msun) [1.5e+7/6e+11] Stellar mass from
* K-correction fit for elliptical
* Petrosian fluxes based on ugriz bands
* only (NSA_ELPETRO_MASS)
real*8 NSAz (nr__) ! [0.0002/0.15] Heliocentric redshift
* (NSA_Z)
real*8 NSAeFf (nr__) ! (3.63uJy) [-17/3807] Elliptical SDSS-style
* Petrosian flux in F-band; using r-band
* aperture, in nanomaggies
* (NSA_ELPETRO_FLUX_f)
real*8 NSAeFn (nr__) ! (3.63uJy) [-4/4162] Elliptical SDSS-style
* Petrosian flux in N-band; using r-band
* aperture, in nanomaggies
* (NSA_ELPETRO_FLUX_n)
real*8 NSAeFu (nr__) ! (3.63uJy) [-198/11231] Elliptical SDSS-style
* Petrosian flux in u-band; using r-band
* aperture, in nanomaggies
* (NSA_ELPETRO_FLUX_u)
real*8 NSAeFg (nr__) ! (3.63uJy) [50/32873] Elliptical SDSS-style
* Petrosian flux in g-band; using r-band
* aperture, in nanomaggies
* (NSA_ELPETRO_FLUX_g)
real*8 NSAeFr (nr__) ! (3.63uJy) [105/44052] Elliptical SDSS-style
* Petrosian flux in r-band; using r-band
* aperture, in nanomaggies
* (NSA_ELPETRO_FLUX_r)
real*8 NSAeFi (nr__) ! (3.63uJy) [145/56233] Elliptical SDSS-style
* Petrosian flux in i-band; using r-band
* aperture, in nanomaggies
* (NSA_ELPETRO_FLUX_i)
real*8 NSAeFz (nr__) ! (3.63uJy) [120/68246] Elliptical SDSS-style
* Petrosian flux in z-band; using r-band
* aperture, in nanomaggies
* (NSA_ELPETRO_FLUX_z)
real*8 NSAeIVFf (nr__) ! (3.63uJy-2) [0/555] Inverse variance of NSAeFf in
* nanomaggies^-2^ (NSA_ELPETRO_FLUX_IVAR_F)
real*8 NSAeIVFn (nr__) ! (3.63uJy-2) [0/651] Inverse variance of NSAeFn in
* nanomaggies^-2^ (NSA_ELPETRO_FLUX_IVAR_N)
real*8 NSAeIVFu (nr__) ! (3.63uJy-2) [0/2] Inverse variance of NSAeFu in
* nanomaggies^-2^ (NSA_ELPETRO_FLUX_IVAR_u)
real*8 NSAeIVFg (nr__) ! (3.63uJy-2) [0/7] Inverse variance of NSAeFg in
* nanomaggies^-2^ (NSA_ELPETRO_FLUX_IVAR_g)
real*8 NSAeIVFr (nr__) ! (3.63uJy-2) [0/3] Inverse variance of NSAeFr in
* nanomaggies^-2^ (NSA_ELPETRO_FLUX_IVAR_r)
real*8 NSAeIVFi (nr__) ! (3.63uJy-2) [0/1] Inverse variance of NSAeFi in
* nanomaggies^-2^ (NSA_ELPETRO_FLUX_IVAR_i)
real*8 NSAeIVFz (nr__) ! (3.63uJy-2) [0/0.2] Inverse variance of NSAeFz in
* nanomaggies^-2^ (NSA_ELPETRO_FLUX_IVAR_z)
real*8 eFuvw2 (nr__) ! (3.63uJy) [0.3/1579] Elliptical SDSS-style
* Petrosian flux in uvw2-band; aperture
* corrected, in nanomaggies
* (SWIFT_ELPETRO_FLUX_uvw2)
real*8 eFuvm2 (nr__) ! (3.63uJy) [0/1741] Elliptical SDSS-style Petrosian
* flux in uvm2-band; aperture corrected,
* in nanomaggies (SWIFT_ELPETRO_FLUX_uvm2)
real*8 eFuvw1 (nr__) ! (3.63uJy) [0.8/879] Elliptical SDSS-style
* Petrosian flux in uvw1-band; aperture
* corrected, in nanomaggies
* (SWIFT_ELPETRO_FLUX_uvw1)
real*8 IVFuvw2 (nr__) ! (3.63uJy-2) [0.03/1972] Inverse variance for eFuvw2
* in nanomaggies^-2^
* (SWIFT_ELPETRO_FLUX_IVAR_uvw2)
real*8 IVFuvm2 (nr__) ! (3.63uJy-2) [0/914] Inverse variance for eFuvm2 in
* nanomaggies^-2^
* (SWIFT_ELPETRO_FLUX_IVAR_uvm2)
real*8 IVFuvw1 (nr__) ! (3.63uJy-2) [0.007/507] Inverse variance for eFuvw1
* in nanomaggies^-2^
* (SWIFT_ELPETRO_FLUX_IVAR_uvw1)
integer*4 Expuvw2 (nr__) ! (s) [135/279924]? Exposure time for
* Swift/UVOT uvw2-band
* (SWIFT_EXPOSURE_uvw2)
integer*4 Expuvm2 (nr__) ! (s) [104/237420]? Exposure time for
* Swift/UVOT uvm2-band
* (SWIFT_EXPOSURE_uvm2)
integer*4 Expuvw1 (nr__) ! (s) [111/222591]? Exposure time for
* Swift/UVOT uvw1-band
* (SWIFT_EXPOSURE_uvw1)
real*4 ApCoruvw2 (nr__) ! [1/1.3] Aperture correction factor to
* correct Swift photometry to SDSS r-band
* for uvw2 (APERCORR_uvw2) (3)
real*4 ApCoruvm2 (nr__) ! [1/1.2] Aperture correction factor to
* correct Swift photometry to SDSS r-band
* for uvm2 (APERCORR_uvm2) (3)
real*4 ApCoruvw1 (nr__) ! [1/1.2] Aperture correction factor to
* correct Swift photometry to SDSS r-band
* for uvw1 (APERCORR_uvw1) (3)
real*8 logSFR1Re (nr__) ! ([Msun/yr]) [-4.7/2.4]? Dust-corrected SFR using
* H-alpha flux within 1 effective radius
* (SFR_1RE) (4)
real*4 ScF (nr__) ! [0/0.11] Volume-weight scaling factors
* (SCALING_FACTOR)
real*4 e_ScF (nr__) ! [0/0.1] ScF 1{sigma} uncertainty
* (SCALING_FACTOR_ERR)
real*8 esweight (nr__) ! [0.006/2.7]? Volume weights from MPL-11
* for Primary+ and full secondary sample
* (see Wake+ 2017, J/AJ/154/86) (ESWEIGHT)
*Note (1): The MANGA_TARGET1 and MANGA_TARGET3 bitmasks are described at:
* http://www.sdss4.org/dr17/algorithms/bitmasks/
*Note (2): The MaNGA DRP uses a single bit to summarize the quality of the data
* reduction. More information on the DRP3QUAL can be found in the MaNGA
* DAP documentation:
* http://sdss-mangadap.readthedocs.io/en/latest/metadatamodel.html
*Note (3): Aperture correction factor f_a_/f_b_ for the three Swift/UVOT bands;
* f_a_ and f_b_ are the r-band integrated fluxes (of the mock galaxy)
* before and after the Swift/UVOT PSF convolution
* (see Molina+ 2020ApJS..251...11M and Section 5).
*Note (4): Dust corrected using the H{alpha} flux within one effective radius
* reported in MaNGA DAP (see Westfall+ 2019AJ....158..231W &
* Molina+ 2020ApJS..251...11M and Section 5).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'eline.dat' ! SwiM_v4.1 emission-line ratios
integer*4 nr__1
parameter (nr__1=559) ! Number of records
character*324 ar__1 ! Full-size record
character*9 MaNGA_1 (nr__1) ! MaNGA identifier (MANGAID)
real*8 OII_3727 (nr__1) ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* [OII]{lambda}3727 emission line (OII-3727)
real*8 OII_3729 (nr__1) ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* [OII]{lambda}3729 emission line (OII-3729)
real*8 H12_3751 (nr__1) ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* H12{lambda}3751 emission line (H12-3751)
real*8 H11_3771 (nr__1) ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* H11{lambda}3771 emission line (H11-3771)
real*8 Hthe_3798 (nr__1) ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* H{theta}{lambda}3798 emission line
* (Hthe-3798)
real*8 Heta_3836 (nr__1) ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* H{eta}{lambda}3826 emission line (Heta-3836)
real*8 NeIII_3869 (nr__1) ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* [NeIII]{lambda}3869 emission line
* (NeIII-3869)
real*8 HeI_3889 (nr__1) ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* HeI{lambda}3889 emission line (HeI-3889)
real*8 Hzet_3890 (nr__1) ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* H{zeta}{lambda}3890 emission line0
* (Hzet-3890)
real*8 NeIII_3968 (nr__1) ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* [NeIII]{lambda}3968 emission line
* (NeIII-3968)
real*8 Heps_3971 (nr__1) ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* H{epsilon}{lambda}3971 emission line
* (Heps-3971)
real*8 Hdel_4102 (nr__1) ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* H{delta}{lambda}4102 emission line
* (Hdel-4102)
real*8 Hgam_4341 (nr__1) ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* H{gamma}{lambda}4341 emission line
* (Hgam-4341)
real*8 HeII_4687 (nr__1) ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* HeII{lambda}4687 emission line5 (HeII-4687)
real*8 Hb_4682 (nr__1) ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* H{beta}{lambda}4682 emission line (Hb-4682)
real*8 OIII_4960 (nr__1) ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* [OIII]{lambda}4960 emission line (OIII-4960)
real*8 OIII_5008 (nr__1) ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* [OIII]{lambda}5008 emission line (OIII-5008)
real*8 NI_5199 (nr__1) ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* [NI]{lambda}5199 emission line (NI-5199)
real*8 NI_5201 (nr__1) ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* [NI]{lambda}5201 emission line (NI-5201)
real*8 HeI_5877 (nr__1) ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* HeI{lambda}5877 emission line (HeI-5877)
real*8 OI_6302 (nr__1) ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* [OI]{lambda}6302 emission line (OI-6302)
real*8 OI_6365 (nr__1) ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* [OI]{lambda}6365 emission line (OI-6365)
real*8 NII_6549 (nr__1) ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* [NII]{lambda}6549 emission line (NII-6549)
real*8 Ha_6564 (nr__1) ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* H{alpha}{lambda}6564 emission line (Ha-6564)
real*8 NII_6585 (nr__1) ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* [NII]{lambda}6585 emission line (NII-6585)
real*8 SII_6718 (nr__1) ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* [SII]{lambda}6718 emission line (SII-6718)
real*8 SII_6732 (nr__1) ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* [SII]{lambda}6732 emission line (SII-6732)
real*8 HeI_7067 (nr__1) ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* HeI{lambda}7067 emission line (HeI-7067)
real*8 ArIII_7137 (nr__1) ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* [ArIII]{lambda}7137 emission line
* (ArIII-7137)
real*8 ArIII_7753 (nr__1) ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* [ArIII]{lambda}7753 emission line
* (ArIII-7753)
real*8 Peta_9017 (nr__1) ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* P{eta}{lambda}9017 emission line (Peta-9017)
real*8 SIII_9071 (nr__1) ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* [SIII]{lambda}9071 emission line (SIII-9071)
real*8 Pzet_9231 (nr__1) ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* P{zeta}{lambda}9231 emission line
* (Pzet-9231)
real*8 SIII_9533 (nr__1) ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* [SIII]{lambda}9533 emission line (SIII-9533)
real*8 Peps_9548 (nr__1) ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* P{epsilon}{lambda}9548 emission line
* (Peps-9548)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Summary of new Swift/UVOT NUV observations
integer*4 nr__2
parameter (nr__2=13) ! Number of records
character*59 ar__2 ! Full-size record
C J2000 position composed of: RAdeg DEdeg
character*8 MaNGA_2 (nr__2) ! MaNGA identifier from MPL-11
real*8 RAdeg_1 (nr__2) ! (deg) [54.89/262.3] Right ascension (J2000)
real*8 DEdeg_1 (nr__2) ! (deg) [-0.52/60.1] Declination (J2000)
character*10 Date1 (nr__2) ! ("Y/M/D") Date (UT) of the first observation of each
* galaxy with the uvw1 filter
character*10 Date2 (nr__2) ! ("Y/M/D") Date (UT) of the first observation of each
* galaxy with the uvw2 filter
integer*4 Exp1 (nr__2) ! (s) [138/4346] Total exposure time in the uvw1 filter
character*1 f_Exp1 (nr__2) ! Flag on Exp1 (1)
integer*4 Exp2 (nr__2) ! (s) [823/3674] Total exposure time in the uvw2 filter
*Note (1): Flag as follows:
* a = The longer of the two uvw1 observations for 1-351792 did not have
* star tracking so we did not achieve the requested ~1ks exposure time.
C=============================================================================
C Loading file 'catalog.dat' ! Swift/UVOT+MaNGA (SwiM) catalog (SwiM_v4.1)
C Format for file interpretation
1 format(
+ A9,1X,I5,1X,A5,1X,I5,1X,I8,1X,I5,1X,A24,1X,A27,1X,F6.4,1X,
+ F9.5,1X,F9.5,1X,F7.3,1X,F7.3,1X,F6.3,1X,F5.3,1X,E10.5,1X,F8.6,
+ 1X,F8.2,1X,F8.2,1X,F8.2,1X,F8.2,1X,F8.2,1X,F8.2,1X,F8.2,1X,
+ F8.4,1X,F8.4,1X,F8.4,1X,F8.4,1X,F8.4,1X,F8.4,1X,F8.4,1X,F9.4,
+ 1X,F9.4,1X,F9.4,1X,F9.4,1X,F9.4,1X,F9.4,1X,I7,1X,I7,1X,I7,1X,
+ F6.4,1X,F6.4,1X,F6.4,1X,F9.4,1X,F6.4,1X,F6.4,1X,F9.4)
C Effective file loading
open(unit=1,status='old',file=
+'catalog.dat')
write(6,*) '....Loading file: catalog.dat'
do i__=1,559
read(1,'(A436)')ar__
read(ar__,1)
+ MaNGA(i__),Plate(i__),IFUdsgn(i__),TARG1(i__),TARG3(i__),
+ Qual(i__),Name(i__),Class(i__),E_B_V(i__),RAdeg(i__),
+ DEdeg(i__),NSAephi(i__),NSAeth50r(i__),NSAsth50(i__),
+ NSAeB_A(i__),NSAeMass(i__),NSAz(i__),NSAeFf(i__),NSAeFn(i__),
+ NSAeFu(i__),NSAeFg(i__),NSAeFr(i__),NSAeFi(i__),NSAeFz(i__),
+ NSAeIVFf(i__),NSAeIVFn(i__),NSAeIVFu(i__),NSAeIVFg(i__),
+ NSAeIVFr(i__),NSAeIVFi(i__),NSAeIVFz(i__),eFuvw2(i__),
+ eFuvm2(i__),eFuvw1(i__),IVFuvw2(i__),IVFuvm2(i__),
+ IVFuvw1(i__),Expuvw2(i__),Expuvm2(i__),Expuvw1(i__),
+ ApCoruvw2(i__),ApCoruvm2(i__),ApCoruvw1(i__),logSFR1Re(i__),
+ ScF(i__),e_ScF(i__),esweight(i__)
if(ar__(359:365) .EQ. '') Expuvw2(i__) = iNULL__
if(ar__(367:373) .EQ. '') Expuvm2(i__) = iNULL__
if(ar__(375:381) .EQ. '') Expuvw1(i__) = iNULL__
if(ar__(404:412) .EQ. '') logSFR1Re(i__) = rNULL__
if(ar__(428:436) .EQ. '') esweight(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ MaNGA(i__),Plate(i__),IFUdsgn(i__),TARG1(i__),TARG3(i__),
+ Qual(i__),Name(i__),Class(i__),E_B_V(i__),RAdeg(i__),
+ DEdeg(i__),NSAephi(i__),NSAeth50r(i__),NSAsth50(i__),
+ NSAeB_A(i__),NSAeMass(i__),NSAz(i__),NSAeFf(i__),NSAeFn(i__),
+ NSAeFu(i__),NSAeFg(i__),NSAeFr(i__),NSAeFi(i__),NSAeFz(i__),
+ NSAeIVFf(i__),NSAeIVFn(i__),NSAeIVFu(i__),NSAeIVFg(i__),
+ NSAeIVFr(i__),NSAeIVFi(i__),NSAeIVFz(i__),eFuvw2(i__),
+ eFuvm2(i__),eFuvw1(i__),IVFuvw2(i__),IVFuvm2(i__),
+ IVFuvw1(i__),Expuvw2(i__),Expuvm2(i__),Expuvw1(i__),
+ ApCoruvw2(i__),ApCoruvm2(i__),ApCoruvw1(i__),logSFR1Re(i__),
+ ScF(i__),e_ScF(i__),esweight(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'eline.dat' ! SwiM_v4.1 emission-line ratios
C Format for file interpretation
2 format(
+ A9,1X,F8.6,1X,F8.6,1X,F8.6,1X,F8.6,1X,F8.6,1X,F8.6,1X,F8.6,1X,
+ F8.6,1X,F8.6,1X,F8.6,1X,F8.6,1X,F8.6,1X,F8.6,1X,F8.6,1X,F8.6,
+ 1X,F8.6,1X,F8.6,1X,F8.6,1X,F8.6,1X,F8.6,1X,F8.6,1X,F8.6,1X,
+ F8.6,1X,F8.6,1X,F8.6,1X,F8.6,1X,F8.6,1X,F8.6,1X,F8.6,1X,F8.6,
+ 1X,F8.6,1X,F8.6,1X,F8.6,1X,F8.6,1X,F8.6)
C Effective file loading
open(unit=1,status='old',file=
+'eline.dat')
write(6,*) '....Loading file: eline.dat'
do i__=1,559
read(1,'(A324)')ar__1
read(ar__1,2)
+ MaNGA_1(i__),OII_3727(i__),OII_3729(i__),H12_3751(i__),
+ H11_3771(i__),Hthe_3798(i__),Heta_3836(i__),NeIII_3869(i__),
+ HeI_3889(i__),Hzet_3890(i__),NeIII_3968(i__),Heps_3971(i__),
+ Hdel_4102(i__),Hgam_4341(i__),HeII_4687(i__),Hb_4682(i__),
+ OIII_4960(i__),OIII_5008(i__),NI_5199(i__),NI_5201(i__),
+ HeI_5877(i__),OI_6302(i__),OI_6365(i__),NII_6549(i__),
+ Ha_6564(i__),NII_6585(i__),SII_6718(i__),SII_6732(i__),
+ HeI_7067(i__),ArIII_7137(i__),ArIII_7753(i__),Peta_9017(i__),
+ SIII_9071(i__),Pzet_9231(i__),SIII_9533(i__),Peps_9548(i__)
c ..............Just test output...........
write(6,2)
+ MaNGA_1(i__),OII_3727(i__),OII_3729(i__),H12_3751(i__),
+ H11_3771(i__),Hthe_3798(i__),Heta_3836(i__),NeIII_3869(i__),
+ HeI_3889(i__),Hzet_3890(i__),NeIII_3968(i__),Heps_3971(i__),
+ Hdel_4102(i__),Hgam_4341(i__),HeII_4687(i__),Hb_4682(i__),
+ OIII_4960(i__),OIII_5008(i__),NI_5199(i__),NI_5201(i__),
+ HeI_5877(i__),OI_6302(i__),OI_6365(i__),NII_6549(i__),
+ Ha_6564(i__),NII_6585(i__),SII_6718(i__),SII_6732(i__),
+ HeI_7067(i__),ArIII_7137(i__),ArIII_7753(i__),Peta_9017(i__),
+ SIII_9071(i__),Pzet_9231(i__),SIII_9533(i__),Peps_9548(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! Summary of new Swift/UVOT NUV observations
C Format for file interpretation
3 format(A8,1X,F8.4,1X,F7.4,1X,A10,1X,A10,1X,I4,1X,A1,1X,I4)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,13
read(1,'(A59)')ar__2
read(ar__2,3)
+ MaNGA_2(i__),RAdeg_1(i__),DEdeg_1(i__),Date1(i__),Date2(i__),
+ Exp1(i__),f_Exp1(i__),Exp2(i__)
c ..............Just test output...........
write(6,3)
+ MaNGA_2(i__),RAdeg_1(i__),DEdeg_1(i__),Date1(i__),Date2(i__),
+ Exp1(i__),f_Exp1(i__),Exp2(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end