d 	subroutine jjpuchar( itype, ichar )
È C.		DETERMINE A PLOT CHARACTER
,c.
c. see INFO TEK or USAGE JJPANY for plotting informations
ôc.
Xc. -end.of.info-
¼C.
 	LOGICAL*1 ITYPE, ICHAR
„C.
è	LOGICAL*1 CHAR(6)
L	DATA CHAR/'*','+','-',':','=','#'/
°C===
	IF( ITYPE.GE.0 .AND. ITYPE.LT.' ' ) THEN
x	  ICTYPE = ITYPE
Ü	  ICHAR = CHAR( MOD(ICTYPE,6)+1 )
@	ELSE
¤	  ICHAR = ITYPE
	ENDIF
l	RETURN
Ð		end