      SUBROUTINE SHOWHR(THOUR,K)
      WRITE(6,100)THOUR
100   FORMAT(1H ,'FORECAST REACHED ',F6.2,' HOURS')
      RETURN
      END
