REAL*8 FUNCTION UMIN(A,B)
      IMPLICIT REAL*8 (A-H,O-Z)
      C=A
      IF(C.GT.B)C=B
      UMIN=C
      RETURN
      END
      REAL*8 FUNCTION UMAX(A,B)
      IMPLICIT REAL*8 (A-H,O-Z)
      C=A
      IF(C.LT.B)C=B
      UMAX=C
      RETURN
      END