Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/118/1395 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/AJ/118/1395 Speckle interferometry at USNO. IV. (Douglass+, 1999) *================================================================================ *Speckle interferometry at the US naval observatory. IV. * Douglass G.G., Mason B.D., Germain M.E., Worley C.E. * <Astron. J. 118, 1395 (1999)> * =1999AJ....118.1395D C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! USNO speckle interferometry data IV integer*4 nr__ parameter (nr__=1313) ! Number of records character*62 ar__ ! Full-size record character*10 WDS (nr__) ! WDS designation (based on equinox J2000) character*9 Name (nr__) ! Discovery name character*4 Comp (nr__) ! Component real*4 Vmag (nr__) ! (mag) V magnitude real*4 Bmag (nr__) ! (mag) B magnitude real*8 Date (nr__) ! (yr) Obsevation date real*4 PA (nr__) ! (deg) Position angle real*4 rho (nr__) ! (arcsec) Separation angle integer*4 M (nr__) ! Microscopic objective used (1) character*1 F (nr__) ! [Vgy] Filter (2) character*1 Q (nr__) ! [GFPVT] Quality of the parabolic fit (3) *Note (1): 10-power or 20-power *Note (2): Filter characteristics * ------------------------------------------------------- * Filter lambda half-width Magnitude range (V) * {AA} {AA} * ------------------------------------------------------- * V (Johnson) 5450 850 8.3-11: * "g" (USNO) 5600 450 7.3-9.5 * y (Stromgren) 5500 240 <= 8.3 * ------------------------------------------------------- *Note (3): the Qualities are flagged as follows: * G: good fit with most of the points lying on the x and y parabolas * F: fair fit with at least three points lying on the parabolas * P: poor fit with points scattered about the parabolas * V: very poor fit with large scatter about the parabolas and a weak * and fuzzy secondary image * T: not explained in the paper C============================================================================= C Loading file 'table2.dat' ! USNO speckle interferometry data IV C Format for file interpretation 1 format( + A10,1X,A9,A4,1X,F4.1,1X,F4.1,1X,F8.3,1X,F5.1,1X,F4.2,1X,I2,1X, + A1,1X,A1) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,1313 read(1,'(A62)')ar__ read(ar__,1) + WDS(i__),Name(i__),Comp(i__),Vmag(i__),Bmag(i__),Date(i__), + PA(i__),rho(i__),M(i__),F(i__),Q(i__) c ..............Just test output........... write(6,1) + WDS(i__),Name(i__),Comp(i__),Vmag(i__),Bmag(i__),Date(i__), + PA(i__),rho(i__),M(i__),F(i__),Q(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end