Conversion of standardized ReadMe file for
file /./ftp/cats/I/268/ 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-28 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. I/268 UCAC1 Catalogue (Zacharias+ 2000) *================================================================================ *First U.S. Naval Observatory CCD Astrograph Catalog (UCAC1) * Zacharias N., Urban S.E., Zacharias M.I., Hall D.M., Wycoff G.L., * Rafferty T.J., Germain M.E., Holdenried E.R., Pohlman J.W., Gauss F.S., * Monet D.G., Winter L. * <Astron. J. 120, 2131-2147 (2000)> * =2000AJ....120.2131Z C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'out.sam' ! *Sample output from the UCAC1 integer*4 nr__ parameter (nr__=100) ! Number of records character*88 ar__ ! Full-size record C Position composed of: RAdeg DEdeg integer*4 v1UCAC (nr__) ! *[00000001,27425433] UCAC designation real*8 RAdeg (nr__) ! (deg) Right ascension (degrees), ICRS, at "Epoch" real*8 DEdeg (nr__) ! (deg) Declination (degrees), ICRS, at "Epoch" integer*4 e_RAdeg (nr__) ! (mas) Mean error on RAdeg integer*4 e_DEdeg (nr__) ! (mas) Mean error on DEdeg real*4 UCmag (nr__) ! (mag) Magnitude in UCAC system (579-642nm) integer*4 No (nr__) ! Number of observations real*8 Epoch (nr__) ! (yr) Mean Epoch of observation (of position) real*8 pmRA (nr__) ! (mas/yr) Proper motion in RA(*cos(Dec)) real*8 pmDE (nr__) ! (mas/yr) Proper motion in Dec real*4 e_pmRA (nr__) ! (mas/yr) Mean error on pmRA real*4 e_pmDE (nr__) ! (mas/yr) Mean error on pmDE integer*4 Nc (nr__) ! Number of catalogues *Note on 1UCAC: this star number is not provided in the original files. * It represents the running line number over all data, and uses an * 8-digit after the string "1UCAC" C============================================================================= C Loading file 'out.sam' ! *Sample output from the UCAC1 C Format for file interpretation 1 format( + I8,1X,F11.7,F11.7,1X,I3,1X,I3,1X,F5.2,1X,I2,1X,F8.3,1X,F8.1, + 1X,F8.1,1X,F4.1,1X,F4.1,1X,I2) C Effective file loading open(unit=1,status='old',file= +'out.sam') write(6,*) '....Loading file: out.sam' do i__=1,100 read(1,'(A88)')ar__ read(ar__,1) + v1UCAC(i__),RAdeg(i__),DEdeg(i__),e_RAdeg(i__),e_DEdeg(i__), + UCmag(i__),No(i__),Epoch(i__),pmRA(i__),pmDE(i__),e_pmRA(i__), + e_pmDE(i__),Nc(i__) c ..............Just test output........... write(6,1) + v1UCAC(i__),RAdeg(i__),DEdeg(i__),e_RAdeg(i__),e_DEdeg(i__), + UCmag(i__),No(i__),Epoch(i__),pmRA(i__),pmDE(i__),e_pmRA(i__), + e_pmDE(i__),Nc(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end