*ident rs6k
*/ ----------------------------------------------------
*/ machine-dependent changes to bbc
*/ for ibm rs6000 workstations
*/ be sure to use '*set sw'
*/ --------------------------------------
*/ elapsed time
*d transx.3984
      type tb_type
       sequence
       real*4 usrtime
       real*4 systime
      end type
      type (tb_type) etime
      secs=etime_(etime)
*/ date
*d transx.3994
      type iar
       sequence
       integer*4 iday
       integer*4 imonth
       integer*4 iyear
      end type
      type (iar) idate
      call idate_(idate)
      idate%iyear=idate%iyear-1900
      write(hdate,'(i2,1h/,i2,1h/,i2)')
     x   idate%imonth,idate%iday,idate%iyear
*/ wall clock time
*d transx.4004
      character*26 sdate
      call fdate_(sdate)
      htime=sdate(12:19)
*/ fatal error exit
*d transx.4017,4018
      stop 77