Conversion of standardized ReadMe file for
file /./ftp/cats/I/341 into FORTRAN code for reading data files line by line.
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. I/341 PMA Catalogue (Akhmetov+, 2017) *================================================================================ *The PMA Catalogue: 420 million positions and absolute proper motions. * Akhmetov V.S., Fedorov P.N., Velichko A.B., Shulga V.M. * <Mon. Not. R. Astron. Soc. 469, 763 (2017)> * =2017MNRAS.469..763A (SIMBAD/NED BibCode) * =2017yCat.1341....0A C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'pma/*' ! *PMA Catalogue (421454398 sources) integer*4 nr__ parameter (nr__=360) ! Number of records character*126 ar__ ! Full-size record C Position composed of: RAdeg DEdeg (Epoch=2015.0) real*8 RAdeg ! (deg) Right ascension (ICRS, epoch 2015.0) * from GAIA DR1 (RA) real*8 DEdeg ! (deg) Declination (ICRS, epoch 2015.0) * from GAIA DR1 (DEC) real*4 e_RAdeg ! (mas) Standard error of right ascension * from GAIA DR1 (eRA) real*4 e_DEdeg ! (mas) Standard error of declination * from GAIA DR1 (eDEC) real*8 pmRA ! (mas/yr) Proper motion in right ascension * (pmRAcosDE) (pmRA) real*8 pmDE ! (mas/yr) Proper motion in declination (pmDE) real*4 e_pmRA ! (mas/yr) Standard error of proper motion in * right ascension (e_pmRA) real*4 e_pmDE ! (mas/yr) Standard error of proper motion in * declination (e_pmDE) real*4 Gmag ! (mag) G-band mean magnitude from GAIA DR1 (Gmag) real*4 Jmag ! (mag) J magnitude from 2MASS (j_mag) real*4 e_Jmag ! (mag) Standard error in J magnitude (er_jmag) real*4 Hmag ! (mag) H magnitude from 2MASS (h_mag) real*4 e_Hmag ! (mag) Standard error in J magnitude (re_hmag) real*4 Kmag ! (mag) Ks magnitude from 2MASS (k_mag) real*4 e_Kmag ! (mag) Standard error in J magnitude (er_kmang) character*10 Cntr ! Unique source identifier in 2MASS (pts_key) C============================================================================= C Loading file 'pma/*' ! *PMA Catalogue (421454398 sources) C Format for file interpretation 1 format( + F14.10,1X,F14.10,1X,F5.2,1X,F5.2,1X,F7.2,1X,F7.2,1X,F5.2,1X, + F5.2,1X,F6.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3, + 1X,A10) C Effective file loading open(unit=1,status='old',file= +'pma/*') write(6,*) '....Loading file: pma/*' do i__=1,360 read(1,'(A126)')ar__ read(ar__,1) + RAdeg,DEdeg,e_RAdeg,e_DEdeg,pmRA,pmDE,e_pmRA,e_pmDE,Gmag,Jmag, + e_Jmag,Hmag,e_Hmag,Kmag,e_Kmag,Cntr c ..............Just test output........... write(6,1) + RAdeg,DEdeg,e_RAdeg,e_DEdeg,pmRA,pmDE,e_pmRA,e_pmDE,Gmag,Jmag, + e_Jmag,Hmag,e_Hmag,Kmag,e_Kmag,Cntr c .......End.of.Just test output........... end do close(1) C============================================================================= stop end