c c subroutine PENSEL(ipen) COMMON/CLIP/X1,Y1,Z1,W1,WEC1(6),IOCOD1,THERE,iplot LOGICAL THERE if (iplot.eq.3) then call ascout('S') call ascout('P') ipn=ipen+48 call ascout(ipn) call ascout(';') else type *,' PENSEL unavailable for IPLOT:',iplot endif return end c c subroutine PENUP COMMON/CLIP/X1,Y1,Z1,W1,WEC1(6),IOCOD1,THERE,iplot LOGICAL THERE if (iplot.eq.3) then call ascout('P') call ascout('U') call ascout(';') else type *,' PENUP unavailable for IPLOT:',iplot endif return end c c subroutine PENDWN COMMON/CLIP/X1,Y1,Z1,W1,WEC1(6),IOCOD1,THERE,iplot LOGICAL THERE if (iplot.eq.3) then call ascout('P') call ascout('D') call ascout(';') else type *,' PENDWN unavailable for IPLOT:',iplot endif return end c c subroutine PLTREL(ix,iy) COMMON/CLIP/X1,Y1,Z1,W1,WEC1(6),IOCOD1,THERE,iplot LOGICAL THERE byte outval(14) if (iplot.eq.3) then call ascout('P') call ascout('R') encode (13,100,outval) ix,iy 100 format(i6,',',i6) call vecout(13,outval) else type *,' PLTREL unavailable for IPLOT:',iplot endif return end c c subroutine PLTABS(ix,iy) COMMON/CLIP/X1,Y1,Z1,W1,WEC1(6),IOCOD1,THERE,iplot LOGICAL THERE byte outval(14) if (iplot.eq.3) then call ascout('P') call ascout('A') encode (13,100,outval) ix,iy 100 format(i6,',',i6) call vecout(13,outval) else type *,' PLTABS unavailable for IPLOT:',iplot endif return end c c subroutine PLTCON(ix,iy) COMMON/CLIP/X1,Y1,Z1,W1,WEC1(6),IOCOD1,THERE,iplot LOGICAL THERE byte outval(14) if (iplot.eq.3) then encode (13,100,outval) ix,iy 100 format(i6,',',i6) call vecout(13,outval) else type *,' PLTCON unavailable for IPLOT:',iplot endif return end c c subroutine PLTEND COMMON/CLIP/X1,Y1,Z1,W1,WEC1(6),IOCOD1,THERE,iplot LOGICAL THERE if (iplot.eq.3) then call ascout(';') else type *,' PLTEND unavailable for IPLOT:',iplot endif return end