Conversion of standardized ReadMe file for
file /./ftp/cats/J/PASJ/63/S1 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-Mar-29 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/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 C Position composed of: GLONd GLONm GLAT- GLATd GLATm integer*4 Seq ! [1/7614] Sequential number integer*4 GLONd ! (deg) Galactic longitude of cloud peak position integer*4 GLONm ! (arcmin) Galactic longitude of cloud peak position character*1 GLAT_ ! Galactic latitude sign integer*4 GLATd ! (deg) Galactic latitude of cloud peak position integer*4 GLATm ! (arcmin) Galactic latitude of cloud peak position real*8 Area ! (arcmin2) Surface area real*4 AV ! (mag) Core absorption in V-band at the peak * position real*4 e_AV ! (mag) rms uncertainty on AV real*8 IAVds ! (mag.arcmin2) Core absorption integrated over the * cloud surface real*4 e_IAVds ! (mag.arcmin2) rms uncertainty on IAVds character*1 Q ! [A-C] Rank of reliability in detection * (A=best) (1) character*7 Flag ! Notes about cloud (2) character*8 TGU ! 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,A1,I2,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,status='old',file= +'table8.dat') write(6,*) '....Loading file: table8.dat' do i__=1,7614 read(1,'(A70)')ar__ read(ar__,1) + Seq,GLONd,GLONm,GLAT_,GLATd,GLATm,Area,AV,e_AV,IAVds,e_IAVds, + Q,Flag,TGU c ..............Just test output........... write(6,1) + Seq,GLONd,GLONm,GLAT_,GLATd,GLATm,Area,AV,e_AV,IAVds,e_IAVds, + Q,Flag,TGU c .......End.of.Just test output........... end do close(1) C============================================================================= stop end