Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/677/A141 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-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/677/A141 Satellite trails on H.E.S.S. astronomical obs. (Lang+, 2023)
*================================================================================
*Impact of satellite trails on H.E.S.S. astronomical observations.
* Lang T., Spencer S.T., Mitchell A.M.W.
* <Astron. Astrophys. 677, A141 (2023)>
* =2023A&A...677A.141L (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'tablea2.dat' ! Individual satellite trail detections
integer*4 nr__
parameter (nr__=1658) ! Number of records
character*155 ar__ ! Full-size record
integer*4 Run ! H.E.S.S. run number (Run_ID)
real*4 Track ! Track identifier within run (Track_ID)
real*4 MeanTrailBr ! (MHz) Mean of NSB map entries attached to
* the trail (Mean_Trail_Brightness)
real*4 TrailDur ! (s) Trail duration (Trail_Duration)
real*8 MaxTrailBr ! (MHz) Maximum of NSB map entries attached to
* the trail (Maximum_Trail_Brightness)
real*8 TrailStTime ! (s) First trail detection timestamp
* (Trail_Start_Time)
integer*4 NPixAffec ! Number of unique pixels attached to the
* trail object
* (Number_Of_Pixels_Affected))
real*4 VelSate ! (deg/s) Measured velocity for the trail
* (Velocity_Of_Satellite)
real*8 MeanRunZA ! (deg) Mean run zenith angle
* (Mean_Run_Zenith_Angle)
real*4 RunDur ! (s) Run duration (Run_Duration)
character*19 RunxStTime ! ("datime") Runs star time (UTC) (Run_Start_Time)
real*8 MeanAtTrCoeff ! Mean atmospheric transparency coefficient
* as defined in (Hahn et al.,
* 2014APh....54...25H)
* (Mean_Atmospheric_Transparency_Coefficient)
real*8 MeanRunRA ! (deg) Mean run right ascension (Mean_Run_RA)
real*8 MeanRunDE ! (deg) Mean run declination (Mean_Run_Dec)
real*8 MeanRunNSB ! (MHz) Mean NSB value measured for the CT5
* camera during the run (Mean_Run_NSB)
real*8 RelMeanCT5Eff ! Mean CT5 muon efficiency during run
* (Gaug et al., 2019ApJS..243...11G),
* relative to the maximum value in the
* dataset (Relative_Mean_CT5_Efficiency)
C=============================================================================
C Loading file 'tablea2.dat' ! Individual satellite trail detections
C Format for file interpretation
1 format(
+ I6,1X,F3.1,1X,F6.1,1X,F5.1,1X,F7.1,1X,F12.1,1X,I3,1X,F5.3,1X,
+ F7.4,1X,F6.1,1X,A19,1X,F16.14,1X,F10.6,1X,F10.6,1X,F7.3,1X,
+ F18.16)
C Effective file loading
open(unit=1,status='old',file=
+'tablea2.dat')
write(6,*) '....Loading file: tablea2.dat'
do i__=1,1658
read(1,'(A155)')ar__
read(ar__,1)
+ Run,Track,MeanTrailBr,TrailDur,MaxTrailBr,TrailStTime,
+ NPixAffec,VelSate,MeanRunZA,RunDur,RunxStTime,MeanAtTrCoeff,
+ MeanRunRA,MeanRunDE,MeanRunNSB,RelMeanCT5Eff
c ..............Just test output...........
write(6,1)
+ Run,Track,MeanTrailBr,TrailDur,MaxTrailBr,TrailStTime,
+ NPixAffec,VelSate,MeanRunZA,RunDur,RunxStTime,MeanAtTrCoeff,
+ MeanRunRA,MeanRunDE,MeanRunNSB,RelMeanCT5Eff
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end