*ident ibm
*/ --------------------------------------------------------
*/ changes to bbc for ibm mainframe systems.
*/ the details may vary from site to site.
*/ be sure to use '*set sw' and "*noid".
*/ ---------------------------------------------
*/ provide local elapsed charge-time call
*d bbc.1061
      logical first/.true./
      if (.not.first) go to 1
      call sdelta
      first=.false.
      time=0.
      go to 2
    1 call sdelta(n)
      time=time+float(n)/100.
    2 continue
*/ provide local date string.
*d bbc.1071
      real*8 ddate,ddummy
      call datim(ddate,ddummy)
      write(hdate,'(a8)') ddate
*/ provide local wall-clock time string.
*d bbc.1081
      real*8 dtime,ddummy
      call datim(ddummy,dtime)
      write(htime,'(a8)') dtime
*/ provide system fatal error exit.
*d bbc.1094
      call abend