Lines Matching refs:J
77 PetscScalar J[5][5]; in IJacobianImplicit() local
83 PetscCall(PetscMemzero(J, sizeof(J))); in IJacobianImplicit()
85 J[0][0] = a / 1.e6 + 0.001; in IJacobianImplicit()
86 J[0][1] = -a / 1.e6; in IJacobianImplicit()
87 J[1][0] = -a / 1.e6; in IJacobianImplicit()
88 J[1][1] = a / 1.e6 + 0.00022222222222222223 + PetscExpReal((500 * (y[1] - y[2])) / 13.) / 2.6e6; in IJacobianImplicit()
89 J[1][2] = -PetscExpReal((500 * (y[1] - y[2])) / 13.) / 2.6e6; in IJacobianImplicit()
90 J[2][1] = -PetscExpReal((500 * (y[1] - y[2])) / 13.) / 26000.; in IJacobianImplicit()
91 …J[2][2] = a / 500000 + 0.00011111111111111112 + PetscExpReal((500 * (y[1] - y[2])) / 13.) / 26000.; in IJacobianImplicit()
92 J[3][1] = (99 * PetscExpReal((500 * (y[1] - y[2])) / 13.)) / 2.6e6; in IJacobianImplicit()
93 J[3][2] = (-99 * PetscExpReal((500 * (y[1] - y[2])) / 13.)) / 2.6e6; in IJacobianImplicit()
94 J[3][3] = (3 * a) / 1.e6 + 0.00011111111111111112; in IJacobianImplicit()
95 J[3][4] = -(3 * a) / 1.e6; in IJacobianImplicit()
96 J[4][3] = -(3 * a) / 1.e6; in IJacobianImplicit()
97 J[4][4] = (3 * a) / 1.e6 + 0.00011111111111111112; in IJacobianImplicit()
99 PetscCall(MatSetValues(B, 5, rowcol, 5, rowcol, &J[0][0], INSERT_VALUES)); in IJacobianImplicit()