Home
last modified time | relevance | path

Searched refs:sunmat_J (Results 1 – 14 of 14) sorted by relevance

/dports/science/cantera/cantera-2.5.1-611-gc4d6ecc15/ext/sundials/examples/kinsol/F2003_serial/
H A DkinRoboKin_dns_f2003.f90184 integer(c_int) function jac(sunvec_y, sunvec_f, sunmat_J, user_data, sunvec_t1, sunvec_t2) &
200 type(SUNMatrix) :: sunmat_J ! Jacobian SUNMatrix local
217 J(1:24, 1:24) => FSUNDenseMatrix_Data(sunmat_J)
320 type(SUNMatrix), pointer :: sunmat_J ! sundials matrix variable
409 sunmat_J => FSUNDenseMatrix(neq, neq)
410 if (.not. associated(sunmat_J)) then
418 sunlinsol_LS => FSUNDenseLinearSolver(sunvec_y, sunmat_J)
427 ierr = FKINSetLinearSolver(kmem, sunlinsol_LS, sunmat_J)
481 call FSUNMatDestroy(sunmat_J)
H A DkinLaplace_bnd_f2003.f90141 type(SUNMatrix), pointer :: sunmat_J ! sundials matrix variable
213 sunmat_J => FSUNBandMatrix(neq, nx, nx)
214 if (.not. associated(sunmat_J)) then
222 sunlinsol_LS => FSUNLinSol_Band(sunvec_u, sunmat_J)
231 ierr = FKINSetLinearSolver(kmem, sunlinsol_LS, sunmat_J)
289 call FSUNMatDestroy(sunmat_J)
/dports/math/sundials/sundials-5.7.0/examples/kinsol/F2003_serial/
H A DkinRoboKin_dns_f2003.f90184 integer(c_int) function jac(sunvec_y, sunvec_f, sunmat_J, user_data, sunvec_t1, sunvec_t2) &
200 type(SUNMatrix) :: sunmat_J ! Jacobian SUNMatrix local
217 J(1:24, 1:24) => FSUNDenseMatrix_Data(sunmat_J)
320 type(SUNMatrix), pointer :: sunmat_J ! sundials matrix variable
409 sunmat_J => FSUNDenseMatrix(neq, neq)
410 if (.not. associated(sunmat_J)) then
418 sunlinsol_LS => FSUNDenseLinearSolver(sunvec_y, sunmat_J)
427 ierr = FKINSetLinearSolver(kmem, sunlinsol_LS, sunmat_J)
481 call FSUNMatDestroy(sunmat_J)
H A DkinLaplace_bnd_f2003.f90141 type(SUNMatrix), pointer :: sunmat_J ! sundials matrix variable
213 sunmat_J => FSUNBandMatrix(neq, nx, nx)
214 if (.not. associated(sunmat_J)) then
222 sunlinsol_LS => FSUNLinSol_Band(sunvec_u, sunmat_J)
231 ierr = FKINSetLinearSolver(kmem, sunlinsol_LS, sunmat_J)
289 call FSUNMatDestroy(sunmat_J)
/dports/science/cantera/cantera-2.5.1-611-gc4d6ecc15/ext/sundials/examples/cvode/F2003_serial/
H A Dcv_analytic_sys_klu_f2003.f90125 integer(c_int) function JacFn(tn, sunvec_y, sunvec_f, sunmat_J, &
142 type(SUNMatrix) :: sunmat_J ! Jacobian SUNMatrix local
154 Jidxptr => FSUNSparseMatrix_IndexPointers(sunmat_J)
155 Jidxval => FSUNSparseMatrix_IndexValues(sunmat_J)
158 Jmat => FSUNSparseMatrix_Data(sunmat_J)
H A Dcv_brusselator_dns_f2003.f90103 integer(c_int) function JacFn(tn, sunvec_y, sunvec_f, sunmat_J, &
120 type(SUNMatrix) :: sunmat_J ! Jacobian SUNMatrix local
136 Jmat => FSUNDenseMatrix_Data(sunmat_J)
H A Dcv_analytic_sys_dns_jac_f2003.f90126 integer(c_int) function JacFn(tn, sunvec_y, sunvec_f, sunmat_J, &
143 type(SUNMatrix) :: sunmat_J ! Jacobian SUNMatrix local
153 Jmat => FSUNDenseMatrix_Data(sunmat_J)
/dports/math/sundials/sundials-5.7.0/examples/cvode/F2003_serial/
H A Dcv_analytic_sys_klu_f2003.f90125 integer(c_int) function JacFn(tn, sunvec_y, sunvec_f, sunmat_J, &
142 type(SUNMatrix) :: sunmat_J ! Jacobian SUNMatrix local
154 Jidxptr => FSUNSparseMatrix_IndexPointers(sunmat_J)
155 Jidxval => FSUNSparseMatrix_IndexValues(sunmat_J)
158 Jmat => FSUNSparseMatrix_Data(sunmat_J)
H A Dcv_brusselator_dns_f2003.f90103 integer(c_int) function JacFn(tn, sunvec_y, sunvec_f, sunmat_J, &
120 type(SUNMatrix) :: sunmat_J ! Jacobian SUNMatrix local
136 Jmat => FSUNDenseMatrix_Data(sunmat_J)
H A Dcv_analytic_sys_dns_jac_f2003.f90126 integer(c_int) function JacFn(tn, sunvec_y, sunvec_f, sunmat_J, &
143 type(SUNMatrix) :: sunmat_J ! Jacobian SUNMatrix local
153 Jmat => FSUNDenseMatrix_Data(sunmat_J)
/dports/science/cantera/cantera-2.5.1-611-gc4d6ecc15/ext/sundials/examples/arkode/F2003_custom/
H A Dark_brusselator1D_f2003.f90198 integer(c_int) function JacFn(tn, sunvec_y, sunvec_f, sunmat_J, &
214 type(SUNMatrix) :: sunmat_J ! Jacobian matrix local
231 call c_f_pointer(sunmat_J%content, J)
/dports/math/sundials/sundials-5.7.0/examples/arkode/F2003_custom/
H A Dark_brusselator1D_f2003.f90198 integer(c_int) function JacFn(tn, sunvec_y, sunvec_f, sunmat_J, &
214 type(SUNMatrix) :: sunmat_J ! Jacobian matrix local
231 call c_f_pointer(sunmat_J%content, J)
/dports/science/cantera/cantera-2.5.1-611-gc4d6ecc15/ext/sundials/examples/ida/F2003_serial/
H A DidaRoberts_dns_f2003.f90150 sunmat_J, user_data, sunvec_t1, sunvec_t2, sunvec_t3) &
169 type(SUNMatrix) :: sunmat_J ! Jacobian SUNMatrix local
184 j(1:3, 1:3) => FSUNDenseMatrix_Data(sunmat_J)
/dports/math/sundials/sundials-5.7.0/examples/ida/F2003_serial/
H A DidaRoberts_dns_f2003.f90150 sunmat_J, user_data, sunvec_t1, sunvec_t2, sunvec_t3) &
169 type(SUNMatrix) :: sunmat_J ! Jacobian SUNMatrix local
184 j(1:3, 1:3) => FSUNDenseMatrix_Data(sunmat_J)