Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/106/56 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-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/AJ/106/56 HII regions in NGC 6814 (Knapen+, 1993) *================================================================================ *Statistics and properties of HII regions in NGC 6814 * KNAPEN J.H., ARNTH-JENSEN N., CEPA J., BECKMAN J.E. * <Astron. J. 106, 56 (1993)> * =1993AJ....106...56K (SIMBAD/NED Reference) C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table' ! HII regions. This table lists the 735 HII regions catalogued in the disk of the grand-design spiral galaxy NGC 6814, using a new H alpha image. The center is also included in the list. integer*4 nr__ parameter (nr__=735) ! Number of records character*48 ar__ ! Full-size record integer*4 ID (nr__) ! Identification number of the HII region. * HII regions closely grouped in the galaxy * have generally closely grouped numbers. real*8 dRA (nr__) ! (arcsec) Right ascension offset from the nucleus. Not * corrected for inclination of the galaxy. real*8 dDE (nr__) ! (arcsec) Declination offset from the nucleus. real*8 Dist (nr__) ! (arcsec) Deprojected distance from the center. An * inclination angle of 20 degrees and a * position angle of PA=167 degrees were used * for the deprojection. real*8 DHII (nr__) ! (arcsec) Diameter of the HII region real*8 log_LHII (nr__) ! ([10-7J/s]) HII region total integrated luminosity character*1 THII (nr__) ! [CAIO] Type assigment given to the * HII region. See note (1) *Note (1): Notes as follows: * C = center (not an HII region, but included for comparison) * A = Arm HII region * I = interarm * O = outer HII region * An outer HII region is defined as lying outside the area of the strong * spiral arms, d>43 arcsec or 0.4 R25. C============================================================================= C Loading file 'table' ! HII regions. This table lists the 735 HII * regions catalogued in the disk of the * grand-design spiral galaxy NGC 6814, using * a new H alpha image. The center is also * included in the list. C Format for file interpretation 1 format(I3,1X,F8.2,F8.2,F7.1,F7.2,F11.4,2X,A1) C Effective file loading open(unit=1,status='old',file= +'table') write(6,*) '....Loading file: table' do i__=1,735 read(1,'(A48)')ar__ read(ar__,1) + ID(i__),dRA(i__),dDE(i__),Dist(i__),DHII(i__),log_LHII(i__), + THII(i__) c ..............Just test output........... write(6,1) + ID(i__),dRA(i__),dDE(i__),Dist(i__),DHII(i__),log_LHII(i__), + THII(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end