From d6981973c18e9f1612508f10df1cf205f7f9c1c9 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Fri, 29 Jun 2018 15:13:34 +0100 Subject: [PATCH] Fix SLU interface for LPK. --- mlprec/mld_c_slu_solver.F90 | 2 +- mlprec/mld_d_slu_solver.F90 | 2 +- mlprec/mld_s_slu_solver.F90 | 2 +- mlprec/mld_z_slu_solver.F90 | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/mlprec/mld_c_slu_solver.F90 b/mlprec/mld_c_slu_solver.F90 index 4802728c..cb5a2e82 100644 --- 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 diff --git a/mlprec/mld_d_slu_solver.F90 b/mlprec/mld_d_slu_solver.F90 index b92937a3..fefc638f 100644 --- 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 diff --git a/mlprec/mld_s_slu_solver.F90 b/mlprec/mld_s_slu_solver.F90 index d28b6124..f736e97d 100644 --- 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 diff --git a/mlprec/mld_z_slu_solver.F90 b/mlprec/mld_z_slu_solver.F90 index 3f0da8b8..2353f5a0 100644 --- 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