Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/403/141 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-19
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/A+A/403/141 ISOGAL sources in intermediate bulge fields (Ojha+, 2003)
*================================================================================
*Stellar sources in the ISOGAL intermediate bulge fields.
* Ojha D.K., Omont A., Schuller F., Simon G., Ganesh S., Schultheis M.
* <Astron. Astrophys. 403, 141 (2003)>
* =2003A&A...403..141O
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Log of ISOCAM, DENIS and 2MASS observations in
the intermediate bulge fields.
integer*4 nr__
parameter (nr__=9) ! Number of records
character*147 ar__ ! Full-size record
character*14 Field ! ISOGAL Field (G1)
character*17 OField ! Other designation of the field
integer*4 ObsISOGAL1 ! First ISOGAL Observation number
character*3 Filter1 ! ISOGAL filter for first observation
character*10 ISOGALDate1 ! ("DD/MM/YYYY") Date of first ISOGAL Observation
integer*4 Dens1 ! (deg-2) Source densities at 7 and 15{mu}m
* (per deg^2^) of first ISOGAL Observation
real*4 MagLimit1 ! (mag) 7 and 15{mu}m mag limits of first
* ISOGAL Observation
integer*4 ObsISOGAL2 ! Second ISOGAL Observation number
character*3 Filter2 ! ISOGAL filter of second
* ISOGAL Observation
character*10 ISOGALDate2 ! ("DD/MM/YYYY") Date of second ISOGAL Observation
integer*4 Dens2 ! (deg-2) Source densities at 7 and 15{mu}m
* (per deg^2^) of second ISOGAL observation
real*4 MagLimit2 ! (mag) 7 and 15{mu}m mag limits of second
* ISOGAL Observation
character*10 DENISDate ! ("DD/MM/YYYY") Date of DENIS IJKs observations
character*10 DENISDate2 ! ("DD/MM/YYYY") Second date of DENIS IJKs observations
character*10 v2MASSDate ! ("DD/MM/YYYY") Date of 2MASS JHKs Obs.
real*4 AV ! (mag) Interstellar extinction
real*4 KsLimit ! (mag) DENIS Ks limit
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2a.dat' ! Catalogue of ISOGAL-DENIS sources from nine
intermediate bulge fields with their
2MASS (<B/2mass>) & MSX (<V/107>) counterparts.
integer*4 nr__1
parameter (nr__1=2353) ! Number of records
character*212 ar__1 ! Full-size record
C J2000 position composed of: RAdeg DEdeg
integer*4 Seq ! Source number
character*1 n_Seq ! [*] *: source in table2b.dat
character*14 Field_1 ! ISOGAL Field Name (G1)
character*16 ISOGAL ! ISOGAL designation
* (from sexagesimal coordinates (J2000))
real*8 RAdeg ! (deg) Right ascension in decimal degrees (J2000)
real*8 DEdeg ! (deg) Declination in decimal degrees (J2000)
real*8 GLON ! (deg) [-2/2] Galactic longitude
real*8 GLAT ! (deg) Galactic latitude
real*4 Dist ! (arcsec) ISOGAL-DENIS association distance
integer*4 q_Dist ! ISOGAL-DENIS association quality
real*4 Imag ! (mag) ?=99.99 DENIS I magnitude (1)
real*4 qImag ! (mag) ?=0.00 DENIS I magnitude PSF quality index
real*4 Jmag ! (mag) ?=99.99 DENIS J magnitude (1)
real*4 qJmag ! (mag) ?=0.00 DENIS J magnitude PSF quality index
real*4 Ksmag ! (mag) ?=99.99 DENIS Ks magnitude (1)
real*4 qKsmag ! (mag) ?=0.00 DENIS Ks magnitude PSF quality index
real*8 Jmag2 ! (mag) ?=99.99 2MASS J magnitude (1) (2)
integer*4 q_Jmag2 ! ?=0 2MASS J magnitude quality index
real*8 Hmag2 ! (mag) ?=99.99 2MASS H magnitude (1) (2)
integer*4 q_Hmag2 ! ?=0 2MASS H magnitude quality index
real*8 Ksmag2 ! (mag) ?=99.99 2MASS Ks magnitude (1) (2)
integer*4 q_Ksmag2 ! ?=0 2MASS Ks magnitude quality index
real*4 v_7_mag ! (mag) ?=99.99 ISOGAL magnitude at 7{mu}m (1)
integer*4 q__7_mag ! ?=0 ISOGAL [7] magnitude quality index
real*4 v_15_mag ! (mag) ?=99.99 ISOGAL magnitude at 15{mu}m (1)
integer*4 q__15_mag ! ?=0 ISOGAL [15] magnitude quality index
real*4 d_7___15_ ! (arcsec) ?=0.00 ISOGAL [7]-[15] association distance
integer*4 q_d_7___15_ ! ?=0 ISOGAL [7]-[15] association
* quality index
real*4 Amag ! (mag) ?=99.99 MSX A band magnitude (1)
integer*4 q_Amag ! ?=0 MSX A band magnitude quality index
real*4 Cmag ! (mag) ?=99.99 MSX C band magnitude (1)
integer*4 q_Cmag ! ?=0 MSX C band magnitude quality index
real*4 Dmag ! (mag) ?=99.99 MSX D band magnitude (1)
integer*4 q_Dmag ! ?=0 MSX D band magnitude quality index
real*4 Emag ! (mag) ?=99.99 MSX E band magnitude (1)
integer*4 q_Emag ! ?=0 MSX E band magnitude quality index
*Note (1): Magnitudes assigned to values of 99.99 means that the source is
* not detected in the corresponding magnitude bands.
*Note (2): For 2MASS magnitudes, -100.0 mean that the magnitudes are saturated
* in the corresponding bands.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2b.dat' ! Sub-sample of ISOGAL-DENIS sources from
table2a.dat with Av, mass-loss rate &
luminosity values.
integer*4 nr__2
parameter (nr__2=321) ! Number of records
character*106 ar__2 ! Full-size record
C J2000 position composed of: RAdeg DEdeg
integer*4 Seq_1 ! Source number
character*14 Field_2 ! ISOGAL Field Name (G1)
character*16 ISOGAL_1 ! ISOGAL designation (from sexagesimal
* coordinates J2000)
real*8 RAdeg_1 ! (deg) Right ascension in decimal degrees (J2000)
real*8 DEdeg_1 ! (deg) Declination in decimal degrees (J2000)
real*8 GLON_1 ! (deg) [-2/2] Galactic longitude
real*8 GLAT_1 ! (deg) Galactic latitude
real*4 AV_1 ! (mag) Interstellar extinction
real*4 dM_dt ! (solMass/yr) Mass-loss rate
real*4 logLum ! ([solLum]) Luminosity
C=============================================================================
C Loading file 'table1.dat' ! Log of ISOCAM, DENIS and 2MASS observations in
* the intermediate bulge fields.
C Format for file interpretation
1 format(
+ A14,1X,A17,1X,I8,1X,A3,1X,A10,1X,I5,1X,F4.2,1X,I8,1X,A3,1X,
+ A10,1X,I5,1X,F4.2,1X,A10,3X,A10,1X,A10,1X,F4.1,1X,F4.1)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,9
read(1,'(A147)')ar__
read(ar__,1)
+ Field,OField,ObsISOGAL1,Filter1,ISOGALDate1,Dens1,MagLimit1,
+ ObsISOGAL2,Filter2,ISOGALDate2,Dens2,MagLimit2,DENISDate,
+ DENISDate2,v2MASSDate,AV,KsLimit
c ..............Just test output...........
write(6,1)
+ Field,OField,ObsISOGAL1,Filter1,ISOGALDate1,Dens1,MagLimit1,
+ ObsISOGAL2,Filter2,ISOGALDate2,Dens2,MagLimit2,DENISDate,
+ DENISDate2,v2MASSDate,AV,KsLimit
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2a.dat' ! Catalogue of ISOGAL-DENIS sources from nine
* intermediate bulge fields with their
* 2MASS (<B/2mass>) & MSX (<V/107>) counterparts.
C Format for file interpretation
2 format(
+ I4,A1,A14,9X,A16,1X,F9.5,1X,F9.5,1X,F9.5,1X,F9.5,1X,F5.2,1X,
+ I1,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F7.2,1X,
+ I1,1X,F7.2,1X,I1,1X,F7.2,1X,I1,1X,F5.2,1X,I1,1X,F5.2,1X,I1,1X,
+ F5.2,1X,I1,1X,F5.2,1X,I1,1X,F5.2,1X,I1,1X,F5.2,1X,I1,1X,F5.2,
+ 1X,I1)
C Effective file loading
open(unit=1,status='old',file=
+'table2a.dat')
write(6,*) '....Loading file: table2a.dat'
do i__=1,2353
read(1,'(A212)')ar__1
read(ar__1,2)
+ Seq,n_Seq,Field_1,ISOGAL,RAdeg,DEdeg,GLON,GLAT,Dist,q_Dist,
+ Imag,qImag,Jmag,qJmag,Ksmag,qKsmag,Jmag2,q_Jmag2,Hmag2,
+ q_Hmag2,Ksmag2,q_Ksmag2,v_7_mag,q__7_mag,v_15_mag,q__15_mag,
+ d_7___15_,q_d_7___15_,Amag,q_Amag,Cmag,q_Cmag,Dmag,q_Dmag,
+ Emag,q_Emag
c ..............Just test output...........
write(6,2)
+ Seq,n_Seq,Field_1,ISOGAL,RAdeg,DEdeg,GLON,GLAT,Dist,q_Dist,
+ Imag,qImag,Jmag,qJmag,Ksmag,qKsmag,Jmag2,q_Jmag2,Hmag2,
+ q_Hmag2,Ksmag2,q_Ksmag2,v_7_mag,q__7_mag,v_15_mag,q__15_mag,
+ d_7___15_,q_d_7___15_,Amag,q_Amag,Cmag,q_Cmag,Dmag,q_Dmag,
+ Emag,q_Emag
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2b.dat' ! Sub-sample of ISOGAL-DENIS sources from
* table2a.dat with Av, mass-loss rate &
* luminosity values.
C Format for file interpretation
3 format(
+ I4,1X,A14,9X,A16,1X,F9.5,1X,F9.5,1X,F9.5,1X,F9.5,1X,F5.2,1X,
+ E8.2,1X,F5.2)
C Effective file loading
open(unit=1,status='old',file=
+'table2b.dat')
write(6,*) '....Loading file: table2b.dat'
do i__=1,321
read(1,'(A106)')ar__2
read(ar__2,3)
+ Seq_1,Field_2,ISOGAL_1,RAdeg_1,DEdeg_1,GLON_1,GLAT_1,AV_1,
+ dM_dt,logLum
c ..............Just test output...........
write(6,3)
+ Seq_1,Field_2,ISOGAL_1,RAdeg_1,DEdeg_1,GLON_1,GLAT_1,AV_1,
+ dM_dt,logLum
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end