C
      subroutine RND_NEAR()
C Set to rounding-to-nearest (default).
      use IFPORT
      integer*2 control
C
      call GETCONTROLFPQQ(control)
      control = iand(control, not(FPCW$MCW_RC))
      control = ior(control, FPCW$NEAR)
      call SETCONTROLFPQQ(control)
C
      return
      end
C
C
      subroutine RND_DOWN()
C Set to rounding-downwards.
      use IFPORT
      integer*2 control
C
      call GETCONTROLFPQQ(control)
      control = iand(control, not(FPCW$MCW_RC))
      control = ior(control, FPCW$DOWN)
      call SETCONTROLFPQQ(control)
C
      return
      end
C
C
      subroutine RND_UP()
C Set to rounding-upwards.
      use IFPORT
      integer*2 control
C
      call GETCONTROLFPQQ(control)
      control = iand(control, not(FPCW$MCW_RC))
      control = ior(control, FPCW$UP)
      call SETCONTROLFPQQ(control)
C
      return
      end
C
C
      subroutine RND_CHOP()
C Set to rounding-towards-zero.
      use IFPORT
      integer*2 control
C
      call GETCONTROLFPQQ(control)
      control = iand(control, not(FPCW$MCW_RC))
      control = ior(control, FPCW$CHOP)
      call SETCONTROLFPQQ(control)
C
      return
       end