Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/154/163 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-Apr-16
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/154/163 WISE-selected candidate SFRs beyond the Outer Arm (Izumi+, 2017)
*================================================================================
*Star formation activity beyond the Outer Arm.
*I. WISE-selected candidate star-forming regions.
* Izumi N., Kobayashi N., Yasui C., Saito M., Hamano S.
* <Astron. J., 154, 163 (2017)>
* =2017AJ....154..163I (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Molecular clouds with associating sample
star-forming regions in the FOG and EOG
integer*4 nr__
parameter (nr__=13) ! Number of records
character*68 ar__ ! Full-size record
C Position composed of: GLON GLAT
character*3 Region (nr__) ! [EOG FOG] Region (EOG=Extreme Outer Galaxy,
* FOG=Far Outer Galaxy)
character*16 Cloud (nr__) ! Molecular cloud identifier
real*8 GLON (nr__) ! (deg) [130.539/195.82] Galactic longitude
real*4 GLAT (nr__) ! (deg) [-1/2.797] Galactic latitude
real*8 VLSR (nr__) ! (km/s) [-102.4/34.01] Local standard of rest velocity
* of cloud
real*4 Dist (nr__) ! (kpc) [6.3/16] Kinematic distance
real*4 Rgal (nr__) ! (kpc) [13.5/22] Galactocentric radius
character*1 l_Age (nr__) ! [<] Limit flag on Age
real*4 b_Age (nr__) ! (Myr) [0.5/1]? Minimum of cloud age range
real*4 B_Age_1 (nr__) ! (Myr) [1]? Maximum of cloud age range
character*5 Ref (nr__) ! References (1)
*Note (1): Reference as follows:
* 1 = Digel et al. (1994ApJ...422...92D);
* 2 = Izumi et al. (2014ApJ...795...66I);
* 3 = Kobayashi et al. (2008ApJ...683..178K);
* 4 = Yasui et al. (2008ApJ...675..443Y);
* 5 = Brand & Wouterloot (1994A&AS..103..503B);
* 6 = Brand & Wouterloot (2007, J/A+A/464/909);
* 7 = Heyer et al. (1998ApJS..115..241H);
* 8 = Snell et al. (2002ApJ...578..229S).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Sample and candidate star-forming regions and
the WISE sources in the outer Galaxy
integer*4 nr__1
parameter (nr__1=99) ! Number of records
character*126 ar__1 ! Full-size record
C Position composed of: GLON GLAT
character*3 Region_1 (nr__1) ! [EOG FOG] Region (EOG=Extreme Outer Galaxy,
* FOG=Far Outer Galaxy)
character*16 Cloud_1 (nr__1) ! Molecular cloud identifier
character*11 SFR (nr__1) ! Previous identification of the star-forming
* region (1)
character*6 Type (nr__1) ! SFR type (2)
character*19 WISE (nr__1) ! ALLWISE position based identifier
real*8 GLON_1 (nr__1) ! (deg) [130.54/195.823] Galactic longitude of ALLWISE
* source
real*4 GLAT_1 (nr__1) ! (deg) [-1.108/2.767] Galactic latitude of ALLWISE
* source
real*4 W1mag (nr__1) ! (mag) [9.211/17.11] ALLWISE W1 (3.35{mu}m) band
* magnitude
real*4 e_W1mag (nr__1) ! (mag) [0.016/0.191] Uncertainty in W1mag
real*4 W2mag (nr__1) ! (mag) [7.435/15.844] ALLWISE W2 (4.6{mu}m) band
* magnitude
real*4 e_W2mag (nr__1) ! (mag) [0.014/0.153] Uncertainty in W2mag
real*4 W3mag (nr__1) ! (mag) [3.379/11.362] ALLWISE W3 (11.6{mu}m) band
* magnitude
real*4 e_W3mag (nr__1) ! (mag) [0.005/0.212] Uncertainty in W3mag
real*4 W4mag (nr__1) ! (mag) [-0.009/8.802] ALLWISE W4 (22.1{mu}m) band
* magnitude
real*4 e_W4mag (nr__1) ! (mag) [0.004/0.526]? Uncertainty in W4mag (G2)
*Note (1): Star forming regions are defined as follows:
* Q = Star-forming region (cluster/stellar aggregates) unpublished yet
* but separately identified from our Subaru and QUIRC data
* (Izumi et al. 2017, in preparation);
* CAN = Candidate star-forming region newly identified with the WISE data
* (Wright et al. 2010AJ....140.1868W; Jarrett et al. 2011ApJ...735..112J);
* see Section 3.1.
* Other star-forming regions are literature ID from Kobayashi et al.
* (2008ApJ...683..178K), Yasui et al. (2008ApJ...675..443Y), Snell et al.
* (2002ApJ...578..229S) or Izumi et al. (2014ApJ...795...66I).
*Note (2): Star forming region type as follows:
* A = Aggregate;
* EC = Embedded cluster;
* EC+HII = Embedded cluster with HII region, Snell et al. (2002ApJ...578..229S).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Contamination rate for molecular clouds with
associating sample star-forming regions
integer*4 nr__2
parameter (nr__2=15) ! Number of records
character*50 ar__2 ! Full-size record
character*16 Cloud_2 (nr__2) ! Molecular cloud identifier
character*5 Source (nr__2) ! Survey data source (NRO, FCRAO)
integer*4 NSFR (nr__2) ! [0/25]? Number of SFR and candidate SFR in
* the cloud
integer*4 Area (nr__2) ! (arcmin2) [18/130]? Cloud area
real*4 dSFR (nr__2) ! (arcmin-2) [0.024/0.54]? Density of SFR and candidate SFR
* in the cloud
integer*4 NCand (nr__2) ! [21/147]? Number of candidate SFR in the field
real*4 dCand (nr__2) ! (arcmin-2) [0.0072/0.054]? Density of candidate SFR in
* in the field
integer*4 Cont (nr__2) ! (%) [3/54]? Contamination rate
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! Molecular clouds with associating new candidate
star-forming regions
integer*4 nr__3
parameter (nr__3=252) ! Number of records
character*75 ar__3 ! Full-size record
C Position composed of: GLON GLAT
integer*4 v_BKP2003_ (nr__3) ! Cloud identification number ([BKP2003]NNNNN)
* (G1)
real*8 GLON_2 (nr__3) ! (deg) [102.632/141.464] Galactic longitude (G1)
real*4 GLAT_2 (nr__3) ! (deg) [-2.044/5.099] Galactic latitude (G1)
real*8 VLSR_1 (nr__3) ! (km/s) [-107.35/-50.66] Local standard of rest velocity
* of cloud centroid (G1)
real*4 Dist_1 (nr__3) ! (kpc) [5.8/21.5] Kinematic distance (1)
real*4 Rgal_1 (nr__3) ! (kpc) [13.5/28.3] Galactocentric radius
integer*4 NCand_1 (nr__3) ! [1/24] Number of candidate(s) in the cloud
real*4 Cont_1 (nr__3) ! (%) [1/231] Contamination rate
character*16 Note (nr__3) ! Note (2)
*Note (1): Distances derived assuming that the rotation speed of the Sun and
* BKP clouds is 220 km/s and that the Galactocentric distance of the
* Sun is 8.5 kpc.
*Note (2): Notes include the name of the 12 molecular clouds, which were used as
* molecular clouds with associating sample star-forming regions
* (Table 3, Figures 2 and 5). CO peak of Digel Cloud 1a were not
* detected from FCRAO CO survey of the outer Galaxy.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table5.dat' ! New candidate star-forming regions
integer*4 nr__4
parameter (nr__4=792) ! Number of records
character*103 ar__4 ! Full-size record
C Position composed of: GLON GLAT
integer*4 v_BKP2003__1(nr__4) ! Cloud identification number ([BKP2003]NNNNN)
* (G1)
character*1 f_ID (nr__4) ! [m] Multiple clouds flag for source (1)
character*19 WISE_1 (nr__4) ! ALLWISE position based identifier
real*8 GLON_3 (nr__4) ! (deg) [102.59/141.479] Galactic longitude of ALLWISE
* source
real*4 GLAT_3 (nr__4) ! (deg) [-2.04/5.14] Galactic latitude of ALLWISE
* source
real*4 W1mag_1 (nr__4) ! (mag) [7.879/17.537] ALLWISE W1 (3.35{mu}m) band
* magnitude
real*4 e_W1mag_1 (nr__4) ! (mag) [0.014/0.213] Uncertainty in W1mag
real*4 W2mag_1 (nr__4) ! (mag) [6.733/16.202] ALLWISE W2 (4.6{mu}m) band
* magnitude
real*4 e_W2mag_1 (nr__4) ! (mag) [0.014/0.195] Uncertainty in W2mag
real*4 W3mag_1 (nr__4) ! (mag) [1.41/12.184] ALLWISE W3 (11.6{mu}m) band
* magnitude
real*4 e_W3mag_1 (nr__4) ! (mag) [0.005/0.219] Uncertainty in W3mag
real*4 W4mag_1 (nr__4) ! (mag) [-2.147/9.441] ALLWISE W4 (22.1{mu}m) band
* magnitude
real*4 e_W4mag_1 (nr__4) ! (mag) [0.002/0.542]? Uncertainty in W4mag (G2)
*Note (1): More than one cloud at different velocities exist in the line of
* sight for 13 candidates marked with "m".
C=============================================================================
C Loading file 'table1.dat' ! Molecular clouds with associating sample
* star-forming regions in the FOG and EOG
C Format for file interpretation
1 format(
+ A3,1X,A16,1X,F7.3,1X,F6.3,1X,F7.2,1X,F4.1,1X,F4.1,1X,A1,F3.1,
+ 1X,F3.1,1X,A5)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,13
read(1,'(A68)')ar__
read(ar__,1)
+ Region(i__),Cloud(i__),GLON(i__),GLAT(i__),VLSR(i__),
+ Dist(i__),Rgal(i__),l_Age(i__),b_Age(i__),B_Age_1(i__),
+ Ref(i__)
if(ar__(56:58) .EQ. '') b_Age(i__) = rNULL__
if(ar__(60:62) .EQ. '') B_Age_1(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ Region(i__),Cloud(i__),GLON(i__),GLAT(i__),VLSR(i__),
+ Dist(i__),Rgal(i__),l_Age(i__),b_Age(i__),B_Age_1(i__),
+ Ref(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! Sample and candidate star-forming regions and
* the WISE sources in the outer Galaxy
C Format for file interpretation
2 format(
+ A3,1X,A16,1X,A11,1X,A6,1X,A19,1X,F7.3,1X,F6.3,1X,F6.3,1X,F5.3,
+ 1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,99
read(1,'(A126)')ar__1
read(ar__1,2)
+ Region_1(i__),Cloud_1(i__),SFR(i__),Type(i__),WISE(i__),
+ GLON_1(i__),GLAT_1(i__),W1mag(i__),e_W1mag(i__),W2mag(i__),
+ e_W2mag(i__),W3mag(i__),e_W3mag(i__),W4mag(i__),e_W4mag(i__)
if(ar__1(122:126) .EQ. '') e_W4mag(i__) = rNULL__
c ..............Just test output...........
write(6,2)
+ Region_1(i__),Cloud_1(i__),SFR(i__),Type(i__),WISE(i__),
+ GLON_1(i__),GLAT_1(i__),W1mag(i__),e_W1mag(i__),W2mag(i__),
+ e_W2mag(i__),W3mag(i__),e_W3mag(i__),W4mag(i__),e_W4mag(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! Contamination rate for molecular clouds with
* associating sample star-forming regions
C Format for file interpretation
3 format(A16,1X,A5,1X,I2,1X,I3,1X,E6.4,1X,I3,1X,E6.4,1X,I2)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,15
read(1,'(A50)')ar__2
read(ar__2,3)
+ Cloud_2(i__),Source(i__),NSFR(i__),Area(i__),dSFR(i__),
+ NCand(i__),dCand(i__),Cont(i__)
if(ar__2(24:25) .EQ. '') NSFR(i__) = iNULL__
if(ar__2(27:29) .EQ. '') Area(i__) = iNULL__
if(ar__2(31:36) .EQ. '') dSFR(i__) = rNULL__
if(ar__2(38:40) .EQ. '') NCand(i__) = iNULL__
if(ar__2(42:47) .EQ. '') dCand(i__) = rNULL__
if(ar__2(49:50) .EQ. '') Cont(i__) = iNULL__
c ..............Just test output...........
write(6,3)
+ Cloud_2(i__),Source(i__),NSFR(i__),Area(i__),dSFR(i__),
+ NCand(i__),dCand(i__),Cont(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4.dat' ! Molecular clouds with associating new candidate
* star-forming regions
C Format for file interpretation
4 format(
+ 9X,I5,1X,F7.3,1X,F6.3,1X,F7.2,1X,F5.2,1X,F4.1,1X,I2,1X,F6.2,
+ 1X,A16)
C Effective file loading
open(unit=1,status='old',file=
+'table4.dat')
write(6,*) '....Loading file: table4.dat'
do i__=1,252
read(1,'(A75)')ar__3
read(ar__3,4)
+ v_BKP2003_(i__),GLON_2(i__),GLAT_2(i__),VLSR_1(i__),
+ Dist_1(i__),Rgal_1(i__),NCand_1(i__),Cont_1(i__),Note(i__)
c ..............Just test output...........
write(6,4)
+ v_BKP2003_(i__),GLON_2(i__),GLAT_2(i__),VLSR_1(i__),
+ Dist_1(i__),Rgal_1(i__),NCand_1(i__),Cont_1(i__),Note(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table5.dat' ! New candidate star-forming regions
C Format for file interpretation
5 format(
+ 9X,I5,1X,A1,1X,A19,1X,F7.3,1X,F6.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,
+ F5.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3)
C Effective file loading
open(unit=1,status='old',file=
+'table5.dat')
write(6,*) '....Loading file: table5.dat'
do i__=1,792
read(1,'(A103)')ar__4
read(ar__4,5)
+ v_BKP2003__1(i__),f_ID(i__),WISE_1(i__),GLON_3(i__),
+ GLAT_3(i__),W1mag_1(i__),e_W1mag_1(i__),W2mag_1(i__),
+ e_W2mag_1(i__),W3mag_1(i__),e_W3mag_1(i__),W4mag_1(i__),
+ e_W4mag_1(i__)
if(ar__4(99:103) .EQ. '') e_W4mag_1(i__) = rNULL__
c ..............Just test output...........
write(6,5)
+ v_BKP2003__1(i__),f_ID(i__),WISE_1(i__),GLON_3(i__),
+ GLAT_3(i__),W1mag_1(i__),e_W1mag_1(i__),W2mag_1(i__),
+ e_W2mag_1(i__),W3mag_1(i__),e_W3mag_1(i__),W4mag_1(i__),
+ e_W4mag_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end