*ident vms
*/ --------------------------------------------------------
*/ changes to njoy94 for vax/vms systems.
*/ updated by Piet de Leege (IRI, TUDelft)
*/ this is for a 32-bit vms version
*/ be sure to use '*set sw'
*/ --------------------------------------------------------
*/ personalize banner for each site.
*/ the machine name (mx) is meant for multi-computer sites.
*d njoy.292,293
      data lab/'lanl'/
      data mx/'g'/
*/ provide system fatal error exit if available.
*/ for vax, calling a nonexisting subroutine gives a nice traceback.
*d njoy.347
      call abend
*/ provide local elapsed charge-time call
*/ cummulative cpu time only
*d njoy.741
      call timing(cp,sy,pp)
c     cummulative cp time
      time=cp
*/ provide local date string.
*d njoy.751
      integer*4 i,j,k
      call idate(i,j,k)
      write(hdate,'(i2,1h/,i2,1h/,i2)') i,j,k
*/ provide local wall-clock time string.
*d njoy.761
      real*8 dtime
      call time(dtime)
      write(htime,'(a8)') dtime
*i njoy.763
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
*/ machine constants for slatec functions
*/ on dec vax/vms
*i up86.2574
c
c     machine constants for vax/vms 
c
      data small(1) / z00000080 /
      data large(1) / zffff7fff /
      data right(1) / z00003480 /
      data diver(1) / z00003500 /
      data log10(1) / z209b3f9a /