crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-28 14:15:42 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

turned line searching back on and fixed error in eigenvalue residual eq.

Browse source
This commit is contained in:
Bryan Herman 2012-04-04 07:40:40 -07:00
parent 9442aa0fe0
commit 369ad19031
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/cmfd_snes_solver.F90
View file

@ -144,7 +144,7 @@ contains
call SNESSetFromOptions(snes,ierr)
! turn off line searching
! call SNESLineSearchSet(snes,SNESLineSearchNo,PETSC_NULL,ierr)
call SNESLineSearchSet(snes,SNESLineSearchNo,PETSC_NULL,ierr)
! get all types and print
call SNESGetType(snes,snestype,ierr)
@ -221,7 +221,7 @@ PetscViewer :: viewer
call VecDot(phi,phi,reslamb,ierr)
! map to ptr
if (rank == n_procs_cmfd) rptr(size(rptr)) = 0.5_8 - 0.5_8*reslamb
if (rank == n_procs_cmfd - 1) rptr(size(rptr)) = 0.5_8 - 0.5_8*reslamb
! reset arrays that are not used
call VecResetArray(phi,ierr)