home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / hp1000 / kersta.ftni < prev   
Text File  |  2020-01-01  |  704b  |  16 lines
  1. !     Goes with rev 1.99 or later; edited 16:00 PM  Sat., 29  Aug., 1986
  2.  
  3. !     This common provides storage for KERMIT's transmission statistics
  4.  
  5.       integer*2 tspak,trpak,trtry         ! Total send/receive/retry packets
  6.  
  7.                                           ! Last transfer statistics
  8.       integer*4 startim,endtim            ! Start- & end-time
  9.       integer*2 spak,rpak,rtry            ! # send/receive/retry packets
  10.       integer*4 sbytes,rbytes             ! # bytes (data) sent/received
  11.       integer*4 sovrhd,rovrhd             ! # bytes overhead sent/received
  12.  
  13.       common /kstats/ tspak,trpak,trtry,startim,endtim,spak,rpak,
  14.      >               rtry,sbytes,rbytes,sovrhd,rovrhd
  15.  
  16.