SUBROUTINE SETC (A,B,C)
C
      IF (A.GT.0.0) THEN
         IF (A.GT.B) THEN
            C = A
         ELSE
            C = B/A
         ENDIF
      ELSE
         C = -A/B
      ENDIF
      RETURN
C
      END