mirror of
https://github.com/sfilippone/amg4psblas.git
synced 2026-10-06 22:55:12 +00:00
Fix SLU interface for LPK.
This commit is contained in:
@@ -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
|
||||
|
||||
|
||||
@@ -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
|
||||
|
||||
|
||||
@@ -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
|
||||
|
||||
|
||||
@@ -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
|
||||
|
||||
|
||||
Reference in New Issue
Block a user