1*DECK DDJAC1
2      SUBROUTINE DDJAC1 (T, Y, YPRIME, PD, CJ, RPAR, IPAR)
3C***BEGIN PROLOGUE  DDJAC1
4C***SUBSIDIARY
5C***PURPOSE  First Jacobian evaluator for DDASQC.
6C***LIBRARY   SLATEC (DASSL)
7C***TYPE      DOUBLE PRECISION (SDJAC1-S, DDJAC1-D)
8C***AUTHOR  PETZOLD, LINDA R., (LLNL)
9C***SEE ALSO  DDASQC
10C***ROUTINES CALLED  (NONE)
11C***REVISION HISTORY  (YYMMDD)
12C   891013  DATE WRITTEN
13C   901001  Converted prologue to 4.0 format and made all argument
14C           declarations explicit.  (FNF)
15C***END PROLOGUE  DDJAC1
16      INTEGER  IPAR(*)
17      DOUBLE PRECISION  T, Y(*), YPRIME(*), PD(2,2), CJ, RPAR(*)
18C***FIRST EXECUTABLE STATEMENT  DDJAC1
19      PD(1,1) = CJ + 10.0D0
20      PD(1,2) = 0.0D0
21      PD(2,1) = 1.0D0
22      PD(2,2) = 1.0D0
23      RETURN
24      END
25