*ident vms
*/ ------------------------------------------------
*/ changes to bbc for vax/vms systems.
*/ be sure to use '*set sw'.
*/ -----------------------------------------------
*/ provide local elapsed charge-time call
*d bbc.1061
      data first/0./
      call timing(cp,sy,pp)
      if (first.eq.0.) first=cp+pp
      time=cp+pp-first
*/ provide local date string.
*d bbc.1071
      call idate(i,j,k)
      write(hdate,'(i2,1h/,i2,1h/,i2)') i,j,k
*/ provide local wall-clock time string.
*d bbc.1081
      real*8 dtime
      call time(dtime)
      write(htime,'(a8)') dtime
*/ add .dat suffix to file names
*d bbc.1169
      hfile=hfile//'.dat'
*/ append the new timing routine
*i bbc.1477
c
      subroutine timing(cp,sy,pp)
c     ****************************************************************
c     return current cp and pp times.  sy is not used.
c     vax/vms/fortran-77
c     ****************************************************************
      implicit integer*2 (w)
      implicit integer*4 (i-n)
      parameter jpi$_cpu='00000407'x
      parameter jpi$_cpl='0000040d'x
      parameter jpi$_bfr='0000040c'x
      parameter jpi$_drc='0000040b'x
      parameter jpi$_pgf='0000040a'x
      dimension ltimes(6)
      common /timcom/ wlen1, wcode1, laddr1, lenad1,
     1                wlen2, wcode2, laddr2, lenad2,
     2                wlen3, wcode3, laddr3, lenad3,
     3                wlen4, wcode4, laddr4, lenad4,
     4                wlen5, wcode5, laddr5, lenad5
     5                wlen6, wcode6
      data wlen1,wlen2,wlen3,wlen4,wlen5,wlen6/4,4,4,4,4,4/
      data lenad1,lenad2,lenad3,lenad4,lenad5/0,0,0,0,0/
      data wcode1 /jpi$_cpu/
      data wcode2 /jpi$_cpl/
      data wcode3 /jpi$_bfr/
      data wcode4 /jpi$_drc/
      data wcode5 /jpi$_pgf/
      data wcode6 /0/
c
      laddr1=%loc(ltimes(1))
      laddr2=%loc(ltimes(2))
      laddr3=%loc(ltimes(3))
      laddr4=%loc(ltimes(4))
      laddr5=%loc(ltimes(5))
c
      call sys$getjpi(,,,wlen1,,,)
      cp=ltimes(1)/100.
      sy=0.
      pp=ltimes(2)+ltimes(3)
      return
      end