home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / comp / os / vms / 21604 < prev    next >
Encoding:
Text File  |  1993-01-21  |  2.9 KB  |  70 lines
  1. Newsgroups: comp.os.vms
  2. Path: sparky!uunet!spool.mu.edu!uwm.edu!linac!unixhub!slacvx.slac.stanford.edu!fairfield
  3. From: fairfield@slacvx.slac.stanford.edu
  4. Subject: Re: Anybody have time arithmetic routines?
  5. Message-ID: <1993Jan21.002747.1@slacvx.slac.stanford.edu>
  6. Lines: 58
  7. Sender: news@unixhub.SLAC.Stanford.EDU
  8. Organization: Stanford Linear Accelerator Center
  9. References: <1993Jan21.020035.18787@slcs.slb.com>
  10. Date: Thu, 21 Jan 1993 08:27:47 GMT
  11.  
  12. In article <1993Jan21.020035.18787@slcs.slb.com>, brydon@asl.slb.com (Harvey Brydon (918)250-4312) writes:
  13. > I have to do some reporting on some timing tests and have a need to calculate
  14. > elapsed times for a number of values.  Is there a way to calculate this in a
  15. > simple fashion (DCL preferred, Fortran otherwise)?  I'll be parsing the
  16. > timestamps from an RMS file with DCL.  Before I get a league of answers about
  17. > calculating delta time from 'now', let me make it clear I need to calculate
  18. > this from two arbitrary timestamps.  eg:
  19. > 
  20. > $ t1 = "20-JAN-1993 08:07:09.03"
  21. > $ t2 = "20-JAN-1993 10:22:13.44"
  22. > $! (magic dcl here)
  23. > $ show sym diff  ==> "0 02:15:04.41"
  24.  
  25. [etc...]
  26.  
  27.     There was a thread on a related topic going on just a week ago
  28. under the subject ` Implimenting  "TOMMORROW + 1:00:00" ' (that's
  29. pretty close anyway).  Check there, but also see below...
  30.  
  31. > Anybody have any tricks for this or is it just a matter of brute force
  32. > parsing, adding and carrying?
  33.  
  34.     I'm sure it _can_ be done in DCL, but I'd suggest Fortran instead:
  35. no need to parse, add or carry ;-)  Here's an outline:
  36.  
  37.     1) Use LIB$GET_SYMBOL to read in your two (or more) DCL time
  38.        symbols, t1 and t2.
  39.  
  40.     2) Use SYS$BINTIM to convert each to 64-bit internal time (quadword,
  41.        just use a 2-long integer*4 array).
  42.  
  43.     3) Use LIB$SUB_TIMES to get the 64-bit delta time between the t1
  44.        and t2 quadwords (there's also a LIB$ADD_TIMES for doing your
  45.        delta time additions).
  46.  
  47.     4) Use SYS$ASCTIM to convert the time quadword result back
  48.        to an ascii time string.  I think there are flags to
  49.        control whether you get an "absolute" or a "delta" time
  50.        back...check the help/docs, it could be automatic.
  51.  
  52.     5) Use LIB$SET_SYMBOL to define a DCL symbol containing the
  53.        resultant delta ascii time string.
  54.  
  55.     There are no item lists involved so about half a page of Fortran
  56. ought to do it (OK, OK!  A page and a half with proper return status
  57. checking and comments :-).
  58.  
  59.     You'll suffer image activation time overhead compared to doing 
  60. it all in DCL, but I'll bet it's faster just the same!  Certainly
  61. simpler to code, more flexible, and less error-prone.
  62.  
  63.     -Ken
  64. -- 
  65.  Dr. Kenneth H. Fairfield    |  Internet: Fairfield@Slac.Stanford.Edu
  66.  SLAC, P.O.Box 4349, MS 98   |  DECnet:   45537::FAIRFIELD (45537=SLACVX)
  67.  Stanford, CA   94309        |  BITNET    Fairfield@Slacvx
  68.  ----------------------------------------------------------------------------
  69.  These opinions are mine, not SLAC's, Stanford's, nor the DOE's...
  70.