Warning, /include/higz/hihist.inc is written in an unsupported language. File is not indexed.
0001 *
0002 * $Id$
0003 *
0004 * $Log$
0005 * Revision 1.2 2001/10/17 14:36:53 couet
0006 * - The WORK buffers were too small and the follwoing macro didn't not
0007 * work for more that 101 points:
0008 *
0009 * vec/del *
0010 * n = [1]
0011 * vec/cr time([n])
0012 * vec/cr etime([n]) r [n]*0.0
0013 * vec/cr y([n]) r
0014 * vec/cr ey([n]) r [n]*0.7
0015 * do i = 1, [n]
0016 * vec/input time([i]) [i]
0017 * vec/input y([i]) $eval(3.0+0.01*[i])
0018 * enddo
0019 * null -10 160 0 10
0020 * hplot/errors time y etime ey [n] 20 0.1 3
0021 *
0022 * Revision 1.1.1.1 1996/02/14 13:10:15 mclareni
0023 * Higz
0024 *
0025 *
0026 #ifndef CERNLIB_HIGZ_HIHIST_INC
0027 #define CERNLIB_HIGZ_HIHIST_INC
0028 *
0029 *
0030 * hihist.inc
0031 *
0032 *CMZ : 1.18/00 23/04/93 17.27.57 by O.Couet
0033 *-- Author :
0034 COMMON /HIHIST/ XWORK(1004),YWORK(1004),XWORKL(1004),YWORKL(1004)
0035 #endif
