Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/109/2376 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. J/AJ/109/2376 Case blue/emission-line galaxies (Salzer+ 1995)
*================================================================================
*Imaging and spectroscopic observations of the Case Survey
*blue/emission-line galaxies.
* Salzer J.J., Moody J.W., Rosenberg J.L., Gregory S.A., Newberry M.V.
* <Astron. J. 109, 2376 (1995)>
* =1995AJ....109.2376S (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! The Case galaxies-sample properties.
integer*4 nr__
parameter (nr__=176) ! Number of records
character*81 ar__ ! Full-size record
C 1950 position composed of: RAh RAm RAs DE- DEd DEm DEs
real*8 RAdeg ! (deg) Right Ascension 1950
real*8 DEdeg ! (deg) Declination 1950
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 CG ! Case Survey number
integer*4 RAh ! (h) Right ascension (1950)
integer*4 RAm ! (min) Right ascension (1950)
integer*4 RAs ! (s) Right ascension (1950)
character*1 DE_ ! Declination sign
integer*4 DEd ! (deg) Declination (1950)
integer*4 DEm ! (arcmin) Declination (1950)
integer*4 DEs ! (arcsec) Declination (1950)
character*1 l_Vmag ! Limit flag on Vmag
integer*4 Vmag ! (mag) Apparent magnitude estimate
character*7 SpCode ! [bmswyv ?] Spectral code (1)
real*4 Bmag ! (mag) B magnitude
character*1 n_Bmag ! [#] Note on Bmag (2)
integer*4 r_Bmag ! Reference for B magnitude (3)
integer*4 DiamA ! (arcsec) ? Angular diameter
integer*4 RV ! (km/s) ? Radial velocity corrected to the velocity
* centroid of the local group
real*4 BMAG_1 ! (mag) ? Absolute B magnitude
real*4 DiamL ! (kpc) ? Linear diameter
character*12 Names ! Other names (4)
character*1 Note ! [*] Individual note (5)
*Note (1): The first code is an estimate of the color of the continuum.
* When the code is absent, there is a blank in column 28
* mb: moderate blue
* b: (blue), means that the UV continuum is enhanced
* y: (yellow), means that the spectrum looks like a more typical
* F- or G-type galaxy
* The second and first parameters are the strength of the
* [OII] and [OIII] lines, respectively. If the [OII] line is
* not present, there is a blank after the continuum color:
* vs: very strong
* s: strong
* m: medium strength
* w: weak
* A ? after the value means that the detection was questionable
*Note (2): #: Denotes apparent magnitudes obtained under slightly
* non-photometric conditions.
*Note (3): 1: MDM CCD photometry
* 2: CPO CCD photometry
* 3: CGCG magnitudes modified as specified by
* Kron & Shane (1976Ap&SS..39..401K)
* 4: Case survey list magnitudes modified using the mean offset
* between Bmag and mvis (Bmag=mvis+0.25)
*Note (4): U = UGC (Nilson 1973, Cat. <VII/26>)
* N = NGC (See Cat. <VII/1>)
* I = IC (Dreyer 1888, 1895, 1908, Cat. <VII/118>)
* Mk = Markarian (1981, Cat. <VII/172>)
* Wa = Wasilewski (1983ApJ...272...68W)
* Haro = Haro (1956BOTT....2n...8H)
* Arp = Arp (1966, Cat. <VII/74>)
*Note (5): CG 3 = N2679/80
* CG 21 = N2893
* CG 33 = N3011
* CG 61 = N3265
* CG 118 = N3786 = Arp 294
* CG 168 = N4253
C=============================================================================
C Loading file 'table2.dat' ! The Case galaxies-sample properties.
C Format for file interpretation
1 format(
+ I3,1X,I2,1X,I2,1X,I2,1X,A1,I2,1X,I2,1X,I2,1X,A1,I2,1X,A7,1X,
+ F5.2,A1,1X,I1,1X,I3,2X,I5,1X,F6.2,2X,F4.1,1X,A12,A1)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,176
read(1,'(A81)')ar__
read(ar__,1)
+ CG,RAh,RAm,RAs,DE_,DEd,DEm,DEs,l_Vmag,Vmag,SpCode,Bmag,n_Bmag,
+ r_Bmag,DiamA,RV,BMAG_1,DiamL,Names,Note
if(ar__(45:47) .EQ. '') DiamA = iNULL__
if(ar__(50:54) .EQ. '') RV = iNULL__
if(ar__(56:61) .EQ. '') BMAG_1 = rNULL__
if(ar__(64:67) .EQ. '') DiamL = rNULL__
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)
+ CG,RAh,RAm,RAs,DE_,DEd,DEm,DEs,l_Vmag,Vmag,SpCode,Bmag,n_Bmag,
+ r_Bmag,DiamA,RV,BMAG_1,DiamL,Names,Note
write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end