Function SmallCode(id0)
      Implicit None
      Include ?

C..Small demonstration paw code
      Integer smallcode, id0, ij
      Logical first
      Data first/.true./

      If( first ) Then
         first = .false.
         Call hbook1(id0+100, 'Jpsi mass', 40, 2.8, 3.2, 0.)
      Endif

      Do 100 ij = 1, njpsi
         Call Hfill(id0+100, JpsiUncMass(ij), 0., 1.)
 100  Continue

      Return
      End