From 6b8ff2b597a8eac2ac8046ec6986ee6dcee17ffc Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Wed, 19 Jun 2013 18:00:48 +0000 Subject: [PATCH] mld2p4-2: mld_c_slu_solver.F90 mld_c_sludist_solver.F90 mld_d_slu_solver.F90 mld_d_sludist_solver.F90 mld_s_slu_solver.F90 mld_s_sludist_solver.F90 mld_z_slu_solver.F90 mld_z_sludist_solver.F90 Cleanup of fortran interfaces. SLUDIST is still broken. --- mlprec/mld_c_slu_solver.F90 | 2 +- mlprec/mld_c_sludist_solver.F90 | 2 +- mlprec/mld_d_slu_solver.F90 | 2 +- mlprec/mld_d_sludist_solver.F90 | 2 +- mlprec/mld_s_slu_solver.F90 | 2 +- mlprec/mld_s_sludist_solver.F90 | 2 +- mlprec/mld_z_slu_solver.F90 | 2 +- mlprec/mld_z_sludist_solver.F90 | 2 +- 8 files changed, 8 insertions(+), 8 deletions(-) diff --git a/mlprec/mld_c_slu_solver.F90 b/mlprec/mld_c_slu_solver.F90 index b21689bb..4090565e 100644 --- a/mlprec/mld_c_slu_solver.F90 +++ b/mlprec/mld_c_slu_solver.F90 @@ -280,7 +280,7 @@ contains call atmp%mv_to(acsr) nrow_a = acsr%get_nrows() nztota = acsr%get_nzeros() - ! Fix the entres to call C-base SuperLU + ! Fix the entries to call C-base SuperLU acsr%ja(:) = acsr%ja(:) - 1 acsr%irp(:) = acsr%irp(:) - 1 info = mld_cslu_fact(nrow_a,nztota,acsr%val,& diff --git a/mlprec/mld_c_sludist_solver.F90 b/mlprec/mld_c_sludist_solver.F90 index f8f57b09..37f45be6 100644 --- a/mlprec/mld_c_sludist_solver.F90 +++ b/mlprec/mld_c_sludist_solver.F90 @@ -282,7 +282,7 @@ contains call atmp%mv_to(acsr) nrow_a = acsr%get_nrows() nztota = acsr%get_nzeros() - ! Fix the entres to call C-base SuperLU + ! Fix the entries to call C-base SuperLU acsr%ja(:) = acsr%ja(:) - 1 acsr%irp(:) = acsr%irp(:) - 1 info = mld_csludist_fact(nrow_a,nztota,acsr%val,& diff --git a/mlprec/mld_d_slu_solver.F90 b/mlprec/mld_d_slu_solver.F90 index cd79a6f6..ec95cd5c 100644 --- a/mlprec/mld_d_slu_solver.F90 +++ b/mlprec/mld_d_slu_solver.F90 @@ -280,7 +280,7 @@ contains call atmp%mv_to(acsr) nrow_a = acsr%get_nrows() nztota = acsr%get_nzeros() - ! Fix the entres to call C-base SuperLU + ! Fix the entries to call C-base SuperLU acsr%ja(:) = acsr%ja(:) - 1 acsr%irp(:) = acsr%irp(:) - 1 info = mld_dslu_fact(nrow_a,nztota,acsr%val,& diff --git a/mlprec/mld_d_sludist_solver.F90 b/mlprec/mld_d_sludist_solver.F90 index 834e2d67..69371617 100644 --- a/mlprec/mld_d_sludist_solver.F90 +++ b/mlprec/mld_d_sludist_solver.F90 @@ -282,7 +282,7 @@ contains call atmp%mv_to(acsr) nrow_a = acsr%get_nrows() nztota = acsr%get_nzeros() - ! Fix the entres to call C-base SuperLU + ! Fix the entries to call C-base SuperLU acsr%ja(:) = acsr%ja(:) - 1 acsr%irp(:) = acsr%irp(:) - 1 info = mld_dsludist_fact(nrow_a,nztota,acsr%val,& diff --git a/mlprec/mld_s_slu_solver.F90 b/mlprec/mld_s_slu_solver.F90 index fbf76dae..a1354fc9 100644 --- a/mlprec/mld_s_slu_solver.F90 +++ b/mlprec/mld_s_slu_solver.F90 @@ -280,7 +280,7 @@ contains call atmp%mv_to(acsr) nrow_a = acsr%get_nrows() nztota = acsr%get_nzeros() - ! Fix the entres to call C-base SuperLU + ! Fix the entries to call C-base SuperLU acsr%ja(:) = acsr%ja(:) - 1 acsr%irp(:) = acsr%irp(:) - 1 info = mld_sslu_fact(nrow_a,nztota,acsr%val,& diff --git a/mlprec/mld_s_sludist_solver.F90 b/mlprec/mld_s_sludist_solver.F90 index a17f9d64..83fb40d2 100644 --- a/mlprec/mld_s_sludist_solver.F90 +++ b/mlprec/mld_s_sludist_solver.F90 @@ -282,7 +282,7 @@ contains call atmp%mv_to(acsr) nrow_a = acsr%get_nrows() nztota = acsr%get_nzeros() - ! Fix the entres to call C-base SuperLU + ! Fix the entries to call C-base SuperLU acsr%ja(:) = acsr%ja(:) - 1 acsr%irp(:) = acsr%irp(:) - 1 info = mld_ssludist_fact(nrow_a,nztota,acsr%val,& diff --git a/mlprec/mld_z_slu_solver.F90 b/mlprec/mld_z_slu_solver.F90 index 1dfc4088..2cd36633 100644 --- a/mlprec/mld_z_slu_solver.F90 +++ b/mlprec/mld_z_slu_solver.F90 @@ -280,7 +280,7 @@ contains call atmp%mv_to(acsr) nrow_a = acsr%get_nrows() nztota = acsr%get_nzeros() - ! Fix the entres to call C-base SuperLU + ! Fix the entries to call C-base SuperLU acsr%ja(:) = acsr%ja(:) - 1 acsr%irp(:) = acsr%irp(:) - 1 info = mld_zslu_fact(nrow_a,nztota,acsr%val,& diff --git a/mlprec/mld_z_sludist_solver.F90 b/mlprec/mld_z_sludist_solver.F90 index c6dedaf7..d15f272b 100644 --- a/mlprec/mld_z_sludist_solver.F90 +++ b/mlprec/mld_z_sludist_solver.F90 @@ -282,7 +282,7 @@ contains call atmp%mv_to(acsr) nrow_a = acsr%get_nrows() nztota = acsr%get_nzeros() - ! Fix the entres to call C-base SuperLU + ! Fix the entries to call C-base SuperLU acsr%ja(:) = acsr%ja(:) - 1 acsr%irp(:) = acsr%irp(:) - 1 info = mld_zsludist_fact(nrow_a,nztota,acsr%val,&