Conversion of standardized ReadMe file for
file /./ftp/cats/VII/219 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-16
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/219 Revised Flat Galaxy Catalogue (RFGC) (Karachentsev+, 1999)
*================================================================================
*The revised flat galaxy catalogue
* Karachentsev I.D., Karachentseva V.E., Kudrya Y.N., Sharina M.E.,
* Parnovsky S.L.
* <Bull. Special Astrophys. Obs., 47, 5 (1999)>
* =1999BSAO...47....5K
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'rfgc.dat' ! List of new Local Volume dwarf candidates
integer*4 nr__
parameter (nr__=4444) ! Number of records
character*164 ar__ ! Full-size record
C J2000.0 position composed of: RAh RAm RAs DE- DEd DEm DEs
real*8 RAdeg ! (deg) Right Ascension J2000.0
real*8 DEdeg ! (deg) Declination J2000.0
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 RFGC ! *[1,4236]?+ Galaxy number
integer*4 FGC_E ! ? FGC (Cat. <VII/162>) galaxy number
character*1 m_FGC_E ! [E] E when FGCE number
integer*4 PGC ! ? PGC (Cat. <VII/119>) galaxy number
integer*4 RAh ! (h) Right ascension (J2000.0)
integer*4 RAm ! (min) Right ascension (J2000.0)
real*4 RAs ! (s) Right ascension (J2000.0)
character*1 DE_ ! Declination sign (J2000.0)
integer*4 DEd ! (deg) Declination (J2000.0)
integer*4 DEm ! (arcmin) Declination (J2000.0)
integer*4 DEs ! (arcsec) Declination (J2000.0)
integer*4 RA1950h ! (h) Right ascension (J1950.0)
integer*4 RA1950m ! (min) Right ascension (J1950.0)
real*4 RA1950s ! (s) Right ascension (J1950.0)
character*1 DE1950_ ! Declination sign (J1950.0)
integer*4 DE1950d ! (deg) Declination (J1950.0)
integer*4 DE1950m ! (arcmin) Declination (J1950.0)
integer*4 DE1950s ! (arcsec) Declination (J1950.0)
real*4 GLON ! (deg) Galactic longitude
real*4 GLAT ! (deg) Galactic latitude
integer*4 PA ! (deg) Positional angle
real*4 aO ! (arcmin) *Major blue diameter
real*4 bO ! (arcmin) *Minor blue diameter
real*4 aE ! (arcmin) *Major red diameter
real*4 bE ! (arcmin) *Minor red diameter
real*4 Btot ! (mag) Calculated total apparent magnitude
real*4 AB ! (mag) Galactic extinction in the B - band
character*2 MType ! *Morphological type of the galaxy
integer*4 As ! *[0,2] Index of apparent asymmetry
* of galaxy shape
character*3 SB ! *[IV ] Index of the mean surface brightness
integer*4 N ! *Number of significant neighbours
character*32 Notes ! *Notes about the galaxy or environment
*Note on RFGC: the galaxies having reduced diameters a(O) less than 0.6arcmin
* are included in the catalogue without new RFGC number.
*Note on aO, bO: for FGCE galaxies the conversion from the ESO/SERC
* diameter system (J) to the POSS-I one (O) have been made according to
* the formulae: a(O) = 0.80788 a(J), b(O) = 0.7827 b(J);
*Note on aE, bE: for FGCE galaxies the conversion from the ESO/SERC
* diameter system (R) to the POSS-I one (E) have been made according to
* the formulae: a(E) = 0.8640 a(R), b(E) = 0.9730 b(R);
*Note on MType: morphological type of spiral according to the Hubble
* classification. Note that Sb = 3, Sc = 5 etc in number designation;
*Note on As: 0 means poorly defined, 2 = pronounced
*Note on SB: The index varies from I = high to IV = very low surface brightness
*Note on N: N is the number of significant neighbours with angular diameter in
* the range from aO/2 to 2*aO in a circle of R=10*aO
*Note on Notes: Notes describing the galaxy morphological peculiarities
* and/or the galaxy environment. The non-significant companion galaxy
* diameters and mutual distances are expressed in arcmin.
C=============================================================================
C Loading file 'rfgc.dat' ! List of new Local Volume dwarf candidates
C Format for file interpretation
1 format(
+ I4,2X,I4,A1,1X,I5,2X,I2,1X,I2,1X,F4.1,1X,A1,I2,1X,I2,1X,I2,2X,
+ I2,1X,I2,1X,F4.1,1X,A1,I2,1X,I2,1X,I2,2X,F6.2,2X,F6.2,1X,I3,
+ 6X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F4.1,1X,F4.2,2X,A2,1X,I1,
+ 1X,A3,1X,I2,1X,A32)
C Effective file loading
open(unit=1,status='old',file=
+'rfgc.dat')
write(6,*) '....Loading file: rfgc.dat'
do i__=1,4444
read(1,'(A164)')ar__
read(ar__,1)
+ RFGC,FGC_E,m_FGC_E,PGC,RAh,RAm,RAs,DE_,DEd,DEm,DEs,RA1950h,
+ RA1950m,RA1950s,DE1950_,DE1950d,DE1950m,DE1950s,GLON,GLAT,PA,
+ aO,bO,aE,bE,Btot,AB,MType,As,SB,N,Notes
if(ar__(1:4) .EQ. '') RFGC = iNULL__
if(ar__(7:10) .EQ. '') FGC_E = iNULL__
if(ar__(13:17) .EQ. '') PGC = 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(RAs .GT. -180) RAdeg=RAdeg+RAs/240.
if(DEd .GE. 0) DEdeg=DEd
if(DEm .GE. 0) DEdeg=DEdeg+DEm/60.
if(DEs .GE. 0) DEdeg=DEdeg+DEs/3600.
if(DE_.EQ.'-'.AND.DEdeg.GE.0) DEdeg=-DEdeg
c ..............Just test output...........
write(6,1)
+ RFGC,FGC_E,m_FGC_E,PGC,RAh,RAm,RAs,DE_,DEd,DEm,DEs,RA1950h,
+ RA1950m,RA1950s,DE1950_,DE1950d,DE1950m,DE1950s,GLON,GLAT,PA,
+ aO,bO,aE,bE,Btot,AB,MType,As,SB,N,Notes
write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end