c @(#)Copyright (c), 1987, 1993 StatSci, Inc.  All rights reserved.
      SUBROUTINE  RESIS1(R1, R2, R3, RC)
C
C COMPUTE RESISTANCE OF R1, R2, AND R3 CONNECTED IN PARALLEL
C
      RC = 1.0/(1.0/R1 + 1.0/R2 + 1.0/R3)
      CALL REALPR('First Resistance', -1, R1,1)
C
      RETURN
      END