home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / gould3 / k.timec < prev    next >
Text File  |  2020-01-01  |  1KB  |  14 lines
  1. C                                                                       0001.000
  2. C K.TIMECOM - Timing of kermit                                          0002.000
  3. C                                                                       0003.000
  4.       INTEGER      PUTIME         !time for putc                        0004.000
  5.       INTEGER      GETIME         !time for getc                        0005.000
  6.       INTEGER      PUTCOUNT        !count put                           0006.000
  7.       INTEGER      GETCOUNT        !count get                           0007.000
  8.       INTEGER      WAITIME         !wait time                           0008.000
  9.       INTEGER      WAITCNT         !count of waits                      0009.000
  10.       INTEGER      TOTIME          !total time connect                  0010.000
  11. C                                                                       0011.000
  12.       COMMON /TIMECOM/ PUTIME, GETIME, PUTCOUNT, GETCOUNT,              0012.000
  13.      $                 WAITIME, WAITCNT, TOTIME                         0013.000
  14.