Corrected PETSC_NULL references to their correct types.

openmc-dev · May 29, 2013 · ab07939 · ab07939
1 parent 52bca11
commit ab07939
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 4 deletions.
diff --git a/src/cmfd_slepc_solver.F90 b/src/cmfd_slepc_solver.F90
@@ -162,7 +162,8 @@ subroutine extract_results()
     cmfd%phi = ZERO
 
     ! extract run information
-    call EPSGetEigenpair(eps, i_eig, keff, PETSC_NULL, phi, PETSC_NULL_OBJECT, ierr)
+    call EPSGetEigenpair(eps, i_eig, keff, PETSC_NULL_DOUBLE, phi, &
+	  PETSC_NULL_OBJECT, ierr)
 
     ! get ownership range
     call VecGetOwnershipRange(phi, row_start, row_end, ierr)

diff --git a/src/cmfd_snes_solver.F90 b/src/cmfd_snes_solver.F90
@@ -56,7 +56,7 @@ subroutine cmfd_snes_execute(adjoint)
     call precondition_matrix()
 
     ! solve the system
-    call SNESSolve(snes, PETSC_NULL, xvec, ierr)
+    call SNESSolve(snes, PETSC_NULL_DOUBLE, xvec, ierr)
 
     ! extracts results to cmfd object
     call extract_results()
@@ -143,7 +143,7 @@ subroutine init_solver()
 
     ! set the residual function
     call SNESSetFunction(snes, resvec, compute_nonlinear_residual, &
-         PETSC_NULL, ierr)
+         PETSC_NULL_DOUBLE, ierr)
 
     ! set GMRES solver
     call SNESGetKSP(snes, ksp, ierr)
@@ -166,7 +166,7 @@ subroutine init_solver()
     call SNESSetFromOptions(snes, ierr)
 
     ! turn off line searching
-!   call SNESLineSearchSet(snes, SNESLineSearchNo, PETSC_NULL, ierr)
+!   call SNESLineSearchSet(snes, SNESLineSearchNo, PETSC_NULL_OBJECT, ierr)
 
   end subroutine init_solver