fdurastante
/
amg4psblas
mirror of https://github.com/sfilippone/amg4psblas.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

mld2p4-2

Browse Source 
Fixes for USE statements on XLF.
stopcriterion
Salvatore Filippone 15 years ago
parent dd22c4ca47
commit 4c7bbe2d56
4 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File

2
mlprec/mld_dilu0_fact.f90
Unescape Escape View File

@ -102,7 +102,7 @@
subroutine mld_dilu0_fact(ialg,a,l,u,d,info,blck, upd)
use psb_sparse_mod
use mld_inner_mod, mld_protect_name => mld_dilu0_fact
use mld_inner_mod!, mld_protect_name => mld_dilu0_fact
implicit none

2
mlprec/mld_diluk_fact.f90
Unescape Escape View File

@ -99,7 +99,7 @@
subroutine mld_diluk_fact(fill_in,ialg,a,l,u,d,info,blck)
use psb_sparse_mod
use mld_inner_mod, mld_protect_name => mld_diluk_fact
use mld_inner_mod!, mld_protect_name => mld_diluk_fact
implicit none

2
mlprec/mld_dilut_fact.f90
Unescape Escape View File

@ -95,7 +95,7 @@
subroutine mld_dilut_fact(fill_in,thres,a,l,u,d,info,blck)
use psb_sparse_mod
use mld_inner_mod, mld_protect_name => mld_dilut_fact
use mld_inner_mod!, mld_protect_name => mld_dilut_fact
implicit none

4
mlprec/mld_dprecaply.f90
Unescape Escape View File

@ -75,7 +75,7 @@ subroutine mld_dprecaply(prec,x,y,desc_data,info,trans,work)
use psb_sparse_mod
use mld_inner_mod, mld_protect_name => mld_dprecaply
use mld_prec_mod, mld_protect_name => mld_dprecaply
! use mld_prec_mod, mld_protect_name => mld_dprecaply
implicit none
@ -209,7 +209,7 @@ subroutine mld_dprecaply1(prec,x,desc_data,info,trans)
use psb_sparse_mod
use mld_inner_mod, mld_protect_name => mld_dprecaply1
use mld_prec_mod, mld_protect_name => mld_dprecaply1
! use mld_prec_mod, mld_protect_name => mld_dprecaply1
implicit none

Write Preview
Loading…
Cancel
Save