Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/438/377 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.
++++Column 'RAdeg' at line 81: Right Ascension at Eq.=J2000 (3) position has no associated Epoch (last analysed word: 'observations') 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/438/377 Kyiv Meridian Axial Circle Catalogue, KMAC1 (Lazorenko+, 2005) *================================================================================ *The Kyiv Meridian Axial Circle Catalogue of stars in fields with extragalactic *radio sources. * Lazorenko P., Babenko Yu, Karbovsky V., Buromsky M., Denisjuk O., Kasjan S. * <Astron. Astrophys. 438, 377 (2005)> * =2005A&A...438..377L C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'list.dat' ! List of sky strips included in KMAC1-T and KMAC1-CU integer*4 nr__ parameter (nr__=192) ! Number of records character*65 ar__ ! Full-size record character*15 IAU ! IAU designations of ICRF radio sources located * at centres of sky strips integer*4 NCU ! Star number in each sky strip contained in * the KMAC1-CU catalogue integer*4 NT ! ? Star number in each sky strip contained in * the KMAC1-T catalogue (1) *Note (1): NT may be smaller than NCU due to truncation of outer edges of * some sky fields which was carried out in the KMAC1-T. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'kmac1cu.dat' ! The catalogue KMAC1-T (159 fields) integer*4 nr__1 parameter (nr__1=115032) ! Number of records character*150 ar__1 ! Full-size record C observations and Eq.=J2000.0. position composed of: RAdeg DEdeg integer*4 Seq ! Object (star) sequential number (1) character*15 IAU_1 ! IAU designation of the radio source (2) real*8 RAdeg ! (deg) Right Ascension at Eq.=J2000 (3) real*8 DEdeg ! (deg) Declination at Eq.=J2000 (3) real*4 Vmag ! (mag) Johnson V band magnitude integer*4 o_RAdeg ! Number of detections in RA (4) integer*4 o_DEdeg ! Number of detections in DE (4) integer*4 o_Vmag ! Number of detections in V real*4 e_RAdeg ! (arcsec) Internal mean error on RA real*4 e_DEdeg ! (arcsec) Internal mean error on DE real*4 e_Vmag ! (mag) Internal mean error on V integer*4 pmRA ! (mas/yr) ?=9999 proper motion on RA (5) integer*4 pmDE ! (mas/yr) ?=9999 proper motion on DE (5) real*4 EpRA_2000 ! (yr) Epoch of observations on RA minus 2000 real*4 EpDE_2000 ! (yr) Epoch of observations on DE minus 2000 real*4 EpV_2000 ! (yr) Epoch of observations on V minus 2000 integer*4 Qual ! [0/1] Image quality index: 0=ok, * 1=non-standard image processing (6) real*4 SizeDE ! (pix) Image size for extended objects in DE (7) real*4 SizeRA ! (pix) Image size for extended objects in RA (7) real*4 Bmag ! (mag) ?=0.00 blue B magnitude from USNO-B1.0 real*4 Rmag ! (mag) ?=0.00 red R magnitude from USNO-B1.0 real*4 r_mag ! (mag) ?=0.000 red r' magnitude from CMC13 real*4 Jmag ! (mag) ?=0.000 infrared J magnitude from 2MASS character*12 USNOB1 ! USNO-B1.0 (Cat <I/284>) object designation * (99999999999 = ?) *Note (1): All the KMAC1 objects are ordered by Right Ascension. *Note (2): The designation refers to the central ICRF object of the sky area. *Note (3): Positions are is given at mean epoch of observations and Eq.=J2000.0. *Note (4): Unequal number of detections in RA and DE (NRA and NDE) means * that a rejection of bad measurements was applied. It may indicate * certain problems with image quality not marked by the QUAL. When a * very high accuracy of positions is required, please do not use these * stars or at least the coordinate which refers to the rejected * measurement (e.g. DE, if NDE<NRA). *Note (5): Computed using the USNO-A2.0 first epoch positions. *Note (6): Qual=1 may indicate indicate centroiding problems of various * origin (e.g. binary, unresolved or oversaturated star). Please do not * use these stars when a very high accuracy of positions is required. *Note (7): The Gaussian image size parameter is given when SizeDE or * SizeRA exceed 2pix (1pix=1.394arcsec); FWHM=2.36*SizeDE in DE and * FWHM=2.36*SizeRA in RA c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'kmac1t.dat' ! The catalogue KMAC1-CU (192 fields) integer*4 nr__2 parameter (nr__2=104796) ! Number of records character*150 ar__2 ! Full-size record C observations and Eq.=J2000.0. position composed of: RAdeg DEdeg integer*4 Seq_1 ! Object (star) sequential number (1) character*15 IAU_2 ! IAU designation of the radio source (2) real*8 RAdeg_1 ! (deg) Right Ascension at Eq.=J2000 (3) real*8 DEdeg_1 ! (deg) Declination at Eq.=J2000 (3) real*4 Vmag_1 ! (mag) Johnson V band magnitude integer*4 o_RAdeg_1 ! Number of detections in RA (4) integer*4 o_DEdeg_1 ! Number of detections in DE (4) integer*4 o_Vmag_1 ! Number of detections in V real*4 e_RAdeg_1 ! (arcsec) Internal mean error on RA real*4 e_DEdeg_1 ! (arcsec) Internal mean error on DE real*4 e_Vmag_1 ! (mag) Internal mean error on V integer*4 pmRA_1 ! (mas/yr) ?=9999 proper motion on RA (5) integer*4 pmDE_1 ! (mas/yr) ?=9999 proper motion on DE (5) real*4 EpRA_2000_1 ! (yr) Epoch of observations on RA minus 2000 real*4 EpDE_2000_1 ! (yr) Epoch of observations on DE minus 2000 real*4 EpV_2000_1 ! (yr) Epoch of observations on V minus 2000 integer*4 Qual_1 ! [0/1] Image quality index: 0=ok, * 1=non-standard image processing (6) real*4 SizeDE_1 ! (pix) Image size for extended objects in DE (7) real*4 SizeRA_1 ! (pix) Image size for extended objects in RA (7) real*4 Bmag_1 ! (mag) ?=0.00 blue B magnitude from USNO-B1.0 real*4 Rmag_1 ! (mag) ?=0.00 red R magnitude from USNO-B1.0 real*4 r_mag_1 ! (mag) ?=0.000 red r' magnitude from CMC13 real*4 Jmag_1 ! (mag) ?=0.000 infrared J magnitude from 2MASS character*12 USNOB1_1 ! USNO-B1.0 (Cat <I/284>) object designation * (99999999999 = ?) *Note (1): All the KMAC1 objects are ordered by Right Ascension. *Note (2): The designation refers to the central ICRF object of the sky area. *Note (3): Positions are is given at mean epoch of observations and Eq.=J2000.0. *Note (4): Unequal number of detections in RA and DE (NRA and NDE) means * that a rejection of bad measurements was applied. It may indicate * certain problems with image quality not marked by the QUAL. When a * very high accuracy of positions is required, please do not use these * stars or at least the coordinate which refers to the rejected * measurement (e.g. DE, if NDE<NRA). *Note (5): Computed using the USNO-A2.0 first epoch positions. *Note (6): Qual=1 may indicate indicate centroiding problems of various * origin (e.g. binary, unresolved or oversaturated star). Please do not * use these stars when a very high accuracy of positions is required. *Note (7): The Gaussian image size parameter is given when SizeDE or * SizeRA exceed 2pix (1pix=1.394arcsec); FWHM=2.36*SizeDE in DE and * FWHM=2.36*SizeRA in RA C============================================================================= C Loading file 'list.dat' ! List of sky strips included in KMAC1-T and KMAC1-CU C Format for file interpretation 1 format(A15,1X,I5,1X,I5) C Effective file loading open(unit=1,status='old',file= +'list.dat') write(6,*) '....Loading file: list.dat' do i__=1,192 read(1,'(A65)')ar__ read(ar__,1)IAU,NCU,NT if(ar__(23:27) .EQ. '') NT = iNULL__ c ..............Just test output........... write(6,1)IAU,NCU,NT c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'kmac1cu.dat' ! The catalogue KMAC1-T (159 fields) C Format for file interpretation 2 format( + I6,1X,A15,1X,F11.7,1X,F10.7,1X,F6.3,1X,I2,1X,I2,1X,I2,1X,F4.2, + 1X,F4.2,1X,F4.2,1X,I4,1X,I4,1X,F4.2,1X,F4.2,1X,F4.2,1X,I1,1X, + F3.1,1X,F3.1,1X,F5.2,1X,F5.2,1X,F6.3,1X,F6.3,1X,A12) C Effective file loading open(unit=1,status='old',file= +'kmac1cu.dat') write(6,*) '....Loading file: kmac1cu.dat' do i__=1,115032 read(1,'(A150)')ar__1 read(ar__1,2) + Seq,IAU_1,RAdeg,DEdeg,Vmag,o_RAdeg,o_DEdeg,o_Vmag,e_RAdeg, + e_DEdeg,e_Vmag,pmRA,pmDE,EpRA_2000,EpDE_2000,EpV_2000,Qual, + SizeDE,SizeRA,Bmag,Rmag,r_mag,Jmag,USNOB1 c ..............Just test output........... write(6,2) + Seq,IAU_1,RAdeg,DEdeg,Vmag,o_RAdeg,o_DEdeg,o_Vmag,e_RAdeg, + e_DEdeg,e_Vmag,pmRA,pmDE,EpRA_2000,EpDE_2000,EpV_2000,Qual, + SizeDE,SizeRA,Bmag,Rmag,r_mag,Jmag,USNOB1 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'kmac1t.dat' ! The catalogue KMAC1-CU (192 fields) C Format for file interpretation 3 format( + I6,1X,A15,1X,F11.7,1X,F10.7,1X,F6.3,1X,I2,1X,I2,1X,I2,1X,F4.2, + 1X,F4.2,1X,F4.2,1X,I4,1X,I4,1X,F4.2,1X,F4.2,1X,F4.2,1X,I1,1X, + F3.1,1X,F3.1,1X,F5.2,1X,F5.2,1X,F6.3,1X,F6.3,1X,A12) C Effective file loading open(unit=1,status='old',file= +'kmac1t.dat') write(6,*) '....Loading file: kmac1t.dat' do i__=1,104796 read(1,'(A150)')ar__2 read(ar__2,3) + Seq_1,IAU_2,RAdeg_1,DEdeg_1,Vmag_1,o_RAdeg_1,o_DEdeg_1, + o_Vmag_1,e_RAdeg_1,e_DEdeg_1,e_Vmag_1,pmRA_1,pmDE_1, + EpRA_2000_1,EpDE_2000_1,EpV_2000_1,Qual_1,SizeDE_1,SizeRA_1, + Bmag_1,Rmag_1,r_mag_1,Jmag_1,USNOB1_1 c ..............Just test output........... write(6,3) + Seq_1,IAU_2,RAdeg_1,DEdeg_1,Vmag_1,o_RAdeg_1,o_DEdeg_1, + o_Vmag_1,e_RAdeg_1,e_DEdeg_1,e_Vmag_1,pmRA_1,pmDE_1, + EpRA_2000_1,EpDE_2000_1,EpV_2000_1,Qual_1,SizeDE_1,SizeRA_1, + Bmag_1,Rmag_1,r_mag_1,Jmag_1,USNOB1_1 c .......End.of.Just test output........... end do close(1) C============================================================================= stop end