C
C-------SUBROUTINE MTOGRA----------------------------OAK INDUSTRIES INC.-------
C
C SUBROUTINE GRAPHS THE VARIABLE E[t] VS. SOME FUNCTION.
C
	SUBROUTINE MTOGRA
	REAL MEANTI,NINPER
	REAL INCREMENT
	INCLUDE 'COMMON.FOR'
	M=4

	READ *,N
	TYPE *,'ENTER THE STARTING POINT FROM WHICH YOU WILL INCREMENT THE'
	TYPE *,'MEAN INTERARRIVAL TIME.'
	READ *,START
	TYPE *,'ENTER THE INCREMENT.'
	READ *,INCREMENT
	TYPE *,'ENTER THE MEAN SERVICE TIME.'
	READ *,ES
	TYPE *,'ENTER THE # OF POINTS YOU WANT PLOTTED (NOT TO EXCEED 300).'
	READ *,NPOINTS
	E=START-INCREMENT
C
C PLACE THE VALUES OF THE FUNCTIONS INTO ARRAYS REPRESENTING THE COORDINATE
C AXES.
C
	DO I=1,NPOINTS
		E=E+INCREMENT
		U=ES/E
		RFRAM(I)=E
		IF(N.EQ.1) THEN
			RWD(I)=ERLANG()
		ELSE IF(N.EQ.2) THEN
			RWD(I)=MEANTI()
		ELSE IF(N.EQ.3) THEN
			RWD(I)=TOTMEN()
		ELSE IF(N.EQ.4) THEN
			RWD(I)=NINPER()
		ELSE IF(N.EQ.5) THEN
			RWD(I)=SERUTL()
		ELSE IF(N.EQ.6) THEN
			RWD(I)=AVCSQU()
		ELSE IF(N.EQ.7) THEN
			RWD(I)=AVCSTO()
		ELSE IF(N.EQ.8) THEN
			RWD(I)=U
		END IF
	END DO
C
C SUBROUTINE PRINT USES THE PLXY PLOT PACKAGE FOR THE PRINTRONIX PLOTTER.
C

	TYPE *,'IF YOU WOULD LIKE THE DISPLAY ON YOUR TERMINAL TYPE A "1"'
	TYPE *,
	TYPE *,'IF YOU WOULD LIKE A HARDCOPY DISPLAY TYPE A "2"'
	ACCEPT *,K
	GOTO (1,2),K
1	CALL TERMGR(NPOINTS,RFRAM,RWD,M,N)
	RETURN
2	CALL PRINT(NPOINTS,N,M)
	RETURN
	END
C------------------------------------------------------------------------------