Fix SLU interface for LPK.

7 years ago · d6981973c1
parent f0472fa227
commit d6981973c1
4 changed files with 4 additions and 4 deletions
--- a/mlprec/mld_c_slu_solver.F90
+++ b/mlprec/mld_c_slu_solver.F90
@ -51,7 +51,7 @@ module mld_c_slu_solver
  use iso_c_binding
  use mld_c_base_solver_mod

-#if defined(LPK8)
+#if defined(IPK8)

  type, extends(mld_c_base_solver_type) :: mld_c_slu_solver_type

--- a/mlprec/mld_d_slu_solver.F90
+++ b/mlprec/mld_d_slu_solver.F90
@ -51,7 +51,7 @@ module mld_d_slu_solver
  use iso_c_binding
  use mld_d_base_solver_mod

-#if defined(LPK8)
+#if defined(IPK8)

  type, extends(mld_d_base_solver_type) :: mld_d_slu_solver_type

--- a/mlprec/mld_s_slu_solver.F90
+++ b/mlprec/mld_s_slu_solver.F90
@ -51,7 +51,7 @@ module mld_s_slu_solver
  use iso_c_binding
  use mld_s_base_solver_mod

-#if defined(LPK8)
+#if defined(IPK8)

  type, extends(mld_s_base_solver_type) :: mld_s_slu_solver_type

--- a/mlprec/mld_z_slu_solver.F90
+++ b/mlprec/mld_z_slu_solver.F90
@ -51,7 +51,7 @@ module mld_z_slu_solver
  use iso_c_binding
  use mld_z_base_solver_mod

-#if defined(LPK8)
+#if defined(IPK8)

  type, extends(mld_z_base_solver_type) :: mld_z_slu_solver_type