c c subroutine CIRCLE(IRAD,ICHRD) COMMON/CLIP/X1,Y1,Z1,W1,WEC1(6),IOCOD1,THERE,iplot LOGICAL THERE byte outval(12) if (iplot.eq.3) then call ascout('C') call ascout('I') encode(12,100,outval) irad,ichrd 100 format(i7,',',i3,';') call vecout(12,outval) else type *,' CIRCLE unavailable for IPLOT:',iplot endif return end c c subroutine ARCABS(ix,iy,ircang,icrdan) COMMON/CLIP/X1,Y1,Z1,W1,WEC1(6),IOCOD1,THERE,iplot LOGICAL THERE byte outval(22) if (iplot.eq.3) then call ascout('A') call ascout('A') encode (22,100,outval) ix,iy,ircang,icrdan 100 format(i6,',',i6,',',i3,',',i3,';') call vecout(22,outval) else type *,' ARCABS unavailable for IPLOT:',iplot endif return end c c subroutine ARCREL(ix,iy,ircang,icrdan) COMMON/CLIP/X1,Y1,Z1,W1,WEC1(6),IOCOD1,THERE,iplot LOGICAL THERE byte outval(22) if (iplot.eq.3) then call ascout('A') call ascout('R') encode (22,100,outval) ix,iy,ircang,icrdan 100 format(i6,',',i6,',',i3,',',i3,';') call vecout(22,outval) else type *,' ARCREL unavailable for IPLOT:',iplot endif return end c c subroutine AUTOUP(IONOFF) COMMON/CLIP/X1,Y1,Z1,W1,WEC1(6),IOCOD1,THERE,iplot LOGICAL THERE if (iplot.eq.3) then call ascout('A') call ascout('P') if (ionoff.eq.0) call ascout('0') call ascout(';') else type *,' AUTOUP unavailable for IPLOT:',iplot endif return end c c subroutine VELSEL(ISPEED,IPEN) COMMON/CLIP/X1,Y1,Z1,W1,WEC1(6),IOCOD1,THERE,iplot LOGICAL THERE byte outval(2) if (iplot.eq.3) then call ascout('V') call ascout('S') if (ispeed.ne.0) then encode (2,100,outval) ispeed 100 format(i2) call vecout(2,outval) if (ipen.gt.0 .and. ipen.lt.9) then encode (2,101,outval) ipen 101 format(',',i1) call vecout(2,outval) endif endif call ascout(';') else type *,' VELSEL unavailable for IPLOT:',iplot endif return end c c subroutine ADPVEL(IONOFF) COMMON/CLIP/X1,Y1,Z1,W1,WEC1(6),IOCOD1,THERE,iplot LOGICAL THERE if (iplot.eq.3) then call ascout('V') if (ionoff.eq.1) then call ascout('A') else call ascout('N') endif call ascout(';') else type *,' ADPVEL unavailable for IPLOT:',iplot endif return end c c subroutine XTICK COMMON/CLIP/X1,Y1,Z1,W1,WEC1(6),IOCOD1,THERE,iplot LOGICAL THERE if (iplot.eq.3) then call ascout('X') call ascout('T') call ascout(';') else type *,' XTICK unavailable for IPLOT:',iplot endif return end c c subroutine YTICK COMMON/CLIP/X1,Y1,Z1,W1,WEC1(6),IOCOD1,THERE,iplot LOGICAL THERE if (iplot.eq.3) then call ascout('Y') call ascout('T') call ascout(';') else type *,' YTICK unavailable for IPLOT:',iplot endif return end c c subroutine TCKLEN(tuprt,tdnlt) COMMON/CLIP/X1,Y1,Z1,W1,WEC1(6),IOCOD1,THERE,iplot LOGICAL THERE byte outval(11) if (iplot.eq.3) then call ascout('T') call ascout('L') if (tuprt.ne.0.0 .and. tdnlt.ne.0.0) then encode(11,100,outval) tuprt,tdnlt 100 format(f5.1,',',f5.1) call vecout(11,outval) endif call ascout(';') else type *,' TCKLEN unavailable for IPLOT:',iplot endif return end c c subroutine SYMMOD(CHAR) COMMON/CLIP/X1,Y1,Z1,W1,WEC1(6),IOCOD1,THERE,iplot LOGICAL THERE BYTE CHAR if (iplot.eq.3) then call ascout('S') call ascout('M') if (char.ne.';') call ascout(char) call ascout(';') else type *,' SYMMOD unavailable for IPLOT:',iplot endif return end c c subroutine LINTYP(PATNUM,PATLEN) COMMON/CLIP/X1,Y1,Z1,W1,WEC1(6),IOCOD1,THERE,iplot LOGICAL THERE real patlen,patnum BYTE OUTVAL(5) if (iplot.eq.3) then call ascout('L') call ascout('T') ipatno=int(patnum) if (ipatno.ge.0 .and. ipatno.lt.7) then jj=ipatno+48 call ascout(jj) if (patlen.ge.0.1 .and. patlen.lt.100.) then encode(5,100,outval) patlen 100 format(',',f4.1) call vecout(5,outval) endif endif call ascout(';') else type *,' LINTYP unavailable for IPLOT:',iplot endif return end