Conversion of standardized ReadMe file for
file /./ftp/cats/J/PASJ/63/S1 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.5, on 2013-May-18
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__=-1.e37) ! NULL real number
parameter (iNULL__=-2147483647) ! NULL int number
C=============================================================================
Cat. J/PASJ/63/S1 Atlas and catalog of dark clouds based on 2MASS (Dobashi+, 2011)
*================================================================================
*Atlas and catalog of dark clouds based on the 2 Micron All Sky Survey.
* Dobashi K.
* <Publ. Astron. Soc. Jap., 63, S1-S362 (2011)>
* =2011PASJ...63S...1D
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table8.dat' ! Catalog of dark clouds
integer*4 nr__
parameter (nr__=7614) ! Number of records
character*70 ar__ ! Full-size record
integer*4 Seq (nr__) ! [1/7614] Sequential number
integer*4 GLONd (nr__) ! (deg) Galactic longitude of cloud peak position
integer*4 GLONm (nr__) ! (arcmin) Galactic longitude of cloud peak position
integer*4 GLATd (nr__) ! (deg) Galactic latitude of cloud peak position
integer*4 GLATm (nr__) ! (arcmin) Galactic latitude of cloud peak position
real*8 Area (nr__) ! (arcmin2) Surface area
real*4 AV (nr__) ! (mag) Core absorption in V-band at the peak
* position
real*4 e_AV (nr__) ! (mag) rms uncertainty on AV
real*8 IAVds (nr__) ! (mag.arcmin2) Core absorption integrated over the
* cloud surface
real*4 e_IAVds (nr__) ! (mag.arcmin2) rms uncertainty on IAVds
character*1 Q (nr__) ! [A-C] Rank of reliability in detection
* (A=best) (1)
character*7 Flag (nr__) ! Notes about cloud (2)
character*8 TGU (nr__) ! Cloud numbers in the catalog by Dobashi et
* al. (2005, Cat. VII/244 ) (3)
*Note (1): Rank as follows:
* A = Clouds having a counterpart in one or more other databases,
* ensuring that the cloud is real (350 clouds)
* B = Clouds falling in the outskirts of the distribution of dense gas
* or dust found in other databases, and their counterpart cannot
* be identified clearly (210 clouds, some of them might be fake)
* C = Clouds heavily affected by bright stars in the vicinity, and
* cloud parameters such as A_V_ cannot be measured reliably
* (54 clouds , some of them might be fake)
*Note (2): Flag of one or more integer numbers as follows:
* 0 = Clouds originating from the E(J-H)_X_m^50^ map (5255 clouds)
* 1 = Clouds originating from the A_J_ map (2359 clouds)
* 2 = Distant clouds appearing as a hole in the E(J-H)_X_m^50^ map,
* but as a bump in the A_J_ map (Sect. 6.6) (747 clouds)
* 3 = Clouds possibly contaminated by IR clusters appearing as a hole
* in the A_J_ map, but as a bump in the E(J-H)_X_m^50^ map
* (Sect. 6.4) (543 clouds)
* 4 = Clouds found in the vicinity of bright stars in the SAO catalog
* (<~6mag), which may affect our estimate of A_V_ (15 clouds)
* 5 = Clouds found in the vicinity of bright stars in the 2MASS PSC
* (<=5mag either in J, H, or K_S_ bands), which may affect our
* estimates of A_V_ (40 clouds)
* 6 = Clouds found within the radii of globular clusters catalogued by
* Monella (1985, Coelum, 53, 287), which may affect our estimates
* of A_V_ (only 1 cloud)
* 7 = Clouds found in the radii of open clusters catalogued by Dias
* et al. (2002A&A...389..871D, Cat. B/ocl), which may affect our
* estimates of A_V_ (48 clouds)
* 8 = Clouds in M 31 and M 33 (Sect. 6.7) (15 clouds)
*Note (3): If the clouds found in this work fall within the cloud extents in
* their catalog, the corresponding cloud numbers are listed in this
* column. There are 6516 clouds whose counterparts are found in their
* catalog. Note that the TGU numbers given in this column merely denote
* the coincidence, which does not ensure a definite physical
* association.
C=============================================================================
C Loading file 'table8.dat' ! Catalog of dark clouds
C Format for file interpretation
1 format(
+ I4,1X,I3,1X,I2,1X,I3,1X,I2,1X,F7.2,1X,F5.2,1X,F4.2,1X,F8.2,1X,
+ F4.2,1X,A1,1X,A7,1X,A8)
C Effective file loading
open(unit=1,file='table8.dat', status='old')
write(6,*) '....Loading file: table8.dat'
do i__=1,7614
read(1,'(A70)')ar__
read(ar__,1)
+ Seq(i__),GLONd(i__),GLONm(i__),GLATd(i__),GLATm(i__),
+ Area(i__),AV(i__),e_AV(i__),IAVds(i__),e_IAVds(i__),Q(i__),
+ Flag(i__),TGU(i__)
c ..............Just test output...........
write(6,1)
+ Seq(i__),GLONd(i__),GLONm(i__),GLATd(i__),GLATm(i__),
+ Area(i__),AV(i__),e_AV(i__),IAVds(i__),e_IAVds(i__),Q(i__),
+ Flag(i__),TGU(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end