C
C	AUTHOR:
C		R. STODOLA
C		THE INSTITUTE FOR CANCER RESEARCH
C		7701 BURHOLME AVE.
C		PHILADELPHIA, PA.  19111
C
C      *******************************************************
C      *                                                     *
C      *      THIS SOFTWARE WAS DEVELOPED WITH SUPPORT       *
C      *      FROM THE NATIONAL INSTITUTES OF HEALTH:        *
C      *         NIH CA06927                                 *
C      *         NIH CA22780                                 *
C      *                                                     *
C      *      DIRECT INQUIRIES TO:                           *
C      *            COMPUTER CENTER                          *
C      *            THE INSTITUTE FOR CANCER RESEARCH        *
C      *            7701 BURHOLME AVENUE                     *
C      *            PHILADELPHIA, PENNSYLVANIA   19111       *
C      *                                                     *
C      *      NO WARRANTY OR REPRESENTATION, EXPRESS OR      *
C      *      IMPLIED, IS MADE WITH RESPECT TO THE           *
C      *      CORRECTNESS, COMPLETENESS, OR USEFULNESS       *
C      *      OF THIS SOFTWARE, NOR THAT USE OF THIS         *
C      *      SOFTWARE MIGHT NOT INFRINGE PRIVATELY          *
C      *      OWNED RIGHTS.                                  *
C      *                                                     *
C      *      NO LIABILITY IS ASSUMED WITH RESPECT TO        *
C      *      THE USE OF, OR FOR DAMAGES RESULTING FROM      *
C      *      THE USE OF THIS SOFTWARE                       *
C      *                                                     *
C      *******************************************************
C      *                                                     *
C      *      THIS SOFTWARE WAS DESIGNED FOR USE ON A        *
C      *      PDP-11/70 OPERATING UNDER IAS V2.0 USING       *
C      *      THE FORTRAN-IV PLUS COMPILER.                  *
C      *                                                     *
C      *******************************************************
	INTEGER CELL
	COMMON/UCOM/CELL(1024)
	INTEGER HEAD(36)
	INTEGER*4 ADRL,ADRH,COUNT,TOTAL
	TYPE 10
  10	FORMAT(' HEADING:')
	ACCEPT 20,HEAD
  20	FORMAT(36A2)
	LU=5
	TYPE 30
  30	FORMAT('$LP OR TT? ')
	ACCEPT 20,IUN
	IF(IUN.EQ.2HLP)LU=6
	WRITE(LU,40)HEAD
  40	FORMAT('1'36A2,/' RANGE          COUNT  PERCENT')
	NSK=1H0
	TOTAL=0
	DO 50 I=1,1024
	CALL SETI4(CELL(I),COUNT)
  50	TOTAL=TOTAL+COUNT
	IF(TOTAL.LE.0)STOP1111
	NSK=1H0
	ADRL=0
	DO 100 I=1,1024
	ADRH=ADRL+63
	CALL SETI4(CELL(I),COUNT)
	IF(COUNT.EQ.0)GO TO 90
	PERCNT=FLOAT(COUNT*100)/FLOAT(TOTAL)
	WRITE(LU,60)NSK,ADRL,ADRH,COUNT,PERCNT
  60	FORMAT(A1,O6'-'O6,I7,F8.2)
	NSK=1H 
	GO TO 100
  90	NSK=1H0
 100	ADRL=ADRH+1
	END
	SUBROUTINE SETI4(I,J)
	INTEGER*4 J,K
	INTEGER*2 I,L(2)
	EQUIVALENCE (K,L)
	L(1)=I
	L(2)=0
	J=K
	RETURN
	END