c c now all special routines - these have internal checking to c sure of correct iplot c c c subroutine megini(ipoint) COMMON/CLIP/X1,Y1,Z1,W1,WEC1(6),IOCOD1,THERE,iplot LOGICAL THERE common/meg/ip if (iplot.eq.4) then ip=ipoint else type *,' MEGINI unavailable for IPLOT:',iplot endif return end c c subroutine cmdout(cmdstr,params,prmlen) c c this subroutine outputs a command and parameter string c to the hp plotter c COMMON/CLIP/X1,Y1,Z1,W1,WEC1(6),IOCOD1,THERE,iplot LOGICAL THERE byte cmdstr(2),params(132) integer prmlen if (iplot.eq.3) then call vecout(2,cmdstr) call vecout(prmlen,params) call ascout(';') else type *,' CMDOUT unavailable for IPLOT:',iplot endif return end c c subroutine init COMMON/CLIP/X1,Y1,Z1,W1,WEC1(6),IOCOD1,THERE,iplot LOGICAL THERE if (iplot.eq.3) then call ascout('I') call ascout('N') call ascout(';') else type *,' INIT unavailable for IPLOT:',iplot endif return end c c subroutine unscal c c set plotter to plotter units (0,0) to (16000,11400) c COMMON/CLIP/X1,Y1,Z1,W1,WEC1(6),IOCOD1,THERE,iplot LOGICAL THERE if (iplot.eq.3) then call ascout('S') call ascout('C') call ascout(';') else type *,' UNSCAL unavailable for IPLOT:',iplot endif return end c c subroutine hpscal(ixmin,ixmax,iymin,iymax) COMMON/CLIP/X1,Y1,Z1,W1,WEC1(6),IOCOD1,THERE,iplot LOGICAL THERE byte outval(24) if (iplot.eq.3) then call ascout('S') call ascout('C') encode(24,100,outval) ixmin,ixmax,iymin,iymax 100 format(i5,',',i5,',',i5,',',i5,';') call vecout(24,outval) else type *,' HPSCAL unavailable for IPLOT:',iplot endif return end c c subroutine STP1P2(ip1x,ip1y,ip2x,ip2y) c c set p1 and p2 from program c COMMON/CLIP/X1,Y1,Z1,W1,WEC1(6),IOCOD1,THERE,iplot LOGICAL THERE byte outval(24) if (iplot.eq.3) then call ascout('I') call ascout('P') encode(24,100,outval) ip1x,ip1y,ip2x,ip2y 100 format(i5,',',i5,',',i5,',',i5,';') call vecout(24,outval) else type *,' STP1P2 unavailable for IPLOT:',iplot endif return end c c subroutine GTP1P2(ip1x,ip1y,ip2x,ip2y) COMMON/CLIP/X1,Y1,Z1,W1,WEC1(6),IOCOD1,THERE,iplot LOGICAL THERE if (iplot.eq.3) then call ascout('O') call ascout('P') call ascout(';') read(6,*)ip1x,ip1y,ip2x,ip2y else type *,' GTP1P2 unavailable for IPLOT:',iplot endif return end