/dports/science/cantera/cantera-2.5.1-611-gc4d6ecc15/ext/sundials/examples/kinsol/F2003_serial/ |
H A D | kinRoboKin_dns_f2003.f90 | 184 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 D | kinLaplace_bnd_f2003.f90 | 141 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 D | kinRoboKin_dns_f2003.f90 | 184 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 D | kinLaplace_bnd_f2003.f90 | 141 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 D | cv_analytic_sys_klu_f2003.f90 | 125 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 D | cv_brusselator_dns_f2003.f90 | 103 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 D | cv_analytic_sys_dns_jac_f2003.f90 | 126 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 D | cv_analytic_sys_klu_f2003.f90 | 125 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 D | cv_brusselator_dns_f2003.f90 | 103 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 D | cv_analytic_sys_dns_jac_f2003.f90 | 126 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 D | ark_brusselator1D_f2003.f90 | 198 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 D | ark_brusselator1D_f2003.f90 | 198 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 D | idaRoberts_dns_f2003.f90 | 150 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 D | idaRoberts_dns_f2003.f90 | 150 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)
|