C These arrays are used by input procedures
c The X windows routines get_text returns a buffer
c (which can be ainbuf)
c Decode can then split this into up to ten numbers (ain_1)
c ain_2 provides a second array - this is needed for some cases
c such as setting parameters for a dashed line
	common/aincom1/ain1, ain2, ainfix, aingrd
	common/aincom2/ainbuf, tstring
      REAL ain1(10), ain2(10)
	integer ainfix(10), aingrd(10)
	character*80 ainbuf
	character*120 tstring
c colours for data and for rest of plot
c rgb = colour of most of plot
c rgbd = colour of data
c rgbhi and rgblo are for colour coding in a "3D" plot
	common/colors/rgb, rgbd, rgbhi, rgblo
	integer rgb(3), rgbd(3), rgbhi(3), rgblo(3)
c rotation angles for doing a 3d plot
	common/angles/angle
	real angle(3)
c define unit numbers
c ifil is the current file number being used
c for default I/O
c IFIL7 is "ROBOTLOG"
c IFIL8 is "ROBOTINF"
c ifloop is file written to by loop command
c (not yet implemented)
	common/files/ifil, ifil7, ifil8
	integer ifil, ifil7, ifil8
c and their names
	common/fnames/logf, infof
	character*60 logf, infof
c arrays to be used to store data and instructions if
c we loop
	common/loop1/rdata, rinst
	common/loop2/vloop, sloop, maxloop, loop
	common/loop3/rloop, rinstno, rdatano
c for the data
	character*80 rdata(50)
c for the instructions
	character*80 rinst(60)
c counters for the loop and for instruction and data counters
	integer rloop, rinstno, rdatano
c value of the parameter and the step size
	real vloop, sloop
c number of times to loop
	integer maxloop
c and flag to indicate looping
	logical loop
c a small buffer for sending data from the outside of robot
c (e.g. an X window routine). Should ultimately cut down on the use
c of getting data from directly from within robot
	common/ibuffer1/ibufstr, maxbuf, HAVEDATA
	common/ibuffer2/bufinst
	parameter(ibufmax = 40)
	character*80 bufinst(ibufmax)
c number of instructions stored
	integer maxbuf
c pointer to instruction to read from and/or write to
	integer ibufstr
c says whether there is data or not
	logical havedata
c user defined variable names
	common/uservar1/nouvar, uservv
	common/uservar2/uservn
c user variable names
	character*15	uservn(10)
c user variable values
	real		uservv(10)
c number of variables used
	integer		nouvar
c predefined variable names a1-a5 have these values 
	common/userno/auser1,auser2,auser3,auser4,auser5

c spacing of windows
	common/gaps/xgap, ygap

c variable to show we're in robot
	common/robot/robot
	logical robot
