*
* $Id: hprint.F,v 1.1.1.1 1996/01/16 17:07:46 mclareni Exp $
*
* $Log: hprint.F,v $
* Revision 1.1.1.1  1996/01/16 17:07:46  mclareni
* First import
*
*
#include "hbook/pilot.h"
*CMZ :  4.10/05 21/02/89  16.14.52  by  Rene Brun
*-- Author :
      SUBROUTINE HPRINT(ID1)
*.==========>
*.           PRINTS HIST ID1
*.           IF(ID1=0) PRINTS ALL HIST IN THE BOOKING ORDER
*..=========> ( R.Brun )
#include "hbook/hcbook.inc"
#include "hbook/hcflag.inc"
#include "hbook/hcprin.inc"
*.___________________________________________
      ID=ID1
      IDLAST=0
*
      IF(ID1.NE.0)THEN
         IDPOS=LOCATI(IQ(LTAB+1),IQ(LCDIR+KNRH),ID)
         IF(IDPOS.GT.0)THEN
            LCID=LQ(LTAB-IDPOS)
            GO TO 30
         ELSE
            CALL HBUG('Unknown histogram','HPRINT',ID1)
            GO TO 99
         ENDIF
      ENDIF
*
      LCID=LIDS
  20  IF(LCID.EQ.0)GO TO 99
      IF(ID1.NE.0)GO TO 99
      ID=IQ(LCID-5)
*
  30  IF(JBIT(IQ(LCID+KBITS),1).EQ.0)GO TO 60
  40  IF(JBIT(IQ(LCID+KBITS),13).NE.0)THEN
         CALL HPROT(ID,'    ',0)
      ELSE
         CALL HPHIST(ID,'    ',0)
      ENDIF
      GO TO 90
*
  60  IF(JBIT(IQ(LCID+KBITS),2).NE.0)THEN
         CALL HPSCAT(ID)
      ELSEIF(JBIT(IQ(LCID+KBITS),3).NE.0)THEN
         CALL HPTAB(ID)
      ELSE
         CALL HPRNTU(ID)
         GO TO 95
      ENDIF
      IF(IQ(LSCAT+KNOENT).NE.0)THEN
         IF(JBIT(IQ(LCID+KBITS),8).NE.0)GO TO 40
      ENDIF
*
  90  IF(IPONCE.NE.0)CALL SBYT(0,IQ(LCID+KBITS),1,3)
  95  LCID=LQ(LCID)
      GO TO 20
*
  99  RETURN
      END