subroutine pltinit
	common /gplot/igplot,idev,ndispl
	logical first
	data first/.true./
c
c        if(igplot.ne.1)return
c	if(first)then
c	call pltstd
c	  if(idev.eq.1)then
c	    call grnset(ndispl)
c	    lunit="200000
c	    endif
c	  if(idev.eq.2)lunit="10000	    
c	  if(idev.eq.3)lunit="20000
c	  if(idev.eq.4)lunit="40000
c	  call pltopn(lunit,'H',0,0.1,ibusy)
c	    first=.false.
c	  endif
c	call page(0,0.1)
	return
	end