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