d 	subroutine jjpany( imod, ity, x, y )
È c.		The generalized plot routine interface.
,c.
c.	This routine accepts all the TEK type calls, determines
ôc. what to do in common, and then distributes the call to the
Xc. appropriate service routine, i.e. JJPOPN, JJSCRT, JJSHP, JJSLP,
¼c. or JJSTEK.
 c.
„c.	The routine can also be used directly. An advantage is that it
èc. accepts REAL rather than INTEGER point specifications. Between
Lc. 0.0 and 1.0, or 1.2.
°c.
c.	The calls are:
xc.
Üc.	CALL JJPANY( -2, 0,0,0 ) .. To "HARD", pause between plots.
@c.	CALL JJPANY( -1, 0,0,0 ) .. To "CLEAR" the plot for the next one
¤c.	CALL JJPANY(  0, ity, xpos, ypos ) .. To "MOVE" ity .lt. 0,
c.		or "VEC" ity .ge. 0 to the xpos and ypos.
lc.		If ity .ge. 0, then it is used to determine the
Ðc.			CHAR, COLOR, TYPE of line drawn.
4c.	CALL JJPANY( +nchar, Logarr, 0,0 ) .. To output a character
˜c.		string, contained in a contigious set of memory cells.
üc.		Note.. The Logarr can NOT be a standard VAX CHARACTER
`	c.		variable.
Ä	c.
å	c. see INFO TEK for information about all plotting routines

c.
(
c. -end.of.info-
Œ
C.
ð
	LOGICAL*1 ITY(200), NOMORE
T	COMMON /JJPCOMM/ IPLTYP,PLMIN,IPLDEB,IPLCHN !!COMM
¸C.
	IF( IPLTYP.EQ.0 ) THEN
€	  CALL JJPOPN( IDEV, GMIN )
ä	  IF( IDEV.LE.0 ) STOP
H	ENDIF
¬	JMOD = IMOD
	IF( JMOD.GT.0 ) THEN
t	  JMOD = 1
Ø	  DO 210 II=1,IMOD
<	    IF( ITY(II).EQ.0 ) GOTO 215
 	    IF( ITY(II).NE.' ' ) JMOD = II
210	  CONTINUE
h215	  CONTINUE
Ì	ENDIF
0	IF( IPLTYP.EQ.1 ) THEN
”	  CALL JJPSCRT( JMOD, ITY, X, Y )
ø	ELSE IF( IPLTYP.EQ.2 .OR. IPLTYP.EQ.3 ) THEN
\	  CALL JJPSLP( JMOD, ITY, X, Y )
À	ELSE IF( IPLTYP.EQ.4 .OR. IPLTYP.EQ.5 ) THEN
$	  CALL JJPSTEK( JMOD, ITY, X, Y )
ˆ	ELSE IF( IPLTYP.EQ.6 ) THEN
ì	  CALL JJPSHP( JMOD, ITY, X, Y )
P	ENDIF
´	IF( IMOD.EQ.-2 ) THEN
	  CALL JJPOPN( IDEV, GMIN )
|	ENDIF
à	RETURN
D		end