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

Modified IPK/LPK/EPK/MPK.

Browse Source
This commit is contained in:
Salvatore Filippone
2018-03-02 22:14:35 +00:00
parent 0f5ce22c8f
commit 48b211f9d7
82 changed files with 283 additions and 283 deletions
Download Patch File Download Diff File Expand all files Collapse all files
examples/fileread/mld_cexample_1lev.f90
+1 -1
View File
@@ -81,7 +81,7 @@ program mld_cexample_1lev
! other variables
integer :: i,info,j,m_problem
integer(psb_long_int_k_) :: amatsize, precsize, descsize
integer(psb_epk_) :: amatsize, precsize, descsize
integer :: ierr, ircode
real(psb_spk_) :: resmx, resmxp
real(psb_dpk_) :: t1, t2, tprec
examples/fileread/mld_cexample_ml.f90
+1 -1
View File
@@ -96,7 +96,7 @@ program mld_cexample_ml
! other variables
integer :: choice
integer :: i,info,j,m_problem
integer(psb_long_int_k_) :: amatsize, precsize, descsize
integer(psb_epk_) :: amatsize, precsize, descsize
integer :: ierr, ircode
real(psb_spk_) :: resmx, resmxp
real(psb_dpk_) :: t1, t2, tprec
examples/fileread/mld_dexample_1lev.f90
+1 -1
View File
@@ -81,7 +81,7 @@ program mld_dexample_1lev
! other variables
integer :: i,info,j,m_problem
integer(psb_long_int_k_) :: amatsize, precsize, descsize
integer(psb_epk_) :: amatsize, precsize, descsize
integer :: ierr, ircode
real(psb_dpk_) :: resmx, resmxp
real(psb_dpk_) :: t1, t2, tprec
examples/fileread/mld_dexample_ml.f90
+1 -1
View File
@@ -96,7 +96,7 @@ program mld_dexample_ml
! other variables
integer :: choice
integer :: i,info,j,m_problem
integer(psb_long_int_k_) :: amatsize, precsize, descsize
integer(psb_epk_) :: amatsize, precsize, descsize
integer :: ierr, ircode
real(psb_dpk_) :: resmx, resmxp
real(psb_dpk_) :: t1, t2, tprec
examples/fileread/mld_sexample_1lev.f90
+1 -1
View File
@@ -81,7 +81,7 @@ program mld_sexample_1lev
! other variables
integer :: i,info,j,m_problem
integer(psb_long_int_k_) :: amatsize, precsize, descsize
integer(psb_epk_) :: amatsize, precsize, descsize
integer :: ierr, ircode
real(psb_spk_) :: resmx, resmxp
real(psb_dpk_) :: t1, t2, tprec
examples/fileread/mld_sexample_ml.f90
+1 -1
View File
@@ -96,7 +96,7 @@ program mld_sexample_ml
! other variables
integer :: choice
integer :: i,info,j,m_problem
integer(psb_long_int_k_) :: amatsize, precsize, descsize
integer(psb_epk_) :: amatsize, precsize, descsize
integer :: ierr, ircode
real(psb_spk_) :: resmx, resmxp
real(psb_dpk_) :: t1, t2, tprec
examples/fileread/mld_zexample_1lev.f90
+1 -1
View File
@@ -81,7 +81,7 @@ program mld_zexample_1lev
! other variables
integer :: i,info,j,m_problem
integer(psb_long_int_k_) :: amatsize, precsize, descsize
integer(psb_epk_) :: amatsize, precsize, descsize
integer :: ierr, ircode
real(psb_dpk_) :: resmx, resmxp
real(psb_dpk_) :: t1, t2, tprec
examples/fileread/mld_zexample_ml.f90
+1 -1
View File
@@ -96,7 +96,7 @@ program mld_zexample_ml
! other variables
integer :: choice
integer :: i,info,j,m_problem
integer(psb_long_int_k_) :: amatsize, precsize, descsize
integer(psb_epk_) :: amatsize, precsize, descsize
integer :: ierr, ircode
real(psb_dpk_) :: resmx, resmxp
real(psb_dpk_) :: t1, t2, tprec
examples/pdegen/mld_dexample_1lev.f90
+1 -1
View File
@@ -88,7 +88,7 @@ program mld_dexample_1lev
! other variables
integer :: i,info,j
integer(psb_long_int_k_) :: amatsize, precsize, descsize
integer(psb_epk_) :: amatsize, precsize, descsize
integer :: idim, nlev, ierr, ircode
real(psb_dpk_) :: resmx, resmxp
real(psb_dpk_) :: t1, t2, tprec
examples/pdegen/mld_dexample_ml.f90
+1 -1
View File
@@ -108,7 +108,7 @@ program mld_dexample_ml
! other variables
integer :: choice
integer :: i,info,j
integer(psb_long_int_k_) :: amatsize, precsize, descsize
integer(psb_epk_) :: amatsize, precsize, descsize
integer :: idim, ierr, ircode
real(psb_dpk_) :: resmx, resmxp
real(psb_dpk_) :: t1, t2, tprec
examples/pdegen/mld_sexample_1lev.f90
+1 -1
View File
@@ -88,7 +88,7 @@ program mld_sexample_1lev
! other variables
integer :: i,info,j
integer(psb_long_int_k_) :: amatsize, precsize, descsize
integer(psb_epk_) :: amatsize, precsize, descsize
integer :: idim, nlev, ierr, ircode
real(psb_spk_) :: resmx, resmxp
real(psb_dpk_) :: t1, t2, tprec
examples/pdegen/mld_sexample_ml.f90
+1 -1
View File
@@ -108,7 +108,7 @@ program mld_sexample_ml
! other variables
integer :: choice
integer :: i,info,j
integer(psb_long_int_k_) :: amatsize, precsize, descsize
integer(psb_epk_) :: amatsize, precsize, descsize
integer :: idim, ierr, ircode
real(psb_spk_) :: resmx, resmxp
real(psb_dpk_) :: t1, t2, tprec