subroutine inihbk
      integer himem
      character*4 shmem
      himem=2**18               ! 確保するメモリのサイズ
      shmem='CALC'
      call hlimap(himem,shmem)
      return
      end 
      
      subroutine crhist
      implicit none
      call hbook1(11,'x',100,0.0,1.0,0.) ! 1次元ヒストグラムを作る
      call hbook1(12,'y',100,0.0,1.0,0.)
      call hbook2(21,'outer',200,-1.,1.,200,-1.,1.,0.) ! 2D histogram
      call hbook2(22,'inner',200,-1.,1.,200,-1.,1.,0.)
      return
      end