SUBROUTINE  PLTFR

C     [FRAME]
C     SET UP AN 8-1/2" X 11" FRAME AND LOCATE THE ORIGIN AT THE
C     CENTER OF THE PAGE.
C     [15-NOV-73]


      CALL PLOT   (0.0, 0.0, 3)
      CALL PLOT   (0.0,11.0, 2)
      CALL PLOT   (8.5,11.0, 1)
      CALL PLOT   (8.5, 0.0, 1)
      CALL PLOT   (0.0, 0.0, 1)
      CALL PLOT   (4.25,5.50,-3)
      RETURN

      END