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.
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