Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJS/112/245 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-20
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/ApJS/112/245 Redshift survey for IRAS galaxies (Nakanishi+ 1997)
*================================================================================
*Search and redshift survey for IRAS galaxies behind the Milky Way and
*structure of the Local Void
* Nakanishi K., Takata T., Yamada T., Takeuchi T.T., Shiroya R.,
* Miyazawa M., Watanabe S., Saito M.
* <Astrophys. J. Suppl. Ser. 112, 245 (1997)>
* =1997ApJS..112..245N (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table5.dat' ! The catalog of IRAS galaxies with F60>=0.6Jy
integer*4 nr__
parameter (nr__=950) ! Number of records
character*106 ar__ ! Full-size record
C Position composed of: GLON GLAT
character*10 IRAS ! IRAS (Cat. <II/125>) point source name
character*1 m_IRAS ! Multiplicity index in IRAS
real*8 GLON ! (deg) Galactic longitude
real*8 GLAT ! (deg) Galactic latitude
real*4 F60um ! (Jy) Flux density at 60{mu}m
real*4 F100um ! (Jy) Flux density at 100{mu}m
character*2 Gal_ ! [G? ] G: galaxy; G?: possible galaxy
character*3 MType ! Morphological type (1)
real*4 Dmaj ! (mm) ? Major axis diameter (1mm = 67")
real*4 Dmin ! (mm) ? Minor axis diameter (1mm = 67")
character*1 Note ! [IJ] Emulsion (2)
character*9 Com ! Comment on multiplicity (3)
integer*4 cz ! (km/s) ? Heliocentric radial velocity
character*2 r_cz ! Reference for cz (4)
character*25 Ident ! Cross-identification
*Note (1): E: elliptical galaxy
* S: spiral galaxy
* I: Irregular galaxy
* E/S: galaxy we could not classified
*Note (2): I: UK Schmidt I film copy
* J: ESO/SRC J film copy
* blank: POSS E paper prints
*Note (3): For multiplicity:
* pair: two galaxies are located within a separation as wide as the
* galaxy sizes
* tri: triplet
* group: group of galaxies
* int: two galaxies appear to be interacting
* For image appearance:
* PN?: possible planetary nebula
* LSB: low surface brightness
* HSB: high surface brightness
* ND: nuclear dominated
* pec: peculiar.
*Note (4): A: Measurement at OAO by us
* 1: RC3, de Vaucouleurs et al. (1991, Cat. <VII/155>)
* 2: General Catalog of H I Observations of Galaxies (Huchtmeier &
* Richter, 1989, New York: Springer)
* 3: "1.936 Jy sample" by Strauss et al. (1992, Cat. <II/174>)
* 4: Lu et al. (1990ApJ...357..388L)
* 5: Seeberger, Huchtmeier, & Weinberger (1994, Cat. <J/A+A/286/17>)
* 6: Bottinelli et al. (1994, ASP Conf. Ser. 67, 225)
* 7: "1.2 Jy sample" by Fisher et al. (1995, Cat. <VII/185>)
* 8: Kraan-Korteweg et al. (1994Natur.372...77K)
* 9: Weinberger, Saurer & Seeberger (1995, Cat. <J/A+AS/110/269>)
* 10: Marzke, Huchra, & Geller (1996, Cat. <J/AJ/112/1803>)
* 11: The IRAS PSC Redshift Survey (PSCz)" and the extension to low
* latitude BTP survey by Saunders et al. (1997, Priv. Comm.)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table6.dat' ! Radial velocities of IRAS galaxies with
F60>=0.6Jy at 150<l<225 and |b|<=15
integer*4 nr__1
parameter (nr__1=27) ! Number of records
character*56 ar__1 ! Full-size record
C Position composed of: GLON GLAT
character*10 IRAS_1 ! IRAS point source name
real*8 GLON_1 ! (deg) Galactic longitude
real*8 GLAT_1 ! (deg) Galactic latitude
real*4 F60um_1 ! (Jy) Flux density at 60{mu}m
real*4 F100um_1 ! (Jy) Flux density at 100{mu}m
integer*4 cz_1 ! (km/s) Heliocentric radial velocity (this paper)
character*12 Ident_1 ! Cross-identification
C=============================================================================
C Loading file 'table5.dat' ! The catalog of IRAS galaxies with F60>=0.6Jy
C Format for file interpretation
1 format(
+ A10,A1,1X,F7.3,1X,F7.3,1X,F5.2,1X,F6.2,2X,A2,1X,A3,1X,F4.1,1X,
+ F4.1,1X,A1,1X,A9,1X,I5,1X,A2,1X,A25)
C Effective file loading
open(unit=1,status='old',file=
+'table5.dat')
write(6,*) '....Loading file: table5.dat'
do i__=1,950
read(1,'(A106)')ar__
read(ar__,1)
+ IRAS,m_IRAS,GLON,GLAT,F60um,F100um,Gal_,MType,Dmaj,Dmin,Note,
+ Com,cz,r_cz,Ident
if(ar__(50:53) .EQ. '') Dmaj = rNULL__
if(ar__(55:58) .EQ. '') Dmin = rNULL__
if(ar__(72:76) .EQ. '') cz = iNULL__
c ..............Just test output...........
write(6,1)
+ IRAS,m_IRAS,GLON,GLAT,F60um,F100um,Gal_,MType,Dmaj,Dmin,Note,
+ Com,cz,r_cz,Ident
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table6.dat' ! Radial velocities of IRAS galaxies with
* F60>=0.6Jy at 150<l<225 and |b|<=15
C Format for file interpretation
2 format(A10,1X,F7.3,1X,F7.3,1X,F4.2,1X,F5.2,1X,I5,1X,A12)
C Effective file loading
open(unit=1,status='old',file=
+'table6.dat')
write(6,*) '....Loading file: table6.dat'
do i__=1,27
read(1,'(A56)')ar__1
read(ar__1,2)
+ IRAS_1,GLON_1,GLAT_1,F60um_1,F100um_1,cz_1,Ident_1
c ..............Just test output...........
write(6,2)
+ IRAS_1,GLON_1,GLAT_1,F60um_1,F100um_1,cz_1,Ident_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end