Conversion of standardized ReadMe file for
file /./ftp/cats/J/MNRAS/448/2344 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-Oct-12
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/448/2344 MALT-45, a 7mm survey of the southern Galaxy (Jordan+, 2015)
*================================================================================
*MALT-45: a 7 mm survey of the southern Galaxy.
*I. Techniques and spectral line data.
* Jordan C.H., Walsh A.J., Lowe V., Voronkov M.A., Ellingsen S.P.,
* Breen S.L., Purcell C.R., Barnes P.J., Burton M.G., Cunningham M.R.,
* Hill T., Jackson J.M., Longmore S.N., Peretto N., Urquhart J.S.
* <Mon. Not. R. Astron. Soc., 448, 2344-2361 (2015)>
* =2015MNRAS.448.2344J (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Properties of detected MALT-45 class I CH_3_OH
maser emission (each maser was detected within
a 64MHz zoom window)
integer*4 nr__
parameter (nr__=77) ! Number of records
character*112 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)
character*12 Name ! Source name (GLLL.ll+B.bb), derived from
* Galactic coordinates of the brightest peak
integer*4 RAh ! (h) Maser right ascension (J2000)
integer*4 RAm ! (min) Maser right ascension (J2000)
real*4 RAs ! (s) Maser right ascension (J2000)
character*1 DE_ ! Maser declination sign (J2000)
integer*4 DEd ! (deg) Maser declination (J2000)
integer*4 DEm ! (arcmin) Maser declination (J2000)
real*4 DEs ! (arcsec) Maser declination (J2000)
real*4 Speak ! (Jy) Source peak flux density in 7mm band
real*4 RMS ! RMS noise level of the peak
real*4 Vmin ! (km/s) Velocity range of maser emission,
* within a 1.5{sigma} cutoff
real*4 Vmax ! (km/s) Velocity range of maser emission,
* within a 1.5{sigma} cutoff
real*4 Vpeak ! (km/s) Velocity at the peak
real*4 Dist ! (kpc) Kinematic distance calculated, based on
* position and peak velocity (1)
real*4 E_Dist ! (kpc) Upper error for the kinematic distance
real*4 e_Dist_1 ! (kpc) Lower error for the kinematic distance
real*4 ICS ! (K.km/s) ? Integrated intensity of CS (1-0) at the
* brightest peak
real*4 ISiO ! (K.km/s) ? Integrated intensity of SiO (1-0) v=0 at the
* brightest peak
character*6 Rem ! Additional remarks (2)
character*6 Omasers ! Associations with other masers and EGOs (3)
*Note (1): Kinematic distances are derived using the kinematic distance model
* of Reid et al. (2009ApJ...700..137R).
* All distances are assumed to be kinematically 'near', unless labelled
* otherwise.
*Note (2): Additional remarks as follows:
* S = 44GHz detection from Slysh et al. (1994MNRAS.268..464S)
* V = 95GHz detection from Val'tts et al. (2000MNRAS.317..315V)
* E = 95GHz detection from Ellingsen (2005, Cat. J/MNRAS/359/1498)
* C = 95GHz detection from Chen et al. (2011, Cat. J/ApJS/196/9)
* P = indicates a blended spectrum of emission.
* P1 = contains a strong peak of emission at a spatially distinct position, with
* a different velocity to nearby strong masers (but not as strong as the
* neighbour)
* P2 = strong neighbour
* P3 = next strongest neighbour
* F = this maser has been labelled as being kinematically 'far', due to a
* class II CH_3_OH maser being labelled as such by
* Green & McClure-Griffiths (2011MNRAS.417.2500G)
*
* Note that a source without an S, V, E or C remark is a new detection.
*Note (3): Association is credited for any presence within 60 arcsec of the
* class I CH_3_OH maser peak position. All velocities are specified to 0.1km/s,
* and all flux densities are specified to two significant figures.
*
* Associations flags as follows:
*
* M = presence of a 6.7GHz class II methanol maser (Caswell et al.,
* 2011MNRAS.417.1964C, Cat. VIII/96)
* W = presence of a 22GHz H_2_O maser (Breen et al. 2010MNRAS.406.1487B;
* Walsh et al. 2011, Cat. J/MNRAS/416/1764; 2014, Cat. J/MNRAS/442/2240)
* G = presence of an EGO classified by Cyganowski et al. (2008,
* Cat. J/AJ/136/2391)
* S = presence of a 1612 OH maser (Sevenster et al., 1997, Cat. J/A+AS/124/509)
* C = presence of a 1665 or 1667MHz OH maser (Caswell, 1998MNRAS.297..215C)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! *Properties of detected MALT-45 SiO (1-0) maser
emission (each maser was detected within a
64MHz zoom window)
integer*4 nr__1
parameter (nr__1=47) ! Number of records
character*133 ar__1 ! Full-size record
C J2000 position composed of: RAh RAm RAs DE- DEd DEm DEs
real*8 RAdeg_1 ! (deg) Right Ascension J2000
real*8 DEdeg_1 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
character*12 Name_1 ! Source name (GLLL.ll+B.bb), derived from
* Galactic coordinates of the brightest peak
integer*4 RAh_1 ! (h) Maser right ascension (J2000)
integer*4 RAm_1 ! (min) Maser right ascension (J2000)
real*4 RAs_1 ! (s) Maser right ascension (J2000)
character*1 DE__1 ! Maser declination sign (J2000)
integer*4 DEd_1 ! (deg) Maser declination (J2000)
integer*4 DEm_1 ! (arcmin) Maser declination (J2000)
real*4 DEs_1 ! (arcsec) Maser declination (J2000)
real*4 Speak1 ! (Jy) ? Source peak flux density, SiO v=1 (1)
real*4 Vmini1 ! (km/s) ? Velocity range of maser emission, SiO v=1,
* within a 1.5{sigma} cutoff (2)
real*4 Vmax1 ! (km/s) ? Velocity range of maser emission, SiO v=1,
* within a 1.5{sigma} cutoff (2)
real*4 Vpeak1 ! (km/s) ? Velocity at the peak, SiO v=1 (2)
real*4 Speak2 ! (Jy) ? Source peak flux density, SiO v=2 (1)
real*4 Vmini2 ! (km/s) ? Velocity range of maser emission, SiO v=2,
* within a 1.5{sigma} cutoff (2)
real*4 Vmax2 ! (km/s) ? Velocity range of maser emission, SiO v=2,
* within a 1.5{sigma} cutoff (2)
real*4 Vpeak2 ! (km/s) ? Velocity at the peak, SiO v=2 (2)
real*4 Speak3 ! (Jy) ? Source peak flux density, SiO v=3 (1)
real*4 Vmini3 ! (km/s) ? Velocity range of maser emission, SiO v=3,
* within a 1.5{sigma} cutoff (2)
real*4 Vmax3 ! (km/s) ? Velocity range of maser emission, SiO v=3,
* within a 1.5{sigma} cutoff (2)
real*4 Vpeak3 ! (km/s) ? Velocity at the peak, SiO v=3 (2)
real*4 RMS_1 ! RMS noise level, which indicates the most
* statistically significant maser peak detected
* among the three modes
real*4 Dist_1 ! (kpc) Kinematic distance calculated, based on
* position and peak velocity (3)
real*4 E_Dist_2 ! (kpc) Upper error for the kinematic distance
real*4 e_Dist_3 ! (kpc) Lower error for the kinematic distance
character*2 Omasers_1 ! Additional remarks (4)
*Note (1): All flux densities are specified to two significant figures.
*Note (2): All velocities are specified to 0.1km/s.
*Note (3): Kinematic distances are derived using the kinematic distance model of
* Reid et al. (2009ApJ...700..137R). All distances are assumed to be
* kinematically 'near', except for G330.14-0.39, G331.08+0.17, G332.40-0.33 and
* G334.20+0.22; when assumed to be near, unphysical distances and errors are
* generated.
*Note (4): Association is credited if the source position is within 30 arcsec of
* the peak SiO maser position.
*
* Associations flags as follows:
*
* C = presence of a 1665 MHz OH maser from Caswell (1998MNRAS.297..215C)
* S = presence of a 1612 MHz OH maser from Sevenster et al. (1997,
* Cat. J/A+AS/124/509)
* W = presence of an H2O maser from Walsh et al. (2011, Cat. J/MNRAS/416/1764;
* 2014, Cat. J/MNRAS/442/2240)
C=============================================================================
C Loading file 'table2.dat' ! Properties of detected MALT-45 class I CH_3_OH
* maser emission (each maser was detected within
* a 64MHz zoom window)
C Format for file interpretation
1 format(
+ A12,1X,I2,1X,I2,1X,F4.1,1X,A1,I2,1X,I2,1X,F4.1,1X,F5.1,1X,
+ F5.1,2X,F6.1,2X,F6.1,1X,F6.1,1X,F5.2,1X,F4.2,2X,F4.2,1X,F5.2,
+ 1X,F4.2,1X,A6,1X,A6)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,77
read(1,'(A112)')ar__
read(ar__,1)
+ Name,RAh,RAm,RAs,DE_,DEd,DEm,DEs,Speak,RMS,Vmin,Vmax,Vpeak,
+ Dist,E_Dist,e_Dist_1,ICS,ISiO,Rem,Omasers
if(ar__(89:93) .EQ. '') ICS = rNULL__
if(ar__(95:98) .EQ. '') ISiO = rNULL__
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)
+ Name,RAh,RAm,RAs,DE_,DEd,DEm,DEs,Speak,RMS,Vmin,Vmax,Vpeak,
+ Dist,E_Dist,e_Dist_1,ICS,ISiO,Rem,Omasers
write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! *Properties of detected MALT-45 SiO (1-0) maser
* emission (each maser was detected within a
* 64MHz zoom window)
C Format for file interpretation
2 format(
+ A12,1X,I2,1X,I2,1X,F4.1,1X,A1,I2,1X,I2,1X,F4.1,1X,F4.1,1X,
+ F6.1,1X,F6.1,1X,F6.1,1X,F4.1,1X,F6.1,1X,F6.1,1X,F6.1,1X,F3.1,
+ 1X,F5.1,1X,F5.1,1X,F5.1,1X,F4.1,1X,F4.2,1X,F4.2,2X,F4.2,1X,A2)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,47
read(1,'(A133)')ar__1
read(ar__1,2)
+ Name_1,RAh_1,RAm_1,RAs_1,DE__1,DEd_1,DEm_1,DEs_1,Speak1,
+ Vmini1,Vmax1,Vpeak1,Speak2,Vmini2,Vmax2,Vpeak2,Speak3,Vmini3,
+ Vmax3,Vpeak3,RMS_1,Dist_1,E_Dist_2,e_Dist_3,Omasers_1
if(ar__1(37:40) .EQ. '') Speak1 = rNULL__
if(ar__1(42:47) .EQ. '') Vmini1 = rNULL__
if(ar__1(49:54) .EQ. '') Vmax1 = rNULL__
if(ar__1(56:61) .EQ. '') Vpeak1 = rNULL__
if(ar__1(63:66) .EQ. '') Speak2 = rNULL__
if(ar__1(68:73) .EQ. '') Vmini2 = rNULL__
if(ar__1(75:80) .EQ. '') Vmax2 = rNULL__
if(ar__1(82:87) .EQ. '') Vpeak2 = rNULL__
if(ar__1(89:91) .EQ. '') Speak3 = rNULL__
if(ar__1(93:97) .EQ. '') Vmini3 = rNULL__
if(ar__1(99:103) .EQ. '') Vmax3 = rNULL__
if(ar__1(105:109) .EQ. '') Vpeak3 = rNULL__
RAdeg_1 = rNULL__
DEdeg_1 = 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 .GT. -180) RAdeg_1=RAh_1*15.
if(RAm_1 .GT. -180) RAdeg_1=RAdeg_1+RAm_1/4.
if(RAs_1 .GT. -180) RAdeg_1=RAdeg_1+RAs_1/240.
if(DEd_1 .GE. 0) DEdeg_1=DEd_1
if(DEm_1 .GE. 0) DEdeg_1=DEdeg_1+DEm_1/60.
if(DEs_1 .GE. 0) DEdeg_1=DEdeg_1+DEs_1/3600.
if(DE__1.EQ.'-'.AND.DEdeg_1.GE.0) DEdeg_1=-DEdeg_1
c ..............Just test output...........
write(6,2)
+ Name_1,RAh_1,RAm_1,RAs_1,DE__1,DEd_1,DEm_1,DEs_1,Speak1,
+ Vmini1,Vmax1,Vpeak1,Speak2,Vmini2,Vmax2,Vpeak2,Speak3,Vmini3,
+ Vmax3,Vpeak3,RMS_1,Dist_1,E_Dist_2,e_Dist_3,Omasers_1
write(6,'(6H Pos: 2F8.4)') RAdeg_1,DEdeg_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end