FUNCTION STPOIN(XMIN,XINT)
      X=XMIN/XINT
      J=INT(X+0.5)
      IF(ABS(X-J).LT.1E-6) GOTO 20
      IF (X.LT.0.0) X=X-1.0
      STPOIN=XINT*(1.0+AINT(X))
      RETURN
 20   STPOIN=XMIN
      RETURN
      END