prtha - prints hourly averages

---

SYNOPSIS

DESCRIPTION

prtha reads control info from unit 1, $ft01, as described in FILES below. Data is read from unit 15, $ft15, and is in the standards hourly average format.

OPTIONS

All options are controlled by the input file $ft01

FILES

IST, ISP, IS, IP, IFOR
FORMAT(2(I5,I4,I3,3X),3I5)
  IST IS INTEGER START TIME YEAR, DAY, HOUR
  ISP IS INTEGER STOP  TIME

  IS  CONTROLS FORMAT OF PRINTING
          IF < 0 GAPS ARE CHECKED.
             GAP IS UNKNOWN TIME LOSS > ABS(IS) HR
          IF = 0 PRINT DETAILED FORMAT
          IF > 0 BLANK LINE IS PRINTED WHEN DATA LOSS EXCEEDS
             IS HR.

  IP CONTROLS PRINTING OF GAP TIMES. (ON IF IP => 0)

  IFOR CONTROLS DETAILS OF PRINT. ONLY EFFECTIVE IF IS = 0
          IFOR = 0 NORMAL DETAILED FORMAT
          IFOR = -1 CARD IMAGE FORMAT with total time at end
          IFOR = 1 CARD IMAGE FORMAT
          IFOR = 2 jwb format
          IFOR = 3 key parameters

$ft15
hourly average input data

ALSO SEE

BUGS