*ident vms
*/ --------------------------------------------------------
*/ changes to njoy99 for vax/axp/vms systems.
*/ updated by Piet de Leege (IRI, TUDelft) and IAEA NDS.
*/ this is for the 64-bit version on alpha axp/vms
*/ use compiler options /real=64/integer=64
*/ do not use "*set sw"
*/ --------------------------------------------------------
*/ personalize banner for each site.
*/ the machine name (mx) is meant for multi-computer sites.
*d njoy.308,309
      data lab/'mysite  '/
      data mx/'mymach  '/
*/ provide system fatal error exit if available.
*/ for vax, calling a nonexisting subroutine gives a nice traceback.
*d njoy.365,366
      call abend
*/ provide local elapsed charge-time call
*/ cummulative cpu time only
*d njoy.514
      call timing(cp,sy,pp)
c     cummulative cp time
      time=cp
*/ provide local date string.
*d njoy.524
      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.537
      real*8 dtime
      call time(dtime)
      write(htime,'(a8)') dtime
*i njoy.542
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 alpha axp/vms with 64-bit options
*d njoy.5798,5809
*d njoy.5814,6138
c
c     machine constants for  alpha axp/vms at 64 bits
c     using g_float and /integer=64/real=64!!!
c
      data rmach(1) / '0000000000000010'x /
      data rmach(2) / 'ffffffffffff7fff'x /
      data rmach(3) / '0000000000003cc0'x /
      data rmach(4) / '0000000000003cd0'x /
      data rmach(5) / '79ff509f44133ff3'x /
c
*/ random generator axp/vms
*i njoy.6156
      integer(kind=4) k
      real(kind=4) ran
*d njoy.6161
      rann=ran(k)
*ident iaeavms
*/ viewr -- 14oct98
*/   postscript plotting on vms requires a special file structure
*d viewr.3663
      character fn*6
*d viewr.3676
c     construct file name
      write(fn,'(''tape'',i2)')nps
      open(nps,file=fn,carriagecontrol='list',status='unknown')
*d viewr.3714
      close(nps)