Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/140/462 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-Apr-19
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/AJ/140/462 Intermediate-mass star-forming regions (Arvidsson+, 2010)
*================================================================================
*A sample of intermediate-mass star-forming regions: making stars at mass
*column densities <1 g/cm2.
* Arvidsson K., Kerton C.R., Alexander M.J., Kobulnicky H.A., Uzpen B.
* <Astron. J., 140, 462-479 (2010)>
* =2010AJ....140..462A
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! IM SFRs - Properties of blobs and shells
integer*4 nr__
parameter (nr__=50) ! Number of records
character*95 ar__ ! Full-size record
C Position composed of: GLON GLAT
character*10 IRAS ! IRAS Name
character*2 m_IRAS ! [-NS ] Multiplicity index on IRAS
real*8 GLON ! (deg) Galactic longitude
real*8 GLAT ! (deg) Galactic latitude
real*4 theta ! (arcsec) Angular diameter {theta}
real*4 Vlsr ! (km/s) ? Associated CO velocity from the GRS
* (Jackson et al., 2006ApJS..163..145J)
real*4 dV ! (km/s) ? Width of the associated CO feature {Delta}V
real*4 dnear ! (kpc) ? Near distance
real*4 dfar ! (kpc) ? Far distance
real*4 Dist ! (kpc) ? Adopted distance used in subsequent analysis
character*5 Flag ! Flag (G1)
real*4 Diam ! (pc) ? Diameter, calculated using the adopted
* distance
real*4 Diam2 ! (pc) ? Second diameter, calculated using the
* adopted distance
real*4 LIR ! (10+3Lsun) ? Infrared luminosity (taken from table4)
real*4 LIR2 ! (10+3Lsun) ? Second infrared luminosity
* (taken from table4)
integer*4 MLTE ! (Msun) ? LTE mass (taken from table5)
integer*4 MLTE2 ! (Msun) ? Second LTE mass (taken from table5)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! IM SFRs - Photometry and luminosity
integer*4 nr__1
parameter (nr__1=50) ! Number of records
character*99 ar__1 ! Full-size record
character*10 IRAS_1 ! IRAS Name
character*2 m_IRAS_1 ! [-NS ] Multiplicity index on IRAS
integer*4 Ap ! (arcsec) Aperture radius
real*4 F3_6 ! (Jy) Spitzer/IRAC 3.6um flux density
real*4 e_F3_6 ! (Jy) 1{sigma} total uncertainty on F3.6
real*4 F4_5 ! (Jy) Spitzer/IRAC 4.5um flux density
real*4 e_F4_5 ! (Jy) 1{sigma} total uncertainty on F4.5
real*4 F5_8 ! (Jy) Spitzer/IRAC 5.8um flux density
real*4 e_F5_8 ! (Jy) 1{sigma} total uncertainty on F5.8
real*4 F8_0 ! (Jy) Spitzer/IRAC 8.0um flux density
real*4 e_F8_0 ! (Jy) 1{sigma} total uncertainty on F8.0
real*4 F24 ! (Jy) Spitzer/MIPS 24um flux density
real*4 e_F24 ! (Jy) 1{sigma} total uncertainty on F24
real*4 F60 ! (Jy) IRAS PSC 60um flux density
real*4 F100 ! (Jy) IRAS PSC 100um flux density
character*5 Flag_1 ! Flag (G1)
real*4 Lnear ! (10+3Lsun) ? Near luminosity calculated using the near
* distance in table3
real*4 Lfar ! (10+3Lsun) ? Far luminosity calculated using the far
* distance in table3
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table5.dat' ! IM SFRs - Molecular material from the GRS
(Galactic Ring Survey, Jackson 2006ApJS..163..145J)
integer*4 nr__2
parameter (nr__2=42) ! Number of records
character*75 ar__2 ! Full-size record
character*10 IRAS_2 ! IRAS Name
character*2 m_IRAS_2 ! [-NS ] Multiplicity index on IRAS
real*4 Ipeak ! (K.km/s) Peak integrated flux
real*4 N_H2_p ! (10+21cm-2) Peak H_2_ column density
real*4 N_M_p ! (g/cm2) Peak mass column density
real*4 Omega ! (10-7sr) Solid angle occupied by the CO clump
* (used to calculate the mass)
character*1 Flag_2 ! Flag (G1)
integer*4 M1near ! (Msun) Near distance clump mass (LTE)
integer*4 M1far ! (Msun) Far distance clump mass (LTE)
character*13 GRSMC ! Parent GRS molecular clump, GLLL.ll+BB.bb
* (Rathborne et al., Cat. J/ApJS/182/131)
character*2 Clump ! Asociated GRSMC-clump
integer*4 Mcld ! (Msun) ? Mass of the GRSMC (1)
character*5 Note ! Note (2)
*Note (1): Cloud masses are calculated using L(^13^CO) from Roman-Duval et al.
* (2009, Cat. J/ApJ/699/1153), and conversion factors from Simon et al.
* (2001ApJ...551..747S) and references therein.
*Note (2): telling what distance Roman-Duval et al. (2009, Cat. J/ApJ/699/1153)
* put the cloud (F=Far, N=Near, T=Total). (!) indicates where that distance
* determination differs from the standard ruler method used in this paper.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table6.dat' ! IM SFRs - Molecular material from the BGPS
(Bolocam Galactic Plane Survey, see J/ApJS/188/123)
integer*4 nr__3
parameter (nr__3=50) ! Number of records
character*65 ar__3 ! Full-size record
character*10 IRAS_3 ! IRAS Name
character*2 m_IRAS_3 ! [-NS ] Multiplicity index on IRAS
character*15 BGPS ! BGPS designation (GLLL.ll+BB.bb), Rosolowsky
* et al., 2010, Cat. J/ApJS/188/123
real*4 Fp ! (Jy) ? Peak flux, in Jy/beam
real*4 N_H2_p_1 ! (10+21cm-2) ? Peak H2 column density
real*4 N_M_p_1 ! (g/cm2) ? Peak mass column density
real*4 S ! (Jy) ? Integrated flux density at 268GHz (1.1mm)
* from the BGPS catalog (Rosolowsky et al.,
* 2010, Cat. J/ApJS/188/123)
character*5 Flag_3 ! Flag (G1)
integer*4 M2near ! (Msun) ? Near distance BGPS mass
integer*4 M2far ! (Msun) ? Far distance BGPS mass
C=============================================================================
C Loading file 'table3.dat' ! IM SFRs - Properties of blobs and shells
C Format for file interpretation
1 format(
+ A10,A2,1X,F8.5,1X,F8.5,1X,F3.1,1X,F5.1,1X,F4.1,1X,F3.1,1X,
+ F4.1,1X,F4.1,1X,A5,1X,F3.1,1X,F3.1,1X,F5.1,1X,F4.1,1X,I4,1X,I5)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,50
read(1,'(A95)')ar__
read(ar__,1)
+ IRAS,m_IRAS,GLON,GLAT,theta,Vlsr,dV,dnear,dfar,Dist,Flag,Diam,
+ Diam2,LIR,LIR2,MLTE,MLTE2
if(ar__(36:40) .EQ. '') Vlsr = rNULL__
if(ar__(42:45) .EQ. '') dV = rNULL__
if(ar__(47:49) .EQ. '') dnear = rNULL__
if(ar__(51:54) .EQ. '') dfar = rNULL__
if(ar__(56:59) .EQ. '') Dist = rNULL__
if(ar__(67:69) .EQ. '') Diam = rNULL__
if(ar__(71:73) .EQ. '') Diam2 = rNULL__
if(ar__(75:79) .EQ. '') LIR = rNULL__
if(ar__(81:84) .EQ. '') LIR2 = rNULL__
if(ar__(86:89) .EQ. '') MLTE = iNULL__
if(ar__(91:95) .EQ. '') MLTE2 = iNULL__
c ..............Just test output...........
write(6,1)
+ IRAS,m_IRAS,GLON,GLAT,theta,Vlsr,dV,dnear,dfar,Dist,Flag,Diam,
+ Diam2,LIR,LIR2,MLTE,MLTE2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4.dat' ! IM SFRs - Photometry and luminosity
C Format for file interpretation
2 format(
+ A10,A2,1X,I3,1X,F4.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F5.2,1X,F4.2,
+ 1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F5.1,1X,F6.1,1X,A5,1X,F5.2,
+ F5.1)
C Effective file loading
open(unit=1,status='old',file=
+'table4.dat')
write(6,*) '....Loading file: table4.dat'
do i__=1,50
read(1,'(A99)')ar__1
read(ar__1,2)
+ IRAS_1,m_IRAS_1,Ap,F3_6,e_F3_6,F4_5,e_F4_5,F5_8,e_F5_8,F8_0,
+ e_F8_0,F24,e_F24,F60,F100,Flag_1,Lnear,Lfar
if(ar__1(90:94) .EQ. '') Lnear = rNULL__
if(ar__1(95:99) .EQ. '') Lfar = rNULL__
c ..............Just test output...........
write(6,2)
+ IRAS_1,m_IRAS_1,Ap,F3_6,e_F3_6,F4_5,e_F4_5,F5_8,e_F5_8,F8_0,
+ e_F8_0,F24,e_F24,F60,F100,Flag_1,Lnear,Lfar
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table5.dat' ! IM SFRs - Molecular material from the GRS
* (Galactic Ring Survey, Jackson 2006ApJS..163..145J)
C Format for file interpretation
3 format(
+ A10,A2,1X,F4.1,1X,F4.1,1X,F4.2,1X,F4.1,1X,A1,1X,I4,1X,I5,1X,
+ A13,1X,A2,1X,I6,1X,A5)
C Effective file loading
open(unit=1,status='old',file=
+'table5.dat')
write(6,*) '....Loading file: table5.dat'
do i__=1,42
read(1,'(A75)')ar__2
read(ar__2,3)
+ IRAS_2,m_IRAS_2,Ipeak,N_H2_p,N_M_p,Omega,Flag_2,M1near,M1far,
+ GRSMC,Clump,Mcld,Note
if(ar__2(64:69) .EQ. '') Mcld = iNULL__
c ..............Just test output...........
write(6,3)
+ IRAS_2,m_IRAS_2,Ipeak,N_H2_p,N_M_p,Omega,Flag_2,M1near,M1far,
+ GRSMC,Clump,Mcld,Note
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table6.dat' ! IM SFRs - Molecular material from the BGPS
* (Bolocam Galactic Plane Survey, see J/ApJS/188/123)
C Format for file interpretation
4 format(
+ A10,A2,1X,A15,1X,F4.2,1X,F5.1,1X,F4.2,1X,F3.1,1X,A5,1X,I4,1X,
+ I5)
C Effective file loading
open(unit=1,status='old',file=
+'table6.dat')
write(6,*) '....Loading file: table6.dat'
do i__=1,50
read(1,'(A65)')ar__3
read(ar__3,4)
+ IRAS_3,m_IRAS_3,BGPS,Fp,N_H2_p_1,N_M_p_1,S,Flag_3,M2near,M2far
if(ar__3(30:33) .EQ. '') Fp = rNULL__
if(ar__3(35:39) .EQ. '') N_H2_p_1 = rNULL__
if(ar__3(41:44) .EQ. '') N_M_p_1 = rNULL__
if(ar__3(46:48) .EQ. '') S = rNULL__
if(ar__3(56:59) .EQ. '') M2near = iNULL__
if(ar__3(61:65) .EQ. '') M2far = iNULL__
c ..............Just test output...........
write(6,4)
+ IRAS_3,m_IRAS_3,BGPS,Fp,N_H2_p_1,N_M_p_1,S,Flag_3,M2near,M2far
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end