mphistab.f90 File Reference

Histogramming package. More...

Go to the source code of this file.

Functions/Subroutines
subroutine	hmpdef (ih, xa, xb, text)
subroutine	hmpmak (inhist, fnhist, jnhist, xl, dl)
subroutine	bintab (tab, n, xa, xb)
subroutine	kprint (lun, list, n)
subroutine	gmpdef (ig, ityp, text)
subroutine	stmars
subroutine	rmesig (x, n, xloc, xsca)

---

Detailed Description

Histogramming package.

                          HMP... and GMP...
                    Histogram and XY data in text files

     Booking:

     CALL HMPDEF(IH,XA,XB,TEXT)               CALL GMPDEF(IG,ITYP,TEXT)
     where                                    where
        IH    = 1 ... 10                         IG    = 1 ... 10
        XA,XB = left, right limit                ITYP  = 1 dots
        TEXT  = explanation                            = 2 line
                                                       = 3 dots and line
                                                       = 4 symbols
                                                       = 5 mean/sigma
                                                 TEXT  = explanation

     CALL HMPLUN(LUNW)                        CALL GMPLUN(LUNW)
     unit for output                          unit for output

     CALL HMPENT(IH,X)                        CALL GMPXY(IG,X,Y)
     entry flt.pt. X                          add (X,Y) pair

                                              CALL GMPXYD(IG,X,Y,DX,DY)
                                              add (X,Y,DX,DY) ITYP=4

        new                                   CALL GMPMS(IG,X,Y)
                                              mean/sigma from x,y

     Booking log integer histogram:

     CALL HMPLDF(IH,TEXT)
     book and reset log integer histogram

     CALL HMPLNT(IH,IX)
     entry integer IX

     Printing and writing:

     CALL HMPRNT(IH)                          CALL GMPRNT(IG)
     print histogram IH or all, if 0          print data Ig or all, if 0

     CALL HMPWRT(IH)                          CALL GMPWRT(IG)
     write histogram IH or all to file        write data IG or all to file


     Storage manager for GMP...

      CALL STMARS                 !! init/reset  storage manager

      CALL STMAPR(JFLC,X,Y)       !! store pair (X,Y)

      CALL STMADP(JFLC,FOUR)      !! store double pair

      CALL STMACP(JFLC,ARRAY,N)   !! copy (cp) all pairs to array

      CALL STMARM(JFLC)           !! remove (rm) stored paiirs

The number of histograms is limited to NUMHIS (=15), the number of XY data plots to NUMGXY (=10) and the storage of XY points to NDIM (=5000). As each XY plot can contain up to NLIMIT (=500) points (before averaging) NDIM should be NLIMIT*NUMGXY.

Definition in file mphistab.f90.

---

Function/Subroutine Documentation

subroutine bintab	(	REAL, dimension(n), intent(in)	tab,
		INTEGER, intent(in)	n,
		REAL, intent(out)	xa,
		REAL, intent(out)	xb
	)

Definition at line 392 of file mphistab.f90.

References heapf().

Referenced by hmpmak().

subroutine gmpdef	(	INTEGER, intent(in)	ig,
		INTEGER, intent(in)	ityp,
		CHARACTER (LEN=*), intent(in)	text
	)

Definition at line 554 of file mphistab.f90.

References rmesig(), and stmars().

Referenced by loopn(), mdiags(), and mptwo().

subroutine hmpdef	(	INTEGER, intent(in)	ih,
		REAL, intent(in)	xa,
		REAL, intent(in)	xb,
		CHARACTER (LEN=*), intent(in)	text
	)

Definition at line 73 of file mphistab.f90.

References hmpmak(), kprint(), pfvert(), pivert(), and psvert().

Referenced by loop1(), loop2(), loopn(), mdiags(), and mptwo().

subroutine hmpmak	(	INTEGER, dimension(120), intent(out)	inhist,
		REAL, dimension(120), intent(in)	fnhist,
		INTEGER, dimension(5), intent(inout)	jnhist,
		REAL, dimension(6), intent(inout)	xl,
		DOUBLE PRECISION, dimension(2), intent(out)	dl
	)

Definition at line 329 of file mphistab.f90.

References bintab(), and heapf().

Referenced by hmpdef().

subroutine kprint	(	INTEGER, intent(inout)	lun,
		INTEGER, dimension(n), intent(in)	list,
		INTEGER, intent(in)	n
	)

Definition at line 494 of file mphistab.f90.

Referenced by hmpdef().

subroutine rmesig	(	REAL, dimension(n), intent(inout)	x,
		INTEGER, intent(in)	n,
		REAL, intent(out)	xloc,
		REAL, intent(out)	xsca
	)

Definition at line 982 of file mphistab.f90.

References heapf().

Referenced by gmpdef().

subroutine stmars

(

)

Definition at line 881 of file mphistab.f90.

Referenced by gmpdef().