C                  INTERNATIONAL AVS CENTER
C        (This disclaimer must remain at the top of all files)
C
C WARRANTY DISCLAIMER
C
C This module and the files associated with it are distributed free of charge.
C It is placed in the public domain and permission is granted for anyone to use,
C duplicate, modify, and redistribute it unless otherwise noted.  Some modules
C may be copyrighted.  You agree to abide by the conditions also included in
C the AVS Licensing Agreement, version 1.0, located in the main module
C directory located at the International AVS Center ftp site and to include
C the AVS Licensing Agreement when you distribute any files downloaded from
C that site.
C
C The International AVS Center, MCNC, the AVS Consortium and the individual
C submitting the module and files associated with said module provide absolutely
C NO WARRANTY OF ANY KIND with respect to this software.  The entire risk as to
C the quality and performance of this software is with the user.  IN NO EVENT
C WILL The International AVS Center, MCNC, the AVS Consortium and the individual
C submitting the module and files associated with said module BE LIABLE TO
C ANYONE FOR ANY DAMAGES ARISING FROM THE USE OF THIS SOFTWARE, INCLUDING,
C WITHOUT LIMITATION, DAMAGES RESULTING FROM LOST DATA OR LOST PROFITS, OR ANY
C SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES.
C
C This AVS module and associated files are public domain software unless
C otherwise noted.  Permission is hereby granted to do whatever you like with
C it, subject to the conditions that may exist in copyrighted materials. Should
C you wish to make a contribution toward the improvement, modification, or
C general performance of this module, please send us your comments:  why you
C liked or disliked it, how you use it, and most important, how it helps your
C work. We will receive your comments at avs@ncsc.org.
C
C Please send AVS module bug reports to avs@ncsc.org.
C
      subroutine plot(xpage,ypage,ipen)
*                ====
*     Calcomp routine
*     ---------------
C   IAC CODE CHANGE :       include 'cgblock.f'
	INCLUDE 'cgblock.f'
      logical setoff
*
      npen=iabs(ipen)
      if(npen.lt.2) npen=last
      if(npen.eq.22) npen=12
      if(npen.eq.23) npen=13
      last=npen
      x=factxy*xpage
      y=factxy*ypage
*
* ... End of plot ...
      if(ipen.eq.999) then
         call lasplo
         return
      endif
*
      px=x
      py=y
* ... With OFFSET ...
      setoff=npen.eq.12
     .  .or. npen.eq.13
      if(setoff) then
         px=(x-xoff)/xfct
         py=(y-yoff)/yfct
         npen=npen-10
      endif
*
* ... Pen up ...
      if(npen.eq.3) up=.true.
* ... Pen down ...
      if(npen.eq.2) then
	 xb=xorig+xl ; yb=yorig+yl ; zb=0.
	 xe=xorig+px ; ye=yorig+py ; ze=0.
         call cgbdraw(xb,yb,zb, xe,ye,ze, up)
         up=.false.
      endif
*
      xl=px
      yl=py
* ... Change origin ...
      if(ipen.lt.0) then
         xorig=xorig+px
         yorig=yorig+py
         xl=0.
         yl=0.
      endif
*
      return
      end