*
* $Id: hrput.F,v 1.2 1996/12/18 11:06:55 couet Exp $
*
* $Log: hrput.F,v $
* Revision 1.2  1996/12/18 11:06:55  couet
* - call now hrendc instead of hrend.
*
* Revision 1.1.1.1  1996/01/16 17:08:08  mclareni
* First import
*
*
#include "hbook/pilot.h"
*CMZ :  4.16/00 27/05/92  10.32.08  by  Unknown
*-- Author :
      SUBROUTINE HRPUT(ID,CHFILE,CHOPT)
*.==========>
*.           To save histogram(s) on file CHFILE
*.            CHOPT='N' Create a New file
*.                 ='U' Update existing file
*.                 ='T' Save complete Tree
*..=========> ( R.Brun )
      CHARACTER*(*) CHFILE,CHOPT
      CHARACTER*255 CHSAVE
      CHARACTER*1 CHOPT1
      CHARACTER*2 CHOPT2
      DIMENSION IOPT(3)
      EQUIVALENCE (IOPTT,IOPT(1)),(IOPTN,IOPT(2)),(IOPTU,IOPT(3))
*.___________________________________________
*
      CALL HUOPTC (CHOPT,'TNU',IOPT)
      IF(IOPTU.EQ.0)IOPTN=1
      IF(IOPTN.NE.0)THEN
         CHOPT1='N'
      ELSE
         CHOPT1='U'
      ENDIF
      IF(IOPTT.NE.0)THEN
         CHOPT2=CHOPT1//'T'
      ELSE
         CHOPT2=CHOPT1
      ENDIF
      NCH=LENOCC(CHFILE)
      IF(NCH.GT.0)THEN
         CALL RZCDIR(CHSAVE,'R')
         LSAVE = LENOCC(CHSAVE)
         CALL HROPEN(88,'HRPUT',CHFILE,CHOPT1,1024,ISTAT)
         IF(ISTAT.NE.0)GO TO 99
         CALL HROUT(ID,ICYCLE,CHOPT2)
         CALL HRENDC('HRPUT')
         CLOSE(88)
         CALL RZCDIR(CHSAVE(1:LSAVE),' ')
      ELSE
         CALL HROUT(ID,ICYCLE,CHOPT2)
      ENDIF
*
  99  END