C     .TITLE CO2
C
C  30 DEC 74 - PAUL HENDERSON
C
C  SUBROUTINE TO AID IN SELECTING VALUES FOR 'CO-OP' LIMITS
C
      SUBROUTINE CO
      LOGICAL F/.FALSE./,ISENSW
      COMMON /LIMITS/XMIN,XMAX,YMIN,YMAX
      COMMON /ANGLES/PIBY4,PI5BY4,PI
      COMMON /TAGS/ITAG
      COMMON /PAINT/PICT(2,5)
      COMMON /OIL/IVECT(100)
C
      PI3BY4 = PI*3./4.
      PI7BY4 = PI*7./4.
C
      X0 = 10.0 + 3.1*COS(PI5BY4)
      Y0 =  3.5 + 3.1*SIN(PI5BY4)
      X1 = 10.0 + 3.1*COS(PI7BY4)
      Y1 =  3.5 + 3.1*SIN(PI7BY4)
      X2 =  3.5 + 3.1*COS(PI5BY4)
      Y2 = 10.0 + 3.1*SIN(PI5BY4)
      X3 = 14.5 + 3.1*COS(PIBY4)
      Y3 =  8.0 + 3.1*SIN(PIBY4)
      IF (ISENSW(2)) WRITE (4,99) X0,Y0,X1,Y1,X2,Y2,X3,Y3
C
      PICT(1,1) = 10.0
      PICT(2,1) =  X0 + Y0 - PICT(1,1)
      PICT(2,2) = 10.0
      PICT(1,2) = X0 + Y0 - PICT(2,2)
      PICT(1,3) =  8.0
      PICT(2,3) =  X3 + Y3 - PICT(1,3)
      PICT(2,4) =  8.0
      PICT(1,4) = X3 + Y3 - PICT(2,4)
      PICT(1,5) = PICT(1,1)
      PICT(2,5) = PICT(2,1)
      IF (ISENSW(2)) WRITE (4,99) PICT
  99  FORMAT(1X10F7.2)
C
      CALL VECTOR (3,PICT,1,5,IVECT,1,LAST,5,1,F)
      ITAG = ITAG + 1
      CALL DISPLY (6,ITAG,IVECT,1,LAST)
      RETURN
      END
      SUBROUTINE OP
      RETURN
      END
