Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/169/6 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 2026-Aug-12
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/169/6 JWST/MIRI photometry from flux calibration (Gordon+, 2025)
*================================================================================
*The James Webb Space Telescope absolute flux calibration. II. Mid-infrared
*instrument imaging and coronagraphy.
* Gordon K.D., Sloan G.C., Garcia Marin M., Libralato M., Rieke G.,
* Aguilar J.A., Bohlin R., Cracraft M., Decleir M., Gaspar A., Kendrew S.,
* Law D.R., Noriega-Crespo A., Regan M.
* <Astron. J., 169, 6 (2025)>
* =2025AJ....169....6G
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table5.dat' ! James Webb Space Telescope Mid-Infrared Instrument
photometry
integer*4 nr__
parameter (nr__=368) ! Number of records
character*183 ar__ ! Full-size record
character*23 Name ! Source identifier
integer*4 PID ! [1027/6607] Program identifier (1)
character*12 Type ! Source type (2)
character*6 Filter ! Filter identifier (3)
character*9 SubArray ! Subarray identifier (4)
real*8 MDJ ! (d) [59724/60532] Modified Julian Date of the
* observation
real*8 PixRate ! (s-1) [48.3/95011] Central-pixel rate (in DN/s)
real*8 Depth ! [1097/150762] Central-pixel well depth
* (in DN)
real*8 Time ! (s) [0.42/239] Integration time
real*8 iFlux ! (s-1) [252.2/2136812] Instrumental flux (in DN/s)
real*8 e_iFlux ! (s-1) [0.97/5071] Uncertainty in iFlux (in DN/s)
real*8 ibkg ! (s-1) [2.52/1122] Instrumental average background
* per pixel (in DN/s)
real*8 Flux ! (mJy) [0.032/602.4] Instrumental flux in physical
* units
real*8 e_Flux ! (mJy) [1e-4/0.84] Uncertainty in Flux
real*8 bkg ! (MJy/sr) [1.13/962.5] Instrumental average background
* per pixel in physical units
*Note (1): The main James Webb Space Telescope (JWST) Mid-Infrared Instrument
* (MIRI) observations used for this work include those taken specifically for
* the absolute flux calibration in Cycles 1 and 2 (PIDs 1523, 1524, 1536, 1537,
* 1538, 1539, 4488, 4496, 4497, 4498, 4499, and 4578), some with a small amount
* of data taken in Cycle 3 (PID 6607), and those taken during Commissioning
* that provide the preliminary absolute flux calibration (PIDs 1027 and 1045).
*Note (2): Observation occurrences of source types as follows:
* ADwarfs = A-type dwarfs; 255 occurrences
* HotStars = 40 occurrences
* SolarAnalogs = 73 occurrences
*Note (3): JWST Mid-Infrared Instrument (MIRI) filters as follows:
* F560W = 5.567 um (36 occurrences)
* F770W = 7.475 um (51 occurrences)
* F1000W = 9.849 um (42 occurrences)
* F1130W = 11.29 um (38 occurrences)
* F1280W = 12.66 um (46 occurrences)
* F1500W = 14.87 um (46 occurrences)
* F1800W = 17.83 um (40 occurrences)
* F2100W = 20.47 um (35 occurrences)
* F2550W = 25.07 um (34 occurrences)
*Note (4): JWST Mid-Infrared Instrument (MIRI) subarrays as follows:
* FULL = 1024 x 1032 pixel^2^ (63 occurrences)
* BRIGHTSKY = 512 x 512 pixel^2^ (40 occurrences)
* SUB256 = 256 x 256 pixel^2^ (149 occurrences)
* SUB128 = 128 x 136 pixel^2^ (11 occurrences)
* SUB64 = 64 x 72 pixel^2^ (105 occurrences)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'stars.dat' ! List of observed stars and their types (Table added
by CDS)
integer*4 nr__1
parameter (nr__1=29) ! Number of records
character*36 ar__1 ! Full-size record
character*23 Name_1 ! Source identifier
character*12 Type_1 ! Source type (1)
*Note (1): Source types occurrences as follows:
* ADwarfs = A-type dwarfs; 11 occurrences
* HotStars = Hot Stars; 8 occurrences
* SolarAnalogs = Solar Analogs; 10 occurrences
C=============================================================================
C Loading file 'table5.dat' ! James Webb Space Telescope Mid-Infrared Instrument
* photometry
C Format for file interpretation
1 format(
+ A23,1X,I4,1X,A12,1X,A6,1X,A9,1X,F9.3,1X,F12.6,1X,F11.4,1X,
+ F9.5,1X,F13.5,1X,F12.7,1X,F12.7,1X,F13.9,1X,F13.11,1X,F11.7)
C Effective file loading
open(unit=1,status='old',file=
+'table5.dat')
write(6,*) '....Loading file: table5.dat'
do i__=1,368
read(1,'(A183)')ar__
read(ar__,1)
+ Name,PID,Type,Filter,SubArray,MDJ,PixRate,Depth,Time,iFlux,
+ e_iFlux,ibkg,Flux,e_Flux,bkg
c ..............Just test output...........
write(6,1)
+ Name,PID,Type,Filter,SubArray,MDJ,PixRate,Depth,Time,iFlux,
+ e_iFlux,ibkg,Flux,e_Flux,bkg
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'stars.dat' ! List of observed stars and their types (Table added
* by CDS)
C Format for file interpretation
2 format(A23,1X,A12)
C Effective file loading
open(unit=1,status='old',file=
+'stars.dat')
write(6,*) '....Loading file: stars.dat'
do i__=1,29
read(1,'(A36)')ar__1
read(ar__1,2)Name_1,Type_1
c ..............Just test output...........
write(6,2)Name_1,Type_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end