Conversion of standardized ReadMe file for
file /./ftp/cats/J/other/ChA_A/34.367 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-Mar-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/other/ChA+A/34.367 Study of PGC-54-like galaxies (Li+, 2010) *================================================================================ *Measurements of equivalent thicknesses of 3-dimensional PGC-54-like spiral *galactic disks. * Li G., Luo Z.-Q., Peng Q.-H. * <Chinese Astron., 34, 367-373 (2010)> * =2010ChA&A..34..367L C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! The equivalent thicknesses of 73 spiral galaxies integer*4 nr__ parameter (nr__=73) ! Number of records character*57 ar__ ! Full-size record integer*4 PGC (nr__) ! PGC Name real*4 Dist (nr__) ! (Mpc) Distance real*4 gamma (nr__) ! (deg) Inclination angle, {gamma} real*4 r0 (nr__) ! (kpc) Polar coordinate at the innermost place that * the spiral arm extends inward to real*4 mu (nr__) ! (deg) Tangential angle of the spiral arm {mu} real*4 Lambda (nr__) ! Parameter characterizing the winding tightness * of galaxy spiral arm {Lambda} real*4 e_Lambda (nr__) ! rms uncertainty on Lambda real*4 H (nr__) ! (kpc) Equivalent thickness of galactic disk real*4 e_H (nr__) ! (kpc) rms uncertainty on H C============================================================================= C Loading file 'table1.dat' ! The equivalent thicknesses of 73 spiral galaxies C Format for file interpretation 1 format( + 3X,I5,1X,F6.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,F5.2,1X,F6.3,1X,F5.3, + 1X,F5.3) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,73 read(1,'(A57)')ar__ read(ar__,1) + PGC(i__),Dist(i__),gamma(i__),r0(i__),mu(i__),Lambda(i__), + e_Lambda(i__),H(i__),e_H(i__) c ..............Just test output........... write(6,1) + PGC(i__),Dist(i__),gamma(i__),r0(i__),mu(i__),Lambda(i__), + e_Lambda(i__),H(i__),e_H(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end