*DECK FCN3
      SUBROUTINE FCN3 (IFLAG, M, N, X, FVEC, FJROW, NROW)
C***BEGIN PROLOGUE  FCN3
C***PURPOSE  Subsidiary to SNLS1Q.
C***LIBRARY   SLATEC
C***TYPE      SINGLE PRECISION (FCN3-S, DFCN3-D)
C***KEYWORDS  QUICK CHECK
C***AUTHOR  (UNKNOWN)
C***DESCRIPTION
C
C   Subroutine to evaluate the Jacobian, one row at a time, for
C   test problem used in quick check of SNLS1E.
C
C***ROUTINES CALLED  (NONE)
C***REVISION HISTORY  (YYMMDD)
C   ??????  DATE WRITTEN
C   890911  Removed unnecessary intrinsics.  (WRB)
C   890911  REVISION DATE from Version 3.2
C   891214  Prologue converted to Version 4.0 format.  (BAB)
C   930214  TYPE and declarations sections added and code polished.
C           (WRB)
C***END PROLOGUE  FCN3
C     .. Scalar Arguments ..
      INTEGER IFLAG, M, N, NROW
C     .. Array Arguments ..
      REAL FJROW(*), FVEC(*), X(*)
C     .. Local Scalars ..
      REAL TEMP, TWO
      INTEGER I
C     .. Intrinsic Functions ..
      INTRINSIC EXP
C     .. Data statements ..
      DATA TWO /2.0E0/
C***FIRST EXECUTABLE STATEMENT  FCN3
      IF (IFLAG .EQ. 0) RETURN
C
C     Should we evaluate functions or Jacobian?
C
      IF (IFLAG .EQ. 1) THEN
C
C       Evaluate functions.
C
        DO 10 I = 1,M
          TEMP = I
          FVEC(I) = TWO + TWO*TEMP - EXP(TEMP*X(1)) - EXP(TEMP*X(2))
   10   CONTINUE
      ELSE
C
C       Evaluate one row of Jacobian.
C
        IF (IFLAG .NE. 3) RETURN
        TEMP = NROW
        FJROW(1) = -TEMP*EXP(TEMP*X(1))
        FJROW(2) = -TEMP*EXP(TEMP*X(2))
      ENDIF
      RETURN
      END