Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJS/112/245 into FORTRAN code for loading all data files into arrays.
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 (nr__) ! IRAS (Cat. <II/125>) point source name character*1 m_IRAS (nr__) ! Multiplicity index in IRAS real*8 GLON (nr__) ! (deg) Galactic longitude real*8 GLAT (nr__) ! (deg) Galactic latitude real*4 F60um (nr__) ! (Jy) Flux density at 60{mu}m real*4 F100um (nr__) ! (Jy) Flux density at 100{mu}m character*2 Gal_ (nr__) ! [G? ] G: galaxy; G?: possible galaxy character*3 MType (nr__) ! Morphological type (1) real*4 Dmaj (nr__) ! (mm) ? Major axis diameter (1mm = 67") real*4 Dmin (nr__) ! (mm) ? Minor axis diameter (1mm = 67") character*1 Note (nr__) ! [IJ] Emulsion (2) character*9 Com (nr__) ! Comment on multiplicity (3) integer*4 cz (nr__) ! (km/s) ? Heliocentric radial velocity character*2 r_cz (nr__) ! Reference for cz (4) character*25 Ident (nr__) ! 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 (nr__1) ! IRAS point source name real*8 GLON_1 (nr__1) ! (deg) Galactic longitude real*8 GLAT_1 (nr__1) ! (deg) Galactic latitude real*4 F60um_1 (nr__1) ! (Jy) Flux density at 60{mu}m real*4 F100um_1 (nr__1) ! (Jy) Flux density at 100{mu}m integer*4 cz_1 (nr__1) ! (km/s) Heliocentric radial velocity (this paper) character*12 Ident_1 (nr__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(i__),m_IRAS(i__),GLON(i__),GLAT(i__),F60um(i__), + F100um(i__),Gal_(i__),MType(i__),Dmaj(i__),Dmin(i__), + Note(i__),Com(i__),cz(i__),r_cz(i__),Ident(i__) if(ar__(50:53) .EQ. '') Dmaj(i__) = rNULL__ if(ar__(55:58) .EQ. '') Dmin(i__) = rNULL__ if(ar__(72:76) .EQ. '') cz(i__) = iNULL__ c ..............Just test output........... write(6,1) + IRAS(i__),m_IRAS(i__),GLON(i__),GLAT(i__),F60um(i__), + F100um(i__),Gal_(i__),MType(i__),Dmaj(i__),Dmin(i__), + Note(i__),Com(i__),cz(i__),r_cz(i__),Ident(i__) 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(i__),GLON_1(i__),GLAT_1(i__),F60um_1(i__), + F100um_1(i__),cz_1(i__),Ident_1(i__) c ..............Just test output........... write(6,2) + IRAS_1(i__),GLON_1(i__),GLAT_1(i__),F60um_1(i__), + F100um_1(i__),cz_1(i__),Ident_1(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end