Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/105/35 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-18
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/105/35 Montreal Blue Galaxy Survey (Coziol+ 1993)
*================================================================================
*The Montreal Blue Galaxy Survey. I. First list of ultraviolet-bright candidates
* COZIOL R., DEMERS S., PENA M., TORRES-PEIMBERT S., FONTAINE G.,
* WESEMAEL F., LAMONTAGNE R.
* <Astron. J. 105, 35 (1993)>
* =1993AJ....105...35C
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1' ! First list of UV-bright galaxies
integer*4 nr__
parameter (nr__=97) ! Number of records
character*71 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)
character*10 MBG ! Montreal Blue Galaxy (MBG) name
integer*4 RAh ! (h) Right ascension 1950
integer*4 RAm ! (min) Right ascension 1950
real*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
real*4 Bmag ! (mag) Calibrated APM B magnitude
real*4 U_B ! (mag) []? Calibrated APM U-B color
character*3 IRAS ! Listed in IRAS catalogues? ("yes" or "no ")
real*4 MB ! (mag) []? Absolute B magnitude, obtained from B and
* radial velocity
character*16 NED ! Cross identification from NASA Extragalactic
* Database (NED)
character*3 Note ! [n,s] n = note (see note),
* s = spectroscopy available
*Notes on individual objects:
* MBG00129-2143 has V = 12.7, B-V = 0.65, U-B = -0.12 (Laubert 1984).
* MBG00163-1039 is a known interacting galaxy called ARP 256.
* MBG00276-1013 is a Markarian galaxy considered by Denisyuk & Lipovetsky
* (1984) to have a spectrum somewhat similar to an HII region.
* MBG00439-1342 is a shell galaxy.
* MBG00461-1259 is a known blue compact Markarian galaxy.
* MBG01234-4143 was found by Fairall (1988) to be a non-Seyfert emission-line
* galaxy with an offset nucleus.
* MBG01329-4141 is NGC 625, its HII-like nucleus is not highly excited. Its
* optical spectrum was obtained by Phillips et al. (1983).
* MBG01334-3455 is a HII region-like galaxy (Kirhakos & Steiner 1990).
* MBG01357-4047 has, according to the same authors, a spectrum between
* a Sy2 and a HII galaxy.
* MBG01497-3639 was found by Allen et al. (1991) to be a starburst galaxy.
* MBG01593-3830 in ESO 298-G001, a blue galaxy. Bergvall & Olofsson (1986)
* give V = 15.72, B-V = 0.45, and U-B = -0.30.
* MBG02280-0426 has been found in the Kiso survey by Takase & Miyauchi-Isobe
* (1988), where it is called KUG 0228-044.
* MBG02490-2709 is a member of the interacting galaxies AM 0248-270.
* MBG03174-1935 is NGC 1300, a bright HII galaxy.
* MBG03183-1853 is catalogued by Lipovetsky et al. (1988) as a Seyfert galaxy.
* MBG03260-1735 is an active dwarf galaxy (Thronson & Telesco 1986).
* MBG03273-1756 is an Haro object, a blue compact interacting galaxy.
* MBG03317-2026 is NGC 1362, a blue galaxy without emission lines.
* MBG03352-2439 is a known nearby starburst radiogalaxy (Devereux 1989).
* MBG03462-2502 has V = 15.12, B-V = 0.31, U-B = -0.20
* (Bergvall & Olofsson 1986).
* MBG04046-2118 is NGC 1518, which seems to be a normal irregular galaxy.
* MBG22342-2228 is an emission-line galaxy observed by Moody & Kirshner (1988)
*
*References to the notes
* Allen, D. A., Norris, R. P., Meadows, V. S., & Roche, P. F. 1991,
* MNRAS, 248, 528
* Bergvall, N., & Olofsson, K. 1986, A&AS, 64, 469
* Denisyuk, E. K., & Lipovetsky, V. A. 1984, Astrophysika 20, 290
* Devereux, N. A. 1989, ApJ, 346, 126
* Fairall, A. P. 1988, MNRAS, 233, 691
* Kirhakos, S. D., & Steiner, J. E. 1990, AJ, 99, 1722
* Laubert, A. 1984, A&AS, 58, 249
* Lipovetsky, V. A., Neizvestky, S. I., & Neizvestnaya, O. N. 1988, Bull.
* Byurakan Obs., 55, 5
* Moody, J. W., & Kirshner, R. P. 1988, AJ, 95, 1629
* Phillips, M. M., Charles, P. A., & Baldwin, J. A. 1983, ApJ, 266, 485
* Takase, B., & Miyauchi-Isobe, N. 1988, Tokyo Obs. Ann., 22, 41
* Thronson, H. A., & Telesco, C. M. 1986, ApJ, 311, 98
C=============================================================================
C Loading file 'table1' ! First list of UV-bright galaxies
C Format for file interpretation
1 format(
+ A10,1X,I2,1X,I2,1X,F4.1,1X,A1,I2,1X,I2,1X,I2,1X,F4.1,1X,F4.1,
+ 1X,A3,1X,F5.1,1X,A16,A3)
C Effective file loading
open(unit=1,status='old',file=
+'table1')
write(6,*) '....Loading file: table1'
do i__=1,97
read(1,'(A71)')ar__
read(ar__,1)
+ MBG,RAh,RAm,RAs,DE_,DEd,DEm,DEs,Bmag,U_B,IRAS,MB,NED,Note
if(ar__(38:41) .EQ. '') U_B = rNULL__
if(ar__(47:51) .EQ. '') MB = 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)
+ MBG,RAh,RAm,RAs,DE_,DEd,DEm,DEs,Bmag,U_B,IRAS,MB,NED,Note
write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end