IMPLICIT INTEGER*2 (A-Z)
C
C	THIS PROGRAM ALLOWS THE USER TO ENTER VALUES INTO
C	THE STATISTICS COMMON AREA 'STATCM'.
C
C	*** HOW TO BUILD WRITE ***
C	$FOR WRITE
C	$LINK/OPTIONS WRITE
C	LIBR=SYSRES:RO
C	COMMON=STATCM:RW
C	/
C
	INTEGER*4 SSTIM,SNTIM,SUTIM,SPTIM,SBTIM
	INTEGER*2 ARRAY(10)
	EQUIVALENCE(ARRAY,SSTIM)
	COMMON/STATCM/SSTIM,SNTIM,SUTIM,SPTIM,SBTIM
C
	WRITE(5,10) SSTIM,SNTIM,SUTIM,SPTIM,SBTIM
10	FORMAT(11X,'SSTIM',11X,'SNTIM',11X,'SUTIM',11X,'SPTIM',
     1	11X,'SBTIM',/,5(X,I15))
C
C	READ NEW VALUES -- ENTERING A CONTROL-Z WILL CAUSE
C	PROGRAM TO EXIT WITHOUT CHANGING THE VALUES IN STATCM
	READ(5,20,END=999) SSTIM,SNTIM,SUTIM,SPTIM,SBTIM
20	FORMAT(5I15)
	DO 100 I=1,5
	TEMP=ARRAY(I*2-1)
	ARRAY(I*2-1)=ARRAY(I*2)
	ARRAY(I*2)=TEMP
100	CONTINUE
999	CALL EXIT
	END