subroutine dhf1(id,x,wt)
c
c     double precision interface to hf1, see hbook manual for restrictions
c
c     created aug-18-1994, Amber Boehnlein
c
       implicit none
#include "const.inc"
c      inputs
       integer id    ! histogram id
       DFLOAT x      ! value to histogram
       DFLOAT wt     ! weight
       
       real sng_x
       real sng_wt
       
       sng_x  = sngl(x)
       sng_wt = sngl(wt)
       
       call hf1(id,sng_x,sng_wt)
       return
       end 

c $Id$
c $Log$
c Revision 1.1  2000/06/19 19:59:42  eugenio
c Initial revision
c
c Revision 1.2  1997/04/04 20:31:26  garren
c add rcs log line
c