      subroutine csub.time(res)
*
*
*
*
*
*
*
*
*
$catalog local
*
$include ccall.common
*
      equate libname to 'libc.so.6'
      equate fnname  to 'time'
*
      $include ccall.getfn.include
*
      s1 = cc$nul4
      s2 = CC$FN.PUSHOFF : cc$0 :      ~
           CC$FN.CALLFN  : fn.handle : ~
           CC$FN.RTN32   : cc$0 :      ~
           CC$FN.EXIT
      s = ccall(s1,s2)
*
      res = bin2int(s[1,4])
*
      return
   end
