Re: ROOT files from FORTRAN

Valery Fine (fine@mail.cern.ch)
Mon, 29 Sep 1997 17:34:16 +0100

*
* $Id: hexam1.F,v 1.2 1996/06/06 09:52:38 cernlib Exp $
*
* $Log: hexam1.F,v $
* Revision 1.2 1996/06/06 09:52:38 cernlib
* Remove #ifdef (CERNLIB_EXAMPLES) and pilot.h where not used
*
* Revision 1.1.1.1 1996/01/16 17:07:49 mclareni
* First import
*
*
*CMZ : 4.10/05 20/06/90 16.17.06 by Rene Brun
*-- Author :
SUBROUTINE HEXAM1
*.==========>
*. HBOOK BASIC EXAMPLE USING 1-DIM HISTOGRAM,
*. SCATTER-PLOT AND TABLE.
*..=========> ( R.Brun )
* Set global title
*
CALL HTITLE('EXAMPLE NO = 1')
*
* Book 1-dim, scatter-plot and table
*
CALL HBOOK1(10,'EXAMPLE OF 1-DIM HISTOGRAM',100,1.,101.,0.)
CALL HBOOK2(20,'EXAMPLE OF SCATTER-PLOT',100,0.,1.,40,1.,41.,30.)
CALL HTABLE(30,'EXAMPLE OF TABLE',15,1.,16.,40,1.,41.,1000.)
*
* Fill 1-dim histogram
*
DO 10 I=1,100
W=10*MOD(I,25)
CALL HFILL(10,FLOAT(I)+0.5,0.,W)
10 CONTINUE
*
* Fill scatter-plot
*
X=-0.005
DO 30 I=1,100
X=X+0.01
DO 20 J=1,40
Y=J
IW=MOD(I,25)*MOD(J,10)
IWMAX=J-MOD(I,25)+10
IF(IW.GT.IWMAX)IW=0
CALL HFILL(20,X,Y,FLOAT(IW))
20 CONTINUE
30 CONTINUE
*
* Fill table
*
DO 50 I=1,20
DO 40 J=1,40
CALL HFILL(30,FLOAT(I)+0.5,FLOAT(J)+0.5,FLOAT(I+J))
40 CONTINUE
50 CONTINUE
*
* Print all histograms with an index
*
CALL HISTDO
*
END