Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJS/268/63 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 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 ! MaNGA identifier (MANGAID)
integer*4 Plate ! [7443/12769] Plate identifier (PLATE)
character*5 IFUdsgn ! IFU design ID (IFUDSGN)
integer*4 TARG1 ! [0/16384] MANGA_TARGET1 maskbit for
* galaxy target catalog (MNGTARG1) (1)
integer*4 TARG3 ! [0/67108864] MANGA_TARGET3 maskbit for
* galaxy target catalog (MNGTARG3) (1)
integer*4 Qual ! [0/28674] Quality bitmask from drpall
* file (DRP3QUAL) (2)
character*24 Name ! Galaxy name (NAME)
character*27 Class ! SDSS classification (SDSS_CLASS)
real*4 E_B_V ! (mag) [0.005/0.3] E(B-V) value from the
* Schlegel+ (1998ApJ...500..525S) dust map
* (EBV)
real*8 RAdeg ! (deg) Right ascension of the galaxy center
* (J2000) (RA)
real*8 DEdeg ! (deg) [-9.4/60.1] Declination of the galaxy
* center (J2000) (DEC)
real*8 NSAephi ! (deg) Position angle (east of north) used for
* elliptical apertures (NSA_ELPETRO_PHI)
real*8 NSAeth50r ! (arcsec) [0.97/162] Elliptical Petrosian
* 50%-light radius (semi-major axis) in
* SDSS r-band (NSA_ELPETRO_TH50_R)
real*4 NSAsth50 ! (arcsec) [1/92] Azimuthally averaged SDSS-style
* Petrosian 50% light radius derived from
* SDSS r-band (NSA_ELPETRO_TH50)
real*4 NSAeB_A ! [0.2/1] Axis ratio used for elliptical
* apertures (NSA_ELPETRO_BA)
real*4 NSAeMass ! (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 ! [0.0002/0.15] Heliocentric redshift
* (NSA_Z)
real*8 NSAeFf ! (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 ! (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 ! (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 ! (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 ! (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 ! (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 ! (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 ! (3.63uJy-2) [0/555] Inverse variance of NSAeFf in
* nanomaggies^-2^ (NSA_ELPETRO_FLUX_IVAR_F)
real*8 NSAeIVFn ! (3.63uJy-2) [0/651] Inverse variance of NSAeFn in
* nanomaggies^-2^ (NSA_ELPETRO_FLUX_IVAR_N)
real*8 NSAeIVFu ! (3.63uJy-2) [0/2] Inverse variance of NSAeFu in
* nanomaggies^-2^ (NSA_ELPETRO_FLUX_IVAR_u)
real*8 NSAeIVFg ! (3.63uJy-2) [0/7] Inverse variance of NSAeFg in
* nanomaggies^-2^ (NSA_ELPETRO_FLUX_IVAR_g)
real*8 NSAeIVFr ! (3.63uJy-2) [0/3] Inverse variance of NSAeFr in
* nanomaggies^-2^ (NSA_ELPETRO_FLUX_IVAR_r)
real*8 NSAeIVFi ! (3.63uJy-2) [0/1] Inverse variance of NSAeFi in
* nanomaggies^-2^ (NSA_ELPETRO_FLUX_IVAR_i)
real*8 NSAeIVFz ! (3.63uJy-2) [0/0.2] Inverse variance of NSAeFz in
* nanomaggies^-2^ (NSA_ELPETRO_FLUX_IVAR_z)
real*8 eFuvw2 ! (3.63uJy) [0.3/1579] Elliptical SDSS-style
* Petrosian flux in uvw2-band; aperture
* corrected, in nanomaggies
* (SWIFT_ELPETRO_FLUX_uvw2)
real*8 eFuvm2 ! (3.63uJy) [0/1741] Elliptical SDSS-style Petrosian
* flux in uvm2-band; aperture corrected,
* in nanomaggies (SWIFT_ELPETRO_FLUX_uvm2)
real*8 eFuvw1 ! (3.63uJy) [0.8/879] Elliptical SDSS-style
* Petrosian flux in uvw1-band; aperture
* corrected, in nanomaggies
* (SWIFT_ELPETRO_FLUX_uvw1)
real*8 IVFuvw2 ! (3.63uJy-2) [0.03/1972] Inverse variance for eFuvw2
* in nanomaggies^-2^
* (SWIFT_ELPETRO_FLUX_IVAR_uvw2)
real*8 IVFuvm2 ! (3.63uJy-2) [0/914] Inverse variance for eFuvm2 in
* nanomaggies^-2^
* (SWIFT_ELPETRO_FLUX_IVAR_uvm2)
real*8 IVFuvw1 ! (3.63uJy-2) [0.007/507] Inverse variance for eFuvw1
* in nanomaggies^-2^
* (SWIFT_ELPETRO_FLUX_IVAR_uvw1)
integer*4 Expuvw2 ! (s) [135/279924]? Exposure time for
* Swift/UVOT uvw2-band
* (SWIFT_EXPOSURE_uvw2)
integer*4 Expuvm2 ! (s) [104/237420]? Exposure time for
* Swift/UVOT uvm2-band
* (SWIFT_EXPOSURE_uvm2)
integer*4 Expuvw1 ! (s) [111/222591]? Exposure time for
* Swift/UVOT uvw1-band
* (SWIFT_EXPOSURE_uvw1)
real*4 ApCoruvw2 ! [1/1.3] Aperture correction factor to
* correct Swift photometry to SDSS r-band
* for uvw2 (APERCORR_uvw2) (3)
real*4 ApCoruvm2 ! [1/1.2] Aperture correction factor to
* correct Swift photometry to SDSS r-band
* for uvm2 (APERCORR_uvm2) (3)
real*4 ApCoruvw1 ! [1/1.2] Aperture correction factor to
* correct Swift photometry to SDSS r-band
* for uvw1 (APERCORR_uvw1) (3)
real*8 logSFR1Re ! ([Msun/yr]) [-4.7/2.4]? Dust-corrected SFR using
* H-alpha flux within 1 effective radius
* (SFR_1RE) (4)
real*4 ScF ! [0/0.11] Volume-weight scaling factors
* (SCALING_FACTOR)
real*4 e_ScF ! [0/0.1] ScF 1{sigma} uncertainty
* (SCALING_FACTOR_ERR)
real*8 esweight ! [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 ! MaNGA identifier (MANGAID)
real*8 OII_3727 ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* [OII]{lambda}3727 emission line (OII-3727)
real*8 OII_3729 ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* [OII]{lambda}3729 emission line (OII-3729)
real*8 H12_3751 ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* H12{lambda}3751 emission line (H12-3751)
real*8 H11_3771 ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* H11{lambda}3771 emission line (H11-3771)
real*8 Hthe_3798 ! 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 ! 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 ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* [NeIII]{lambda}3869 emission line
* (NeIII-3869)
real*8 HeI_3889 ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* HeI{lambda}3889 emission line (HeI-3889)
real*8 Hzet_3890 ! 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 ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* [NeIII]{lambda}3968 emission line
* (NeIII-3968)
real*8 Heps_3971 ! 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 ! 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 ! 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 ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* HeII{lambda}4687 emission line5 (HeII-4687)
real*8 Hb_4682 ! 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 ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* [OIII]{lambda}4960 emission line (OIII-4960)
real*8 OIII_5008 ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* [OIII]{lambda}5008 emission line (OIII-5008)
real*8 NI_5199 ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* [NI]{lambda}5199 emission line (NI-5199)
real*8 NI_5201 ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* [NI]{lambda}5201 emission line (NI-5201)
real*8 HeI_5877 ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* HeI{lambda}5877 emission line (HeI-5877)
real*8 OI_6302 ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* [OI]{lambda}6302 emission line (OI-6302)
real*8 OI_6365 ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* [OI]{lambda}6365 emission line (OI-6365)
real*8 NII_6549 ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* [NII]{lambda}6549 emission line (NII-6549)
real*8 Ha_6564 ! 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 ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* [NII]{lambda}6585 emission line (NII-6585)
real*8 SII_6718 ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* [SII]{lambda}6718 emission line (SII-6718)
real*8 SII_6732 ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* [SII]{lambda}6732 emission line (SII-6732)
real*8 HeI_7067 ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* HeI{lambda}7067 emission line (HeI-7067)
real*8 ArIII_7137 ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* [ArIII]{lambda}7137 emission line
* (ArIII-7137)
real*8 ArIII_7753 ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* [ArIII]{lambda}7753 emission line
* (ArIII-7753)
real*8 Peta_9017 ! 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 ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* [SIII]{lambda}9071 emission line (SIII-9071)
real*8 Pzet_9231 ! 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 ! Ratio of unmasked-to-total pixels within
* one elliptical Petrosian aperture for the
* [SIII]{lambda}9533 emission line (SIII-9533)
real*8 Peps_9548 ! 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 ! MaNGA identifier from MPL-11
real*8 RAdeg_1 ! (deg) [54.89/262.3] Right ascension (J2000)
real*8 DEdeg_1 ! (deg) [-0.52/60.1] Declination (J2000)
character*10 Date1 ! ("Y/M/D") Date (UT) of the first observation of each
* galaxy with the uvw1 filter
character*10 Date2 ! ("Y/M/D") Date (UT) of the first observation of each
* galaxy with the uvw2 filter
integer*4 Exp1 ! (s) [138/4346] Total exposure time in the uvw1 filter
character*1 f_Exp1 ! Flag on Exp1 (1)
integer*4 Exp2 ! (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,Plate,IFUdsgn,TARG1,TARG3,Qual,Name,Class,E_B_V,RAdeg,
+ DEdeg,NSAephi,NSAeth50r,NSAsth50,NSAeB_A,NSAeMass,NSAz,NSAeFf,
+ NSAeFn,NSAeFu,NSAeFg,NSAeFr,NSAeFi,NSAeFz,NSAeIVFf,NSAeIVFn,
+ NSAeIVFu,NSAeIVFg,NSAeIVFr,NSAeIVFi,NSAeIVFz,eFuvw2,eFuvm2,
+ eFuvw1,IVFuvw2,IVFuvm2,IVFuvw1,Expuvw2,Expuvm2,Expuvw1,
+ ApCoruvw2,ApCoruvm2,ApCoruvw1,logSFR1Re,ScF,e_ScF,esweight
if(ar__(359:365) .EQ. '') Expuvw2 = iNULL__
if(ar__(367:373) .EQ. '') Expuvm2 = iNULL__
if(ar__(375:381) .EQ. '') Expuvw1 = iNULL__
if(ar__(404:412) .EQ. '') logSFR1Re = rNULL__
if(ar__(428:436) .EQ. '') esweight = rNULL__
c ..............Just test output...........
write(6,1)
+ MaNGA,Plate,IFUdsgn,TARG1,TARG3,Qual,Name,Class,E_B_V,RAdeg,
+ DEdeg,NSAephi,NSAeth50r,NSAsth50,NSAeB_A,NSAeMass,NSAz,NSAeFf,
+ NSAeFn,NSAeFu,NSAeFg,NSAeFr,NSAeFi,NSAeFz,NSAeIVFf,NSAeIVFn,
+ NSAeIVFu,NSAeIVFg,NSAeIVFr,NSAeIVFi,NSAeIVFz,eFuvw2,eFuvm2,
+ eFuvw1,IVFuvw2,IVFuvm2,IVFuvw1,Expuvw2,Expuvm2,Expuvw1,
+ ApCoruvw2,ApCoruvm2,ApCoruvw1,logSFR1Re,ScF,e_ScF,esweight
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,OII_3727,OII_3729,H12_3751,H11_3771,Hthe_3798,
+ Heta_3836,NeIII_3869,HeI_3889,Hzet_3890,NeIII_3968,Heps_3971,
+ Hdel_4102,Hgam_4341,HeII_4687,Hb_4682,OIII_4960,OIII_5008,
+ NI_5199,NI_5201,HeI_5877,OI_6302,OI_6365,NII_6549,Ha_6564,
+ NII_6585,SII_6718,SII_6732,HeI_7067,ArIII_7137,ArIII_7753,
+ Peta_9017,SIII_9071,Pzet_9231,SIII_9533,Peps_9548
c ..............Just test output...........
write(6,2)
+ MaNGA_1,OII_3727,OII_3729,H12_3751,H11_3771,Hthe_3798,
+ Heta_3836,NeIII_3869,HeI_3889,Hzet_3890,NeIII_3968,Heps_3971,
+ Hdel_4102,Hgam_4341,HeII_4687,Hb_4682,OIII_4960,OIII_5008,
+ NI_5199,NI_5201,HeI_5877,OI_6302,OI_6365,NII_6549,Ha_6564,
+ NII_6585,SII_6718,SII_6732,HeI_7067,ArIII_7137,ArIII_7753,
+ Peta_9017,SIII_9071,Pzet_9231,SIII_9533,Peps_9548
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,RAdeg_1,DEdeg_1,Date1,Date2,Exp1,f_Exp1,Exp2
c ..............Just test output...........
write(6,3)
+ MaNGA_2,RAdeg_1,DEdeg_1,Date1,Date2,Exp1,f_Exp1,Exp2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end