Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/403/141 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 2026-Jun-08
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 (nr__) ! ISOGAL Field (G1)
character*17 OField (nr__) ! Other designation of the field
integer*4 ObsISOGAL1 (nr__) ! First ISOGAL Observation number
character*3 Filter1 (nr__) ! ISOGAL filter for first observation
character*10 ISOGALDate1(nr__) ! ("DD/MM/YYYY") Date of first ISOGAL Observation
integer*4 Dens1 (nr__) ! (deg-2) Source densities at 7 and 15{mu}m
* (per deg^2^) of first ISOGAL Observation
real*4 MagLimit1 (nr__) ! (mag) 7 and 15{mu}m mag limits of first
* ISOGAL Observation
integer*4 ObsISOGAL2 (nr__) ! Second ISOGAL Observation number
character*3 Filter2 (nr__) ! ISOGAL filter of second
* ISOGAL Observation
character*10 ISOGALDate2(nr__) ! ("DD/MM/YYYY") Date of second ISOGAL Observation
integer*4 Dens2 (nr__) ! (deg-2) Source densities at 7 and 15{mu}m
* (per deg^2^) of second ISOGAL observation
real*4 MagLimit2 (nr__) ! (mag) 7 and 15{mu}m mag limits of second
* ISOGAL Observation
character*10 DENISDate (nr__) ! ("DD/MM/YYYY") Date of DENIS IJKs observations
character*10 DENISDate2 (nr__) ! ("DD/MM/YYYY") Second date of DENIS IJKs observations
character*10 v2MASSDate (nr__) ! ("DD/MM/YYYY") Date of 2MASS JHKs Obs.
real*4 AV (nr__) ! (mag) Interstellar extinction
real*4 KsLimit (nr__) ! (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 (nr__1) ! Source number
character*1 n_Seq (nr__1) ! [*] *: source in table2b.dat
character*14 Field_1 (nr__1) ! ISOGAL Field Name (G1)
character*16 ISOGAL (nr__1) ! ISOGAL designation
* (from sexagesimal coordinates (J2000))
real*8 RAdeg (nr__1) ! (deg) Right ascension in decimal degrees (J2000)
real*8 DEdeg (nr__1) ! (deg) Declination in decimal degrees (J2000)
real*8 GLON (nr__1) ! (deg) [-2/2] Galactic longitude
real*8 GLAT (nr__1) ! (deg) Galactic latitude
real*4 Dist (nr__1) ! (arcsec) ISOGAL-DENIS association distance
integer*4 q_Dist (nr__1) ! ISOGAL-DENIS association quality
real*4 Imag (nr__1) ! (mag) ?=99.99 DENIS I magnitude (1)
real*4 qImag (nr__1) ! (mag) ?=0.00 DENIS I magnitude PSF quality index
real*4 Jmag (nr__1) ! (mag) ?=99.99 DENIS J magnitude (1)
real*4 qJmag (nr__1) ! (mag) ?=0.00 DENIS J magnitude PSF quality index
real*4 Ksmag (nr__1) ! (mag) ?=99.99 DENIS Ks magnitude (1)
real*4 qKsmag (nr__1) ! (mag) ?=0.00 DENIS Ks magnitude PSF quality index
real*8 Jmag2 (nr__1) ! (mag) ?=99.99 2MASS J magnitude (1) (2)
integer*4 q_Jmag2 (nr__1) ! ?=0 2MASS J magnitude quality index
real*8 Hmag2 (nr__1) ! (mag) ?=99.99 2MASS H magnitude (1) (2)
integer*4 q_Hmag2 (nr__1) ! ?=0 2MASS H magnitude quality index
real*8 Ksmag2 (nr__1) ! (mag) ?=99.99 2MASS Ks magnitude (1) (2)
integer*4 q_Ksmag2 (nr__1) ! ?=0 2MASS Ks magnitude quality index
real*4 v_7_mag (nr__1) ! (mag) ?=99.99 ISOGAL magnitude at 7{mu}m (1)
integer*4 q__7_mag (nr__1) ! ?=0 ISOGAL [7] magnitude quality index
real*4 v_15_mag (nr__1) ! (mag) ?=99.99 ISOGAL magnitude at 15{mu}m (1)
integer*4 q__15_mag (nr__1) ! ?=0 ISOGAL [15] magnitude quality index
real*4 d_7___15_ (nr__1) ! (arcsec) ?=0.00 ISOGAL [7]-[15] association distance
integer*4 q_d_7___15_(nr__1) ! ?=0 ISOGAL [7]-[15] association
* quality index
real*4 Amag (nr__1) ! (mag) ?=99.99 MSX A band magnitude (1)
integer*4 q_Amag (nr__1) ! ?=0 MSX A band magnitude quality index
real*4 Cmag (nr__1) ! (mag) ?=99.99 MSX C band magnitude (1)
integer*4 q_Cmag (nr__1) ! ?=0 MSX C band magnitude quality index
real*4 Dmag (nr__1) ! (mag) ?=99.99 MSX D band magnitude (1)
integer*4 q_Dmag (nr__1) ! ?=0 MSX D band magnitude quality index
real*4 Emag (nr__1) ! (mag) ?=99.99 MSX E band magnitude (1)
integer*4 q_Emag (nr__1) ! ?=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 (nr__2) ! Source number
character*14 Field_2 (nr__2) ! ISOGAL Field Name (G1)
character*16 ISOGAL_1 (nr__2) ! ISOGAL designation (from sexagesimal
* coordinates J2000)
real*8 RAdeg_1 (nr__2) ! (deg) Right ascension in decimal degrees (J2000)
real*8 DEdeg_1 (nr__2) ! (deg) Declination in decimal degrees (J2000)
real*8 GLON_1 (nr__2) ! (deg) [-2/2] Galactic longitude
real*8 GLAT_1 (nr__2) ! (deg) Galactic latitude
real*4 AV_1 (nr__2) ! (mag) Interstellar extinction
real*4 dM_dt (nr__2) ! (solMass/yr) Mass-loss rate
real*4 logLum (nr__2) ! ([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(i__),OField(i__),ObsISOGAL1(i__),Filter1(i__),
+ ISOGALDate1(i__),Dens1(i__),MagLimit1(i__),ObsISOGAL2(i__),
+ Filter2(i__),ISOGALDate2(i__),Dens2(i__),MagLimit2(i__),
+ DENISDate(i__),DENISDate2(i__),v2MASSDate(i__),AV(i__),
+ KsLimit(i__)
c ..............Just test output...........
write(6,1)
+ Field(i__),OField(i__),ObsISOGAL1(i__),Filter1(i__),
+ ISOGALDate1(i__),Dens1(i__),MagLimit1(i__),ObsISOGAL2(i__),
+ Filter2(i__),ISOGALDate2(i__),Dens2(i__),MagLimit2(i__),
+ DENISDate(i__),DENISDate2(i__),v2MASSDate(i__),AV(i__),
+ KsLimit(i__)
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(i__),n_Seq(i__),Field_1(i__),ISOGAL(i__),RAdeg(i__),
+ DEdeg(i__),GLON(i__),GLAT(i__),Dist(i__),q_Dist(i__),
+ Imag(i__),qImag(i__),Jmag(i__),qJmag(i__),Ksmag(i__),
+ qKsmag(i__),Jmag2(i__),q_Jmag2(i__),Hmag2(i__),q_Hmag2(i__),
+ Ksmag2(i__),q_Ksmag2(i__),v_7_mag(i__),q__7_mag(i__),
+ v_15_mag(i__),q__15_mag(i__),d_7___15_(i__),q_d_7___15_(i__),
+ Amag(i__),q_Amag(i__),Cmag(i__),q_Cmag(i__),Dmag(i__),
+ q_Dmag(i__),Emag(i__),q_Emag(i__)
c ..............Just test output...........
write(6,2)
+ Seq(i__),n_Seq(i__),Field_1(i__),ISOGAL(i__),RAdeg(i__),
+ DEdeg(i__),GLON(i__),GLAT(i__),Dist(i__),q_Dist(i__),
+ Imag(i__),qImag(i__),Jmag(i__),qJmag(i__),Ksmag(i__),
+ qKsmag(i__),Jmag2(i__),q_Jmag2(i__),Hmag2(i__),q_Hmag2(i__),
+ Ksmag2(i__),q_Ksmag2(i__),v_7_mag(i__),q__7_mag(i__),
+ v_15_mag(i__),q__15_mag(i__),d_7___15_(i__),q_d_7___15_(i__),
+ Amag(i__),q_Amag(i__),Cmag(i__),q_Cmag(i__),Dmag(i__),
+ q_Dmag(i__),Emag(i__),q_Emag(i__)
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(i__),Field_2(i__),ISOGAL_1(i__),RAdeg_1(i__),
+ DEdeg_1(i__),GLON_1(i__),GLAT_1(i__),AV_1(i__),dM_dt(i__),
+ logLum(i__)
c ..............Just test output...........
write(6,3)
+ Seq_1(i__),Field_2(i__),ISOGAL_1(i__),RAdeg_1(i__),
+ DEdeg_1(i__),GLON_1(i__),GLAT_1(i__),AV_1(i__),dM_dt(i__),
+ logLum(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end