Conversion of standardized ReadMe file for
file /./ftp/cats/J/PASJ/55/1079 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-Mar-28 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/PASJ/55/1079 BVRi'z'JHKs photometry of ERO objects (Miyazaki+, 2003) *================================================================================ *Evolution of elliptical galaxies at z>=1 revealed from a large, *multicolor sample of extremely red objects. * Miyazaki M., Shimasaku K., Kodama T., Okamura S., Furusawa H., Ouchi M., * Nakata F., Doi M., Hamabe M., Kimura M., Komiyama Y., Miyazaki S., * Nagashima C., Nagata T., Nagayama T., Nakajima Y., Nakaya H., Pickles A.J., * Sato S., Sekiguchi K., Sekiguchi M., Sugitani K., Takata T., Tamura M., * Yagi M., Yasuda N. * <Publ. Astron. Soc. Jap., 55, 1079-1103 (2003)> * =2003PASJ...55.1079M C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table4.dat' ! ERO catalog integer*4 nr__ parameter (nr__=247) ! Number of records character*85 ar__ ! Full-size record character*3 Type ! [OGs DSs] Old galaxies (OGs) or * young, dusty starbursts (DSs) integer*4 v_MSK2003_ ! Sequential number integer*4 Xpos ! (pix) Relative position along right ascension (1) integer*4 Ypos ! (pix) Relative position along declination (1) real*4 Bmag ! (mag) ?=99.99 B magnitude * (MAG_AUTO magnitude in AB system) (2) real*4 Vmag ! (mag) ?=99.99 V magnitude, 0.00 for data not available * (MAG_AUTO magnitude in AB system) (2) real*4 Rmag ! (mag) ?=99.99 R magnitude * (MAG_AUTO magnitude in AB system) (2) real*4 i_mag ! (mag) ?=99.99 i' magnitude * (MAG_AUTO magnitude in AB system) (2) real*4 z_mag ! (mag) ?=99.99 z' magnitude * (MAG_AUTO magnitude in AB system) (2) real*4 Jmag ! (mag) ?=99.99 J magnitude * (MAG_AUTO magnitude in AB system) (2) real*4 Hmag ! (mag) ?=99.99 H magnitude * (MAG_AUTO magnitude in AB system) (2) real*4 Ksmag ! (mag) ?=99.99 Ks magnitude * (MAG_AUTO magnitude in AB system) (2) real*4 FWHM ! (arcsec) FWHM of the Ks image real*4 zph ! Photometric redshift estimated by the spectrum * fitting method. real*4 E_B_V ! (mag) Reddening estimated by the spectrum fitting * method. real*4 fold ! Fraction of the passive component in the total * B luminosity estimated by the spectrum fitting * method (3) *Note (1): Xpos increases with decreasing RA, Ypos increases with DE. * 1 pix = 0.202", (0,0)=(02:18:41.0 -05:09:04) (J2000.0) *Note (2): J=0 is given when J data are not available. * MAG_AUTO is replaced with 99.99 if it is fainter than the 1{sigma} * limiting magnitude (B=28.8, V=27.6, R=28.0, i'=27.4, z'=26.7, * J=24.5, H=24.2, Ks=23.8) *Note (3): As here we assume that the star-forming component evolves like the * disk of our Galaxy, fold may correspond to the bulge-to-total * luminosity ratio for spiral galaxies. C============================================================================= C Loading file 'table4.dat' ! ERO catalog C Format for file interpretation 1 format( + A3,1X,I3,1X,I4,1X,I4,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2, + 1X,F5.2,1X,F5.2,1X,F5.2,1X,F3.1,1X,F4.2,1X,F4.2,1X,F5.3) C Effective file loading open(unit=1,status='old',file= +'table4.dat') write(6,*) '....Loading file: table4.dat' do i__=1,247 read(1,'(A85)')ar__ read(ar__,1) + Type,v_MSK2003_,Xpos,Ypos,Bmag,Vmag,Rmag,i_mag,z_mag,Jmag, + Hmag,Ksmag,FWHM,zph,E_B_V,fold c ..............Just test output........... write(6,1) + Type,v_MSK2003_,Xpos,Ypos,Bmag,Vmag,Rmag,i_mag,z_mag,Jmag, + Hmag,Ksmag,FWHM,zph,E_B_V,fold c .......End.of.Just test output........... end do close(1) C============================================================================= stop end