fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-18 03:42:10 +00:00
Code Issues Packages Projects Releases Wiki Activity

mld2p4-2:

Browse Source 
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.
This commit is contained in:
Salvatore Filippone
2013-06-19 18:00:48 +00:00
parent 96978aa29c
commit 6b8ff2b597
8 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/mld_c_slu_solver.F90
+1 -1
View File
@@ -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,&
mlprec/mld_c_sludist_solver.F90
+1 -1
View File
@@ -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,&
mlprec/mld_d_slu_solver.F90
+1 -1
View File
@@ -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,&
mlprec/mld_d_sludist_solver.F90
+1 -1
View File
@@ -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,&
mlprec/mld_s_slu_solver.F90
+1 -1
View File
@@ -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,&
mlprec/mld_s_sludist_solver.F90
+1 -1
View File
@@ -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,&
mlprec/mld_z_slu_solver.F90
+1 -1
View File
@@ -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,&
mlprec/mld_z_sludist_solver.F90
+1 -1
View File
@@ -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,&