/****  paw-hbook stuff  *************/
/****                  **************/
#include "hbook_defs.h"
static int psize = PAWSIZE;
static int pawc[PAWSIZE];
float fzero = 0.0;
float fone = 1.0;

#define NWPAWC 150000
#define hbook(id,tit,nn,aa,bb)\
        {int nc,i; float a,b; i= id; nc= nn; a= aa; b= bb;\
         hbook1(i,tit,nc,a,b,fzero);}
#define hbookt(id,tit,nx,ax,bx,ny,ay,by)\
        {int xn,i,yn; float xa,xb,ya,yb; i= id; xn= nx; xa= ax; xb= bx;\
         yn= ny; ya= ay; yb = by;\
         hbook2(i,tit,xxn,xa,xb,yn,ya,yb,fzero);}
#define hf(id,xx,yy,wg)\
        {int iiii; float xxxx; float yyyy; float wght;\
            iiii= id; xxxx= xx; yyyy== yy; wght= wg;\
         hfill(iiii,xxxx,yyyy,wght);}
#define hpt(id,fl,opt);\
        {int dd; dd= id;\
           hrput(dd,fl,opt);}
#define hrst(id,tit);\
        {int kk; kk=id;\
           hreset(kk,tit);}
#include "binary_hbook.c";
#define HPUTCNT 20
/****   end of paw-hbook stuff  *************/
/****                          **************/