Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/642/861 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-Apr-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/ApJ/642/861 N-band imaging of the Galactic Center (Viehmann+, 2006) *================================================================================ *Dusty sources at the Galactic Center the N- and Q-band views with VISIR. * Viehmann T., Eckart A., Schodel R., Pott J.-U., Moultaka J. * <Astrophys. J., 642, 861-867 (2006)> * =2006ApJ...642..861V C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Extinction-corrected flux densities of compact N-band sources integer*4 nr__ parameter (nr__=64) ! Number of records character*82 ar__ ! Full-size record integer*4 v_VES2006_ (nr__) ! Sequential number ([VES2006] NN in Simbad) character*1 f__VES2006_(nr__) ! [c] Flag on [VES2006] (1) character*11 OName (nr__) ! Other name character*1 f_OName (nr__) ! [c] Flag on OName (1) real*4 oRA (nr__) ! (arcsec) Right ascension offset (2) real*4 oDE (nr__) ! (arcsec) Declination offset (2) real*4 F1_6 (nr__) ! (Jy) ? 1.6{mu}m flux density (3) real*4 F2_1 (nr__) ! (Jy) ? 2.1{mu}m flux density (3) real*4 F3_8 (nr__) ! (Jy) ? 3.8{mu}m flux density (3) real*4 F4_7 (nr__) ! (Jy) ? 4.7{mu}m flux density (3) real*4 F8_6 (nr__) ! (Jy) 8.6{mu}m flux density (3) real*4 F11_3 (nr__) ! (Jy) ? 11.3{mu}m flux density (3) real*4 F12_8 (nr__) ! (Jy) ? 12.8{mu}m flux density (3) real*4 F18_7 (nr__) ! (Jy) ? 18.7{mu}m flux density (3) real*4 F19_5 (nr__) ! (Jy) ? 19.5{mu}m flux density (3) *Note (1): A "c" indicates a lower luminosity bow shock source * (see Section 3.2.1). *Note (2): Position offsets are relative to IRS 7 * (17:45:40.052-29:00:22.659, instead of -29 00 33.659 as indicated in * the paper); see Reid et al. 1999ApJ...524..816R, 2003ApJ...587..208R) * and are accurate to +/-0.15". *Note (3): Photometry is accurate to +/-30%, or +/-50% for sources fainter * than 0.5Jy. The corresponding aperture size is approximately 1". C============================================================================= C Loading file 'table1.dat' ! Extinction-corrected flux densities of compact * N-band sources C Format for file interpretation 1 format( + I2,A1,1X,A11,A1,1X,F5.2,1X,F6.2,1X,F5.2,1X,F4.2,1X,F5.2,1X, + F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,64 read(1,'(A82)')ar__ read(ar__,1) + v_VES2006_(i__),f__VES2006_(i__),OName(i__),f_OName(i__), + oRA(i__),oDE(i__),F1_6(i__),F2_1(i__),F3_8(i__),F4_7(i__), + F8_6(i__),F11_3(i__),F12_8(i__),F18_7(i__),F19_5(i__) if(ar__(31:35) .EQ. '') F1_6(i__) = rNULL__ if(ar__(37:40) .EQ. '') F2_1(i__) = rNULL__ if(ar__(42:46) .EQ. '') F3_8(i__) = rNULL__ if(ar__(48:52) .EQ. '') F4_7(i__) = rNULL__ if(ar__(60:64) .EQ. '') F11_3(i__) = rNULL__ if(ar__(66:70) .EQ. '') F12_8(i__) = rNULL__ if(ar__(72:76) .EQ. '') F18_7(i__) = rNULL__ if(ar__(78:82) .EQ. '') F19_5(i__) = rNULL__ c ..............Just test output........... write(6,1) + v_VES2006_(i__),f__VES2006_(i__),OName(i__),f_OName(i__), + oRA(i__),oDE(i__),F1_6(i__),F2_1(i__),F3_8(i__),F4_7(i__), + F8_6(i__),F11_3(i__),F12_8(i__),F18_7(i__),F19_5(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end