IMPLICIT INTEGER*2 (A-Z)
C	PROGRAM TO LIST THE CONTENTS OF STATISTICS COMMON
C	AREA 'STATCM'
C
C	*** HOW TO BUILD READ ***
C	$FOR READ
C	$LINK/OPTIONS READ
C	LIBR=SYSRES:RO
C	COMMON=STATCM:RO
C	/
C
	INTEGER*4 SSTIM,SNTIM,SUTIM,SPTIM,SBTIM
	INTEGER*2 ST(2),NT(2),UT(2),PT(2),BT(2)
	INTEGER*2 ARRAY(10)
	COMMON/STATCM/ARRAY
	EQUIVALENCE(SSTIM,ST)
	EQUIVALENCE(SNTIM,NT)
	EQUIVALENCE(SUTIM,UT)
	EQUIVALENCE(SPTIM,PT)
	EQUIVALENCE(SBTIM,BT)
C
	ST(2)=ARRAY(1)
	ST(1)=ARRAY(2)
	NT(2)=ARRAY(3)
	NT(1)=ARRAY(4)
	UT(2)=ARRAY(5)
	UT(1)=ARRAY(6)
	PT(2)=ARRAY(7)
	PT(1)=ARRAY(8)
	BT(2)=ARRAY(9)
	BT(1)=ARRAY(10)
	TYPE 10,SSTIM,SNTIM,SUTIM,SPTIM,SBTIM
10	FORMAT(11X,'SSTIM',11X,'SNTIM',11X,'SUTIM',11X,'SPTIM',
     1	11X,'SBTIM',/,5(X,I15))
	CALL EXIT
	END