/dports/science/cantera/cantera-2.5.1-611-gc4d6ecc15/ext/sundials/examples/cvode/F2003_serial/ |
H A D | cv_analytic_sys_dns_f2003.f90 | 152 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 D | cv_brusselator_dns_f2003.f90 | 186 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 D | cv_analytic_sys_dns_jac_f2003.f90 | 203 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 D | cv_analytic_sys_klu_f2003.f90 | 212 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 D | cv_analytic_sys_dns_f2003.f90 | 152 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 D | cv_brusselator_dns_f2003.f90 | 186 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 D | cv_analytic_sys_dns_jac_f2003.f90 | 203 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 D | cv_analytic_sys_klu_f2003.f90 | 212 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 D | idaHeat2D_kry_f2003.f90 | 237 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 D | idaRoberts_dns_f2003.f90 | 274 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 D | idasHeat2D_kry_f2003.f90 | 232 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 D | idaHeat2D_kry_f2003.f90 | 237 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 D | idaRoberts_dns_f2003.f90 | 274 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 D | idasHeat2D_kry_f2003.f90 | 232 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 D | kinLaplace_bnd_f2003.f90 | 142 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 D | kinRoboKin_dns_f2003.f90 | 321 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 D | kinLaplace_bnd_f2003.f90 | 142 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 D | kinLaplace_picard_kry_f2003.f90 | 213 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 D | kinRoboKin_dns_f2003.f90 | 321 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)
|