MINICERN/mathlib/gen/divon/mxstep.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/04/01 15:03:28  mclareni
   6 * Mathlib gen
   7 *
   8 *
   9 #include "gen/pilot.h"
  10       SUBROUTINE MXSTEP (X,XLOW,XHI,P,STPPOS,STPNEG)
  11       DOUBLE PRECISION X, XLOW, XHI, P, STPPOS, STPNEG
  12       IF(P.EQ.0.0D+0) RETURN
  13       IF(P.GT.0.0D+0) GOTO 10
  14       STPPOS=-(X-XLOW)/P
  15       STPNEG=-(XHI-X)/P
  16       RETURN
  17  10   STPPOS=(XHI-X)/P
  18       STPNEG=(X-XLOW)/P
  19       RETURN
  20       END