Home
last modified time | relevance | path

Searched refs:sunlinsol_LS (Results 1 – 19 of 19) sorted by relevance

/dports/science/cantera/cantera-2.5.1-611-gc4d6ecc15/ext/sundials/examples/cvode/F2003_serial/
H A Dcv_analytic_sys_dns_f2003.f90152 type(SUNLinearSolver), pointer :: sunlinsol_LS ! sundials linear solver variable
189 sunlinsol_LS => FSUNDenseLinearSolver(sunvec_y, sunmat_A)
190 if (.not. associated(sunlinsol_LS)) then
220 ierr = FCVodeSetLinearSolver(cvode_mem, sunlinsol_LS, sunmat_A);
253 ierr = FSUNLinSolFree(sunlinsol_LS)
H A Dcv_brusselator_dns_f2003.f90186 type(SUNLinearSolver), pointer :: sunlinsol_LS ! sundials linear solver variable
221 sunlinsol_LS => FSUNDenseLinearSolver(sunvec_y, sunmat_A)
222 if (.not. associated(sunlinsol_LS)) then
252 ierr = FCVodeSetLinearSolver(cvode_mem, sunlinsol_LS, sunmat_A);
292 ierr = FSUNLinSolFree(sunlinsol_LS)
H A Dcv_analytic_sys_dns_jac_f2003.f90203 type(SUNLinearSolver), pointer :: sunlinsol_LS ! sundials linear solver variable
238 sunlinsol_LS => FSUNDenseLinearSolver(sunvec_y, sunmat_A)
239 if (.not. associated(sunlinsol_LS)) then
269 ierr = FCVodeSetLinearSolver(cvode_mem, sunlinsol_LS, sunmat_A);
309 ierr = FSUNLinSolFree(sunlinsol_LS)
H A Dcv_analytic_sys_klu_f2003.f90212 type(SUNLinearSolver), pointer :: sunlinsol_LS ! sundials linear solver variable
250 sunlinsol_LS => FSUNKLU(sunvec_y, sunmat_A)
251 if (.not. associated(sunlinsol_LS)) then
281 ierr = FCVodeSetLinearSolver(cvode_mem, sunlinsol_LS, sunmat_A)
321 ierr = FSUNLinSolFree(sunlinsol_LS)
/dports/math/sundials/sundials-5.7.0/examples/cvode/F2003_serial/
H A Dcv_analytic_sys_dns_f2003.f90152 type(SUNLinearSolver), pointer :: sunlinsol_LS ! sundials linear solver variable
189 sunlinsol_LS => FSUNDenseLinearSolver(sunvec_y, sunmat_A)
190 if (.not. associated(sunlinsol_LS)) then
220 ierr = FCVodeSetLinearSolver(cvode_mem, sunlinsol_LS, sunmat_A);
253 ierr = FSUNLinSolFree(sunlinsol_LS)
H A Dcv_brusselator_dns_f2003.f90186 type(SUNLinearSolver), pointer :: sunlinsol_LS ! sundials linear solver variable
221 sunlinsol_LS => FSUNDenseLinearSolver(sunvec_y, sunmat_A)
222 if (.not. associated(sunlinsol_LS)) then
252 ierr = FCVodeSetLinearSolver(cvode_mem, sunlinsol_LS, sunmat_A);
292 ierr = FSUNLinSolFree(sunlinsol_LS)
H A Dcv_analytic_sys_dns_jac_f2003.f90203 type(SUNLinearSolver), pointer :: sunlinsol_LS ! sundials linear solver variable
238 sunlinsol_LS => FSUNDenseLinearSolver(sunvec_y, sunmat_A)
239 if (.not. associated(sunlinsol_LS)) then
269 ierr = FCVodeSetLinearSolver(cvode_mem, sunlinsol_LS, sunmat_A);
309 ierr = FSUNLinSolFree(sunlinsol_LS)
H A Dcv_analytic_sys_klu_f2003.f90212 type(SUNLinearSolver), pointer :: sunlinsol_LS ! sundials linear solver variable
250 sunlinsol_LS => FSUNKLU(sunvec_y, sunmat_A)
251 if (.not. associated(sunlinsol_LS)) then
281 ierr = FCVodeSetLinearSolver(cvode_mem, sunlinsol_LS, sunmat_A)
321 ierr = FSUNLinSolFree(sunlinsol_LS)
/dports/science/cantera/cantera-2.5.1-611-gc4d6ecc15/ext/sundials/examples/ida/F2003_serial/
H A DidaHeat2D_kry_f2003.f90237 type(SUNLinearSolver), pointer :: sunlinsol_LS ! sundials linear solver variable
313 sunlinsol_LS => FSUNLinSol_SPGMR(sunvec_u, PREC_LEFT, 0)
314 if (.not. associated(sunlinsol_LS)) then
320 retval = FSUNLinSol_SPGMRSetMaxRestarts(sunlinsol_LS, 5)
328 retval = FIDASetLinearSolver(ida_mem, sunlinsol_LS, sunmat_A)
412 retval = FSUNLinSol_SPGMRSetGSType(sunlinsol_LS, CLASSICAL_GS)
468 retval = FSUNLinSolFree(sunlinsol_LS)
H A DidaRoberts_dns_f2003.f90274 type(SUNLinearSolver), pointer :: sunlinsol_LS ! sundials linear solver variable
359 sunlinsol_LS => FSUNDenseLinearSolver(sunvec_y, sunmat_A)
360 if (.not. associated(sunlinsol_LS)) then
366 retval = FIDASetLinearSolver(ida_mem, sunlinsol_LS, sunmat_A);
436 retval = FSUNLinSolFree(sunlinsol_LS)
/dports/science/cantera/cantera-2.5.1-611-gc4d6ecc15/ext/sundials/examples/idas/F2003_serial/
H A DidasHeat2D_kry_f2003.f90232 type(SUNLinearSolver), pointer :: sunlinsol_LS ! sundials linear solver variable
308 sunlinsol_LS => FSUNLinSol_SPGMR(sunvec_u, PREC_LEFT, 0)
309 if (.not. associated(sunlinsol_LS)) then
315 retval = FSUNLinSol_SPGMRSetMaxRestarts(sunlinsol_LS, 5)
323 retval = FIDASetLinearSolver(idas_mem, sunlinsol_LS, sunmat_A)
407 retval = FSUNLinSol_SPGMRSetGSType(sunlinsol_LS, CLASSICAL_GS)
463 retval = FSUNLinSolFree(sunlinsol_LS)
/dports/math/sundials/sundials-5.7.0/examples/ida/F2003_serial/
H A DidaHeat2D_kry_f2003.f90237 type(SUNLinearSolver), pointer :: sunlinsol_LS ! sundials linear solver variable
313 sunlinsol_LS => FSUNLinSol_SPGMR(sunvec_u, PREC_LEFT, 0)
314 if (.not. associated(sunlinsol_LS)) then
320 retval = FSUNLinSol_SPGMRSetMaxRestarts(sunlinsol_LS, 5)
328 retval = FIDASetLinearSolver(ida_mem, sunlinsol_LS, sunmat_A)
412 retval = FSUNLinSol_SPGMRSetGSType(sunlinsol_LS, CLASSICAL_GS)
468 retval = FSUNLinSolFree(sunlinsol_LS)
H A DidaRoberts_dns_f2003.f90274 type(SUNLinearSolver), pointer :: sunlinsol_LS ! sundials linear solver variable
359 sunlinsol_LS => FSUNDenseLinearSolver(sunvec_y, sunmat_A)
360 if (.not. associated(sunlinsol_LS)) then
366 retval = FIDASetLinearSolver(ida_mem, sunlinsol_LS, sunmat_A);
436 retval = FSUNLinSolFree(sunlinsol_LS)
/dports/math/sundials/sundials-5.7.0/examples/idas/F2003_serial/
H A DidasHeat2D_kry_f2003.f90232 type(SUNLinearSolver), pointer :: sunlinsol_LS ! sundials linear solver variable
308 sunlinsol_LS => FSUNLinSol_SPGMR(sunvec_u, PREC_LEFT, 0)
309 if (.not. associated(sunlinsol_LS)) then
315 retval = FSUNLinSol_SPGMRSetMaxRestarts(sunlinsol_LS, 5)
323 retval = FIDASetLinearSolver(idas_mem, sunlinsol_LS, sunmat_A)
407 retval = FSUNLinSol_SPGMRSetGSType(sunlinsol_LS, CLASSICAL_GS)
463 retval = FSUNLinSolFree(sunlinsol_LS)
/dports/science/cantera/cantera-2.5.1-611-gc4d6ecc15/ext/sundials/examples/kinsol/F2003_serial/
H A DkinLaplace_bnd_f2003.f90142 type(SUNLinearSolver), pointer :: sunlinsol_LS ! sundials linear solver variable
222 sunlinsol_LS => FSUNLinSol_Band(sunvec_u, sunmat_J)
223 if (.not. associated(sunlinsol_LS)) then
231 ierr = FKINSetLinearSolver(kmem, sunlinsol_LS, sunmat_J)
288 ierr = FSUNLinSolFree(sunlinsol_LS)
H A DkinRoboKin_dns_f2003.f90321 type(SUNLinearSolver), pointer :: sunlinsol_LS ! sundials linear solver variable
418 sunlinsol_LS => FSUNDenseLinearSolver(sunvec_y, sunmat_J)
419 if (.not. associated(sunlinsol_LS)) then
427 ierr = FKINSetLinearSolver(kmem, sunlinsol_LS, sunmat_J)
480 ierr = FSUNLinSolFree(sunlinsol_LS)
/dports/math/sundials/sundials-5.7.0/examples/kinsol/F2003_serial/
H A DkinLaplace_bnd_f2003.f90142 type(SUNLinearSolver), pointer :: sunlinsol_LS ! sundials linear solver variable
222 sunlinsol_LS => FSUNLinSol_Band(sunvec_u, sunmat_J)
223 if (.not. associated(sunlinsol_LS)) then
231 ierr = FKINSetLinearSolver(kmem, sunlinsol_LS, sunmat_J)
288 ierr = FSUNLinSolFree(sunlinsol_LS)
H A DkinLaplace_picard_kry_f2003.f90213 type(SUNLinearSolver), pointer :: sunlinsol_LS ! sundials linear solver variable
312 sunlinsol_LS => FSUNLinSol_SPGMR(sunvec_u, PREC_NONE, 10)
313 if (.not. associated(sunlinsol_LS)) then
323 ierr = FKINSetLinearSolver(kmem, sunlinsol_LS, sunmat_L)
371 ierr = FSUNLinSolFree(sunlinsol_LS)
H A DkinRoboKin_dns_f2003.f90321 type(SUNLinearSolver), pointer :: sunlinsol_LS ! sundials linear solver variable
418 sunlinsol_LS => FSUNDenseLinearSolver(sunvec_y, sunmat_J)
419 if (.not. associated(sunlinsol_LS)) then
427 ierr = FKINSetLinearSolver(kmem, sunlinsol_LS, sunmat_J)
480 ierr = FSUNLinSolFree(sunlinsol_LS)