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

Take out use statement to compile with INTEL.

Browse Source
This commit is contained in:
Salvatore Filippone
2018-11-13 20:18:10 +00:00
parent 70a3a2090f
commit 1a82740826
20 changed files with 2 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/fileread/mld_cf_sample.f90
-1
View File
@@ -596,7 +596,6 @@ contains
!
subroutine get_parms(icontxt,mtrx,rhs,guess,sol,filefmt,part,afmt,solve,prec)
use psb_base_mod
implicit none
integer(psb_ipk_) :: icontxt
tests/fileread/mld_df_sample.f90
-1
View File
@@ -596,7 +596,6 @@ contains
!
subroutine get_parms(icontxt,mtrx,rhs,guess,sol,filefmt,part,afmt,solve,prec)
use psb_base_mod
implicit none
integer(psb_ipk_) :: icontxt
tests/fileread/mld_sf_sample.f90
-1
View File
@@ -596,7 +596,6 @@ contains
!
subroutine get_parms(icontxt,mtrx,rhs,guess,sol,filefmt,part,afmt,solve,prec)
use psb_base_mod
implicit none
integer(psb_ipk_) :: icontxt
tests/fileread/mld_zf_sample.f90
-1
View File
@@ -596,7 +596,6 @@ contains
!
subroutine get_parms(icontxt,mtrx,rhs,guess,sol,filefmt,part,afmt,solve,prec)
use psb_base_mod
implicit none
integer(psb_ipk_) :: icontxt
tests/pdegen/mld_d_pde2d.f90
-1
View File
@@ -897,7 +897,6 @@ contains
!
subroutine get_parms(icontxt,afmt,idim,solve,prec)
use psb_base_mod
implicit none
integer(psb_ipk_) :: icontxt, idim
tests/pdegen/mld_d_pde3d.f90
-1
View File
@@ -937,7 +937,6 @@ contains
!
subroutine get_parms(icontxt,afmt,idim,solve,prec)
use psb_base_mod
implicit none
integer(psb_ipk_) :: icontxt, idim
tests/pdegen/mld_s_pde2d.f90
-1
View File
@@ -897,7 +897,6 @@ contains
!
subroutine get_parms(icontxt,afmt,idim,solve,prec)
use psb_base_mod
implicit none
integer(psb_ipk_) :: icontxt, idim
tests/pdegen/mld_s_pde3d.f90
-1
View File
@@ -937,7 +937,6 @@ contains
!
subroutine get_parms(icontxt,afmt,idim,solve,prec)
use psb_base_mod
implicit none
integer(psb_ipk_) :: icontxt, idim