Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/139/434 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/AJ/139/434 A1763 infrared and optical photometry (Edwards+, 2010)
*================================================================================
*Spitzer observations of Abell 1763. I. Infrared and optical photometry.
* Edwards L.O.V., Fadda D., Biviano A., Marleau F.R.
* <Astron. J., 139, 434-446 (2010)>
* =2010AJ....139..434E
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Observations
integer*4 nr__
parameter (nr__=17) ! Number of records
character*70 ar__ ! Full-size record
character*7 Inst ! Instrument (1)
real*8 lambda ! (um) Central wavelength
character*9 ID ! Identifiaction number
character*10 Date ! ("YYYY/MM/DD") Observation date
real*4 Time ! (min) Time
integer*4 Cov ! (arcsec+2) Coverage
real*4 Depth ! Depth
character*10 n_Depth ! Units and system for Depth
real*4 FWHM ! (arcsec) FWHM
*Note (1): IRAS and MIPS are the Spitzer instruments; WIRC is the Wide field
* IR Camera and LFC the Large Format Camera, on the 200''(5m) Palomar
* telescope.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! MIPS 24um source catalog
integer*4 nr__1
parameter (nr__1=10876) ! Number of records
character*726 ar__1 ! Full-size record
C J2000 position composed of: RAdeg DEdeg
integer*4 Seq ! Catalog number, [EFB2010b] MIPS24 NNNNN
real*8 RAdeg ! (deg) Right Ascension in decimal degrees (J2000)
real*8 DEdeg ! (deg) Declination in decimal degrees (J2000)
real*8 S24 ! (uJy) MIPS 24um band flux density
real*8 e_S24 ! (uJy) Uncertainty in S24
real*8 umag ! (mag) ?=-999 SDSS u' band AB magnitude
real*8 e_umag ! (mag) ?=-999 Uncertainty in umag
real*8 gmag ! (mag) ?=-999 SDSS g' band AB magnitude
real*8 e_gmag ! (mag) ?=-999 Uncertainty in gmag
real*8 rmag ! (mag) ?=-999 SDSS r' band AB magnitude
real*8 e_rmag ! (mag) ?=-999 Uncertainty in rmag
real*8 imag ! (mag) ?=-999 SDSS i' band AB magnitude
real*8 e_imag ! (mag) ?=-999 Uncertainty in imag
real*8 zmag ! (mag) ?=-999 SDSS z' band AB magnitude
real*8 e_zmag ! (mag) ?=-999 Uncertainty in zmag
real*8 Jmag ! (mag) ?=-999 2MASS J band magnitude
real*8 Hmag ! (mag) ?=-999 2MASS H band magnitude
real*8 Kmag ! (mag) ?=-999 2MASS Ks band magnitude
real*8 ramag ! (mag) ?=-999 LFC r' band 3.5" aperture AB magnitude
real*8 e_ramag ! (mag) ?=-999 Uncertainty in ramag
real*8 rpmag ! (mag) ?=-999 LFC r' band Petrosian AB magnitude
real*8 e_rpmag ! (mag) ?=-999 Uncertainty in rpmag
real*8 Jamag ! (mag) ?=-999 WIRC J band 3.5" aperture Vega magnitude
real*8 e_Jamag ! (mag) ?=-999 Uncertainty in Jamag
real*8 Jpmag ! (mag) ?=-999 WIRC J band Petrosian Vega magnitude
real*8 e_Jpmag ! (mag) ?=-999 Uncertainty in Jpmag
real*8 Hamag ! (mag) ?=-999 WIRC H band 3.5" aperture Vega magnitude
real*8 e_Hamag ! (mag) [-0.04/]?=-999 Uncertainty in Hamag
real*8 Hpmag ! (mag) ?=-999 WIRC H band Petrosian Vega magnitude
real*8 e_Hpmag ! (mag) [-0.04/]?=-999 Uncertainty in Hpmag
real*8 Kamag ! (mag) ?=-999 WIRC Ks band 3.5" aperture Vega magnitude
real*8 e_Kamag ! (mag) ?=-999 Uncertainty in Kamag
real*8 Kpmag ! (mag) ?=-999 WIRC Ks band Petrosian Vega magnitude
real*8 e_Kpmag ! (mag) ?=-999 Uncertainty in Kpmag
real*8 S3_6a4 ! (uJy) ?=-999 IRAC 3.6um band 4" aperture flux density
real*8 e_S3_6a4 ! (uJy) ?=-999 Uncertainty in S3.6a4
real*8 S3_6a6 ! (uJy) ?=-999 IRAC 3.6um band 6" aperture flux density
real*8 e_S3_6a6 ! (uJy) ?=-999 Uncertainty in SS3.6a6
real*8 S3_6a12 ! (uJy) ?=-999 IRAC 3.6um band 12" aperture flux density
real*8 e_S3_6a12 ! (uJy) ?=-999 Uncertainty in S3.6a12
real*8 S3_6p ! (uJy) ?=-999 IRAC 3.6um band Petrosian flux density
real*8 e_S3_6p ! (uJy) ?=-999 Uncertainty in S3.6p
real*8 S4_5a4 ! (uJy) ?=-999 IRAC 4.5um band 4" aperture flux density
real*8 e_S4_5a4 ! (uJy) ?=-999 Uncertainty in S4.5a4
real*8 S4_5a6 ! (uJy) ?=-999 IRAC 4.5um band 6" aperture flux density
real*8 e_S4_5a6 ! (uJy) ?=-999 Uncertainty in S4.5a6
real*8 S4_5a12 ! (uJy) ?=-999 IRAC 4.5um band 12" aperture flux density
real*8 e_S4_5a12 ! (uJy) ?=-999 Uncertainty in S4.5a12
real*8 S4_5p ! (uJy) ?=-999 IRAC 4.5um band Petrosian flux density
real*8 e_S4_5p ! (uJy) ?=-999 Uncertainty in S4.5p
real*8 S5_8a4 ! (uJy) ?=-999 IRAC 5.8um band 4" aperture flux density
real*8 e_S5_8a4 ! (uJy) ?=-999 Uncertainty in S5.8a4
real*8 S5_8a6 ! (uJy) ?=-999 IRAC 5.8um band 6" aperture flux density
real*8 e_S5_8a6 ! (uJy) ?=-999 Uncertainty in S5.8a6
real*8 S5_8a12 ! (uJy) ?=-999 IRAC 5.8um band 12" aperture flux density
real*8 e_S5_8a12 ! (uJy) ?=-999 Uncertainty in S5.8a12
real*8 S5_8p ! (uJy) ?=-999 IRAC 5.8um band Petrosian flux density
real*8 e_S5_8p ! (uJy) ?=-999 Uncertainty in S5.8p
real*8 S8_0a4 ! (uJy) ?=-999 IRAC 8.0um band 4" aperture flux density
real*8 e_S8_0a4 ! (uJy) ?=-999 Uncertainty in S8.0a4
real*8 S8_0a6 ! (uJy) ?=-999 IRAC 8.0um band 6" aperture flux density
real*8 e_S8_0a6 ! (uJy) ?=-999 Uncertainty in S8.0a6
real*8 S8_0a12 ! (uJy) ?=-999 IRAC 8.0um band 12" aperture flux density
real*8 e_S8_0a12 ! (uJy) ?=-999 Uncertainty in S8.0a12
real*8 S8_0p ! (uJy) ?=-999 IRAC 8.0um band Petrosian flux density
real*8 e_S8_0p ! (uJy) ?=-999 Uncertainty in S8.0p
real*8 S70 ! (uJy) ?=-999 MIPS 70um band PSF flux density
real*8 e_S70 ! (uJy) ?=-999 Uncertainty in S70
real*8 S160 ! (uJy) ?=-999 MIPS 160um band PSF flux density
real*8 e_S160 ! (uJy) ?=-999 Uncertainty in S160
integer*4 CP24 ! [0/1] The 24um band is in a close pair (1)
integer*4 St24 ! [0/1] The 24um band is a star (1)
real*4 SI3_6 ! ?=9 Stellarity index of 3.6um source
real*4 SI4_5 ! ?=9 Stellarity index of 4.5um source
real*4 SI5_8 ! ?=9 Stellarity index of 5.8um source
real*4 SI8_0 ! ?=9 Stellarity index of 8.0um source
real*4 SIJ ! ?=9 Stellarity index of WIRC J band source
real*4 SIH ! ?=9 Stellarity index of WIRC H band source
real*4 SIK ! ?=9 Stellarity index of WIRC Ks band source
real*4 SIr ! ?=9 Stellarity index of LFC r' band source
integer*4 CP3_6 ! [0-9] 3.6um source close pair flag (1)
integer*4 CP4_5 ! [0-9] 4.5um source close pair flag (1)
integer*4 CP5_8 ! [0-9] 5.8um source close pair flag (1)
integer*4 CP8_0 ! [0-9] 8.0um source close pair flag (1)
integer*4 CPJ ! [0-9] WIRC J band source close pair flag (1)
integer*4 CPH ! [0-9] WIRC H band source close pair flag (1)
integer*4 CPK ! [0-9] WIRC Ks band source close pair flag (1)
integer*4 SG3_6 ! [0-9] 3.6um source star/galaxy flag (1)
integer*4 SG4_5 ! [0-9] 4.5um source star/galaxy flag (1)
integer*4 SG5_8 ! [0-9] 5.8um source star/galaxy flag (1)
integer*4 SG8_0 ! [0-9] 8.0um source star/galaxy flag (1)
integer*4 SGJ ! [0-9] WIRC J band source star/galaxy flag (1)
integer*4 SGH ! [0-9] WIRC H band source star/galaxy flag (1)
integer*4 SGK ! [0-9] WIRC Ks band source star/galaxy flag (1)
*Note (1): Values mean: 0=false; 1=true; 9=no value
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! MIPS 70um source catalog
integer*4 nr__2
parameter (nr__2=733) ! Number of records
character*128 ar__2 ! Full-size record
C J2000 position composed of: RAdeg DEdeg
integer*4 Seq_1 ! Catalog number, [EFB2010b] MIPS70 NNNN
real*8 RAdeg_1 ! (deg) Right Ascension in decimal degrees (J2000)
real*8 DEdeg_1 ! (deg) Declination in decimal degrees (J2000)
real*4 S70_1 ! (mJy) MIPS 70 micron band flux density
real*4 e_S70_1 ! (mJy) Uncertainty in S70
real*8 umag_1 ! (mag) ?=-999 SDSS u' band AB magnitude
real*8 e_umag_1 ! (mag) ?=-999 Uncertainty in umag
real*8 gmag_1 ! (mag) ?=-999 SDSS g' band AB magnitude
real*8 e_gmag_1 ! (mag) ?=-999 Uncertainty in gmag
real*8 rmag_1 ! (mag) ?=-999 SDSS r' band AB magnitude
real*8 e_rmag_1 ! (mag) ?=-999 Uncertainty in rmag
real*8 imag_1 ! (mag) ?=-999 SDSS i' band AB magnitude
real*8 e_imag_1 ! (mag) ?=-999 Uncertainty in imag
real*8 zmag_1 ! (mag) ?=-999 SDSS z' band AB magnitude
real*8 e_zmag_1 ! (mag) ?=-999 Uncertainty in zmag
C=============================================================================
C Loading file 'table1.dat' ! Observations
C Format for file interpretation
1 format(
+ A7,1X,F8.4,1X,A9,1X,A10,1X,F5.1,1X,I4,1X,F4.1,1X,A10,1X,F5.2)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,17
read(1,'(A70)')ar__
read(ar__,1)Inst,lambda,ID,Date,Time,Cov,Depth,n_Depth,FWHM
c ..............Just test output...........
write(6,1)Inst,lambda,ID,Date,Time,Cov,Depth,n_Depth,FWHM
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! MIPS 24um source catalog
C Format for file interpretation
2 format(
+ I5,1X,F10.6,1X,F9.6,1X,F9.3,1X,F8.3,1X,F8.3,1X,F9.3,1X,F8.3,
+ 1X,F8.3,1X,F8.3,1X,F8.3,1X,F8.3,1X,F8.3,1X,F8.3,1X,F8.3,1X,
+ F8.3,1X,F8.3,1X,F8.3,1X,F8.3,1X,F8.3,1X,F8.3,1X,F8.3,1X,F8.3,
+ 1X,F8.3,1X,F8.3,1X,F8.3,1X,F8.3,1X,F8.3,1X,F8.3,1X,F8.3,1X,
+ F8.3,1X,F8.3,1X,F8.3,1X,F8.3,1X,F8.2,1X,F7.2,1X,F9.2,1X,F8.2,
+ 1X,F10.2,1X,F8.2,1X,F10.2,1X,F9.2,1X,F8.2,1X,F7.2,1X,F8.2,1X,
+ F7.2,1X,F9.2,1X,F7.2,1X,F9.2,1X,F7.2,1X,F9.2,1X,F8.2,1X,F9.2,
+ 1X,F9.2,1X,F9.2,1X,F9.2,1X,F9.2,1X,F10.2,1X,F9.2,1X,F7.2,1X,
+ F9.2,1X,F7.2,1X,F9.2,1X,F7.2,1X,F9.2,1X,F8.2,1X,F9.2,1X,F7.2,
+ 1X,F10.2,1X,F8.2,1X,I1,1X,I1,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,
+ 1X,F5.3,1X,F6.3,1X,F5.3,1X,F5.3,1X,I1,1X,I1,1X,I1,1X,I1,1X,I1,
+ 1X,I1,1X,I1,1X,I1,1X,I1,1X,I1,1X,I1,1X,I1,1X,I1,1X,I1)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,10876
read(1,'(A726)')ar__1
read(ar__1,2)
+ Seq,RAdeg,DEdeg,S24,e_S24,umag,e_umag,gmag,e_gmag,rmag,e_rmag,
+ imag,e_imag,zmag,e_zmag,Jmag,Hmag,Kmag,ramag,e_ramag,rpmag,
+ e_rpmag,Jamag,e_Jamag,Jpmag,e_Jpmag,Hamag,e_Hamag,Hpmag,
+ e_Hpmag,Kamag,e_Kamag,Kpmag,e_Kpmag,S3_6a4,e_S3_6a4,S3_6a6,
+ e_S3_6a6,S3_6a12,e_S3_6a12,S3_6p,e_S3_6p,S4_5a4,e_S4_5a4,
+ S4_5a6,e_S4_5a6,S4_5a12,e_S4_5a12,S4_5p,e_S4_5p,S5_8a4,
+ e_S5_8a4,S5_8a6,e_S5_8a6,S5_8a12,e_S5_8a12,S5_8p,e_S5_8p,
+ S8_0a4,e_S8_0a4,S8_0a6,e_S8_0a6,S8_0a12,e_S8_0a12,S8_0p,
+ e_S8_0p,S70,e_S70,S160,e_S160,CP24,St24,SI3_6,SI4_5,SI5_8,
+ SI8_0,SIJ,SIH,SIK,SIr,CP3_6,CP4_5,CP5_8,CP8_0,CPJ,CPH,CPK,
+ SG3_6,SG4_5,SG5_8,SG8_0,SGJ,SGH,SGK
c ..............Just test output...........
write(6,2)
+ Seq,RAdeg,DEdeg,S24,e_S24,umag,e_umag,gmag,e_gmag,rmag,e_rmag,
+ imag,e_imag,zmag,e_zmag,Jmag,Hmag,Kmag,ramag,e_ramag,rpmag,
+ e_rpmag,Jamag,e_Jamag,Jpmag,e_Jpmag,Hamag,e_Hamag,Hpmag,
+ e_Hpmag,Kamag,e_Kamag,Kpmag,e_Kpmag,S3_6a4,e_S3_6a4,S3_6a6,
+ e_S3_6a6,S3_6a12,e_S3_6a12,S3_6p,e_S3_6p,S4_5a4,e_S4_5a4,
+ S4_5a6,e_S4_5a6,S4_5a12,e_S4_5a12,S4_5p,e_S4_5p,S5_8a4,
+ e_S5_8a4,S5_8a6,e_S5_8a6,S5_8a12,e_S5_8a12,S5_8p,e_S5_8p,
+ S8_0a4,e_S8_0a4,S8_0a6,e_S8_0a6,S8_0a12,e_S8_0a12,S8_0p,
+ e_S8_0p,S70,e_S70,S160,e_S160,CP24,St24,SI3_6,SI4_5,SI5_8,
+ SI8_0,SIJ,SIH,SIK,SIr,CP3_6,CP4_5,CP5_8,CP8_0,CPJ,CPH,CPK,
+ SG3_6,SG4_5,SG5_8,SG8_0,SGJ,SGH,SGK
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! MIPS 70um source catalog
C Format for file interpretation
3 format(
+ I4,1X,F10.6,1X,F9.6,1X,F6.3,1X,F5.3,1X,F8.3,1X,F8.3,1X,F8.3,
+ 1X,F8.3,1X,F8.3,1X,F8.3,1X,F8.3,1X,F8.3,1X,F8.3,1X,F8.3)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,733
read(1,'(A128)')ar__2
read(ar__2,3)
+ Seq_1,RAdeg_1,DEdeg_1,S70_1,e_S70_1,umag_1,e_umag_1,gmag_1,
+ e_gmag_1,rmag_1,e_rmag_1,imag_1,e_imag_1,zmag_1,e_zmag_1
c ..............Just test output...........
write(6,3)
+ Seq_1,RAdeg_1,DEdeg_1,S70_1,e_S70_1,umag_1,e_umag_1,gmag_1,
+ e_gmag_1,rmag_1,e_rmag_1,imag_1,e_imag_1,zmag_1,e_zmag_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end