Conversion of standardized ReadMe file for
file /./ftp/cats/VII/77 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. VII/77 Isolated Pairs of Galaxies in Northern Hemisphere (Karachentsev 1972) *================================================================================ *Catalogue of Isolated Pairs of Galaxies in the Northern Hemisphere * Karachentsev I.D. * <Publ. of the Special Astrophy. Observatory of USSR AS, No. 7 (1972)> * =1972SoSAO...7....1K C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'data.dat' ! Catalog Data integer*4 nr__ parameter (nr__=1206) ! Number of records character*70 ar__ ! Full-size record C 1950 position composed of: RAh RAm DE- DEd DEm real*8 RAdeg ! (deg) Right Ascension 1950 real*8 DEdeg ! (deg) Declination 1950 C ---------------------------------- ! (position vector(s) in degrees) integer*4 ID ! *[1/603]+= Current number of the pair character*1 m_ID ! *[AB] A or B for the components integer*4 RAh ! (h) Right Ascension 1950 (hours) real*4 RAm ! (min) Right Ascension 1950 (minutes) character*1 DE_ ! Declination 1950 (sign) integer*4 DEd ! (deg) Declination 1950 (degrees) integer*4 DEm ! (arcmin) Declination 1950 (minutes) real*4 mag ! (mag) [,15.7]? Apparent magnitude integer*4 RV ! (km/s) *[0,20000]? Radial velocity integer*4 e_RV ! (km/s) []? Mean square error on RV integer*4 r_RV ! *[1/6]? Source of RV real*4 MajDiam ! (arcmin) Major axis real*4 aRatio ! [0/1] Minor-to-major axis ratio character*2 MType ! *Morphological type in Hubble's classification character*3 Sp ! *Spectral type real*4 Sep ! (arcmin) Distance between components (min. of arc) *Note on ID: * Running number of the pairs in this catalog; * named K72 in SIMBAD data-base, KPG in NED. *Note on m_ID: * Indicates to which component of the pair the data refer. This is * always either A or B. *Note on RV: * Radial velocity corrected for the Sun's motion *Note on r_RV: * Sources of radial velocities are: * =1= Karachentsev I.D., 1980ApJS...44..137K * Karachentsev I.D., 1981, Sov. Astron. Letters 7, 76; * Karachentsev I.D., 1983, Sov. Astron. Letters 9, 67 * =2= White S.D., Huchra J., Latham D., Davis M., 1983MNRAS.203..701W * =3= Tifft W.G., 1982ApJS...50..319T * =4= Karachentsev I.D., Sargent W.L.W., Zimmermann B., 1979Afz....15...25K * Karachentsev I.D., Pronik V.I., Chuvaev K.K., 1975A&A....41..375K * Karachentsev I.D., Pronik V.I., Chuvaev K.K., 1976A&A....51..185K * =5= Rood H.J., 1983, "A catalogue of Galaxy Redshifts"; * de Vaucouleurs G., de Vaucouleur A, RC2 catalogue <VII/112> * =6= Huchra J., Davis M., Latham D., Tonry J., 1983ApJS...52...89H * Gregory S.A., 1975ApJ...199....1G * Khachikjan E., 1973, Astrofiz. 9, 157 (1973Afz.....9..157K) *Note on MType: * Hubble types have been chosen as follows: * 'E ' : all ellipticals * 'S0' : just Hubble S0 type * 'Sx' , x=a,b,c: includes SBx * 'Sm' : includes Irr *Note on Sp: * The codes as described in Karachentsev et al. (1985) are * 'ABS' : absorption-line system * 'WEK' : weak emission * 'MID' : medium strength emission * 'STG' : strong emission C============================================================================= C Loading file 'data.dat' ! Catalog Data C Format for file interpretation 1 format( + 2X,I3,A1,2X,I2,1X,F4.1,2X,A1,I2,1X,I2,2X,F4.1,2X,I5,2X,I3,2X, + I1,1X,F4.1,2X,F4.2,2X,A2,2X,A3,1X,F5.2) C Effective file loading open(unit=1,status='old',file= +'data.dat') write(6,*) '....Loading file: data.dat' do i__=1,1206 read(1,'(A70)')ar__ read(ar__,1) + ID,m_ID,RAh,RAm,DE_,DEd,DEm,mag,RV,e_RV,r_RV,MajDiam,aRatio, + MType,Sp,Sep if(ar__(26:29) .EQ. '') mag = rNULL__ if(ar__(32:36) .EQ. '') RV = iNULL__ if(ar__(39:41) .EQ. '') e_RV = iNULL__ if(ar__(44:44) .EQ. '') r_RV = iNULL__ RAdeg = rNULL__ DEdeg = rNULL__ c Derive coordinates RAdeg and DEdeg from input data c (RAdeg and DEdeg are set to rNULL__ when unknown) if(RAh .GT. -180) RAdeg=RAh*15. if(RAm .GT. -180) RAdeg=RAdeg+RAm/4. if(DEd .GE. 0) DEdeg=DEd if(DEm .GE. 0) DEdeg=DEdeg+DEm/60. if(DE_.EQ.'-'.AND.DEdeg.GE.0) DEdeg=-DEdeg c ..............Just test output........... write(6,1) + ID,m_ID,RAh,RAm,DE_,DEd,DEm,mag,RV,e_RV,r_RV,MajDiam,aRatio, + MType,Sp,Sep write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg c .......End.of.Just test output........... end do close(1) C============================================================================= stop end