Sample initialization code

The following is an example of a routine that calls the above routine to register all of the variables, and then loads and books the CTP files.

  subroutine initialize()

  implicit none
  integer*4 hmemor(20000)
  common /pawc/ hmemor
  integer*4 ierr

  call regallvars

  call hlimit(20000)
  ierr = thload('ctp.input')
  ierr = thbook()
  ierr = thwalias('paw.aliases')

  ierr = thtstcls()  ! Clear all test scalers

  return
  end