Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/493/959 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-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. J/A+A/493/959 UBV(RI)cHalpha photometry in omega Cen (Bellini+, 2009) *================================================================================ *Ground-based CCD astrometry with wide field imagers. *III. proper-motion catalog of the globular cluster omega Centauri. * Bellini A., Piotto G., Bedin L.R., Anderson J., Platais I., Momany Y., * Moretti A., Milone A.P., Ortolani S. * <Astron. Astrophys. 493, 959 (2009)> * =2009A&A...493..959B C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'catalog.dat' ! Astrometric and photometric parameters for 359391 objects (table6 of the paper) integer*4 nr__ parameter (nr__=359391) ! Number of records character*164 ar__ ! Full-size record C J2000 position composed of: RAdeg DEdeg (Epoch=J2003.29) integer*4 Seq ! [1/376478] Star sequential number real*8 RAdeg ! (deg) Right ascension (J2000, Epoch J2003.29) real*8 DEdeg ! (deg) Declination (J2000, Epoch J2003.29) real*8 Xpos ! (pix) X master frame position (distortion free) real*8 Ypos ! (pix) Y master frame position (distortion free) real*4 pmRA ! (mas/yr) Proper motion along RA, pmRAcosDE real*4 e_pmRA ! (mas/yr) Proper motion rms along pmRAcosDE real*4 pmDE ! (mas/yr) Proper motion along pmDE real*4 e_pmDE ! (mas/yr) Proper motion rms along pmDE real*4 Umag ! (mag) ?=99.999 Johnson U visual magnitude (1) real*4 e_Umag ! (mag) ?=99.999 Johnson U visual magnitude rms (1) real*4 Bmag ! (mag) ?=99.999 Johnson B visual magnitude (1) real*4 e_Bmag ! (mag) ?=99.999 Johnson B visual magnitude rms (1) real*4 Vmag ! (mag) ?=99.999 Johnson V visual magnitude (1) real*4 e_Vmag ! (mag) ?=99.999 Johnson V visual magnitude rms (1) real*4 Rcmag ! (mag) ?=99.999 Cousins R visual magnitude (1) real*4 e_Rcmag ! (mag) ?=99.999 Cousins R visual magnitude rms (1) real*4 Icmag ! (mag) ?=99.999 Cousins I visual magnitude (1) real*4 e_Icmag ! (mag) ?=99.999 Cousins I visual magnitude rms (1) real*4 Ha ! (mag) ?=99.999 Halpha visual magnitude (1) real*4 e_Ha ! (mag) ?=99.999 Halpha visual magnitude rms (1) integer*4 Mm ! (%) Membership probability integer*4 Mm2 ! (%) ?=-1 Membership probability alternative (2) *Note (1): If an object is not been measured in a filter, a flag equal to * 99.999 is set for magnitude value and relative magnitude rms. *Note (2): Membership probability determination with an alternative method * for 120227 objects. A value of -1 is set for undetermined memberships. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3.dat' ! Membership probability for the Kaluzny et al. (2004, Cat. J/A+A/424/1101) variable star catalog integer*4 nr__1 parameter (nr__1=343) ! Number of records character*16 ar__1 ! Full-size record character*5 VName ! Variable name (VNNN or NVNNN) integer*4 Mmb ! (%) Membership probability integer*4 Seq_1 ! Star sequential number C============================================================================= C Loading file 'catalog.dat' ! Astrometric and photometric parameters for * 359391 objects (table6 of the paper) C Format for file interpretation 1 format( + I6,1X,F10.6,1X,F10.6,1X,F8.3,1X,F8.3,1X,F6.2,1X,F5.2,1X,F6.2, + 1X,F5.2,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X, + F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,I3,1X,I3) C Effective file loading open(unit=1,status='old',file= +'catalog.dat') write(6,*) '....Loading file: catalog.dat' do i__=1,359391 read(1,'(A164)')ar__ read(ar__,1) + Seq,RAdeg,DEdeg,Xpos,Ypos,pmRA,e_pmRA,pmDE,e_pmDE,Umag,e_Umag, + Bmag,e_Bmag,Vmag,e_Vmag,Rcmag,e_Rcmag,Icmag,e_Icmag,Ha,e_Ha, + Mm,Mm2 c ..............Just test output........... write(6,1) + Seq,RAdeg,DEdeg,Xpos,Ypos,pmRA,e_pmRA,pmDE,e_pmDE,Umag,e_Umag, + Bmag,e_Bmag,Vmag,e_Vmag,Rcmag,e_Rcmag,Icmag,e_Icmag,Ha,e_Ha, + Mm,Mm2 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table3.dat' ! Membership probability for the Kaluzny et al. * (2004, Cat. J/A+A/424/1101) variable star catalog C Format for file interpretation 2 format(A5,1X,I3,1X,I6) C Effective file loading open(unit=1,status='old',file= +'table3.dat') write(6,*) '....Loading file: table3.dat' do i__=1,343 read(1,'(A16)')ar__1 read(ar__1,2)VName,Mmb,Seq_1 c ..............Just test output........... write(6,2)VName,Mmb,Seq_1 c .......End.of.Just test output........... end do close(1) C============================================================================= stop end