Conversion of standardized ReadMe file for
file /./ftp/cats/VI/111 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-18
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. VI/111 ISO Observation Log (ISO Data Centre, 2004)
*================================================================================
*ISO Observation Log
* ISO/ESA
* <ISO Data Centre (2004)>
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'isolog.dat' ! *The ISO Observation Log
integer*4 nr__
parameter (nr__=36737) ! Number of records
character*144 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
character*18 FOV ! Maximum field of view of the observation (1)
character*30 Target ! Target Name, as given by the observer
character*5 AOT ! Astronomical observing template (2)
integer*4 TDT ! Number that identifies an ISO Observation
real*8 RAdeg ! (deg) Actual pointing Right Ascension (J2000) (3)
real*8 DEdeg ! (deg) Actual pointing Declination (J2000) (3)
real*8 minLam ! (um) The shortest wavelength (4)
real*8 maxLam ! (um) The longest wavelength (4)
character*1 cal ! [*] indicates calibration observations (6)
character*8 ObsID ! Observer identification of the proposal
character*1 abs ! [+] '+' when the abstract is available (5)
character*8 PropID ! Proposal designation
integer*4 oStart_D ! (d) Start day of observation (UTC)
character*3 oStart_M ! ("month") Start month of observation (UTC)
integer*4 oStart_Y ! (yr) [1995/1998] Start year of observation (UTC)
integer*4 oStart_h ! (h) Start time of observation (UTC, hour)
integer*4 oStart_m_1 ! (m) Start time of observation (UTC, minute)
integer*4 oStart_s ! (s) Start time of observation (UTC, second)
integer*4 oLen ! (s) Duration of observation
*Note (1): The maximum field of view of the observations.
* For rectangular apertures, the sizes are given as parallel to the
* spacecraft Z and Y axis, respectively. For circular apertures, the
* diameter is given. For rasters, the field of view is calculated from
* the apertures and the raster parameters m X n respectively (number of
* points in a scanline X number of scanlines). If the resulting map
* presents gaps, the string "(sparse)" is attached.
*Note (2): Instrument observing mode.
* The first three letters reveal the instrument:
* CAM = ISOCAM, the infrared camera covering the 2.5-17{mu}m range,
* PHT = ISOPHOT, the photo-polarimeter operated between 2.5 and 240{mu}m,
* SWS = Short-Wave Spectrometer covering the 2.4-45{mu}m wavelength range,
* LWS = Long-Wave Spectrometer covering the 45-196.8{mu}m wavelength range.
*Note (3):
* The centre coordinates of the observation as recalibrated after the
* mission, given in the J2000 equatorial system.
*Note (4): Shortest and longest wavelengths the photons were collected, i.e.
* - for photometry the lowest/highest passband wavelengths
* - for spectra the shortest/longest observed wavelengths
*Note (5):
* When this flag is a plus (+), the abstract file is available in the
* abstract subdirectory, as a file named by the concatenation of the
* ObsID column, an underscore (_), and the PropID column.
*Note (6): The calibration observations performed with the flexible
* Calibration Uplink System correspond to AOTs of type "99".
* Only for CAM99 the pipeline produces scientifically validated products
* and postcards. This flag therefore is set for the other instruments only.
C=============================================================================
C Loading file 'isolog.dat' ! *The ISO Observation Log
C Format for file interpretation
1 format(
+ A18,1X,A30,1X,A5,1X,I8,1X,F8.4,F8.4,1X,F7.3,1X,F7.3,1X,A1,1X,
+ A8,A1,A8,1X,I2,1X,A3,1X,I4,1X,I2,1X,I2,1X,I2,1X,I5)
C Effective file loading
open(unit=1,status='old',file=
+'isolog.dat')
write(6,*) '....Loading file: isolog.dat'
do i__=1,36737
read(1,'(A144)')ar__
read(ar__,1)
+ FOV,Target,AOT,TDT,RAdeg,DEdeg,minLam,maxLam,cal,ObsID,abs,
+ PropID,oStart_D,oStart_M,oStart_Y,oStart_h,oStart_m_1,
+ oStart_s,oLen
c ..............Just test output...........
write(6,1)
+ FOV,Target,AOT,TDT,RAdeg,DEdeg,minLam,maxLam,cal,ObsID,abs,
+ PropID,oStart_D,oStart_M,oStart_Y,oStart_h,oStart_m_1,
+ oStart_s,oLen
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end