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

Krylov into linsolve, step 4

Browse Source
repack-newsolve
sfilippone 3 months ago
parent 14dce3eefd
commit 98d5db7377
54 changed files with 61 additions and 61 deletions
Show Stats Download Patch File Download Diff File

4
cbind/krylov/psb_ckrylov_cbind_mod.f90
Unescape Escape View File

@ -8,7 +8,7 @@ contains
& ah,ph,bh,xh,cdh,options) bind(c) result(res) & ah,ph,bh,xh,cdh,options) bind(c) result(res)
use psb_base_mod use psb_base_mod
use psb_prec_mod use psb_prec_mod
use psb_krylov_mod use psb_linsolve_mod
use psb_objhandle_mod use psb_objhandle_mod
use psb_prec_cbind_mod use psb_prec_cbind_mod
use psb_base_string_cbind_mod use psb_base_string_cbind_mod
@ -33,7 +33,7 @@ contains
& ah,ph,bh,xh,eps,cdh,itmax,iter,err,itrace,irst,istop) bind(c) result(res) & ah,ph,bh,xh,eps,cdh,itmax,iter,err,itrace,irst,istop) bind(c) result(res)
use psb_base_mod use psb_base_mod
use psb_prec_mod use psb_prec_mod
use psb_krylov_mod use psb_linsolve_mod
use psb_objhandle_mod use psb_objhandle_mod
use psb_prec_cbind_mod use psb_prec_cbind_mod
use psb_base_string_cbind_mod use psb_base_string_cbind_mod

4
cbind/krylov/psb_dkrylov_cbind_mod.f90
Unescape Escape View File

@ -8,7 +8,7 @@ contains
& ah,ph,bh,xh,cdh,options) bind(c) result(res) & ah,ph,bh,xh,cdh,options) bind(c) result(res)
use psb_base_mod use psb_base_mod
use psb_prec_mod use psb_prec_mod
use psb_krylov_mod use psb_linsolve_mod
use psb_objhandle_mod use psb_objhandle_mod
use psb_prec_cbind_mod use psb_prec_cbind_mod
use psb_base_string_cbind_mod use psb_base_string_cbind_mod
@ -33,7 +33,7 @@ contains
& ah,ph,bh,xh,eps,cdh,itmax,iter,err,itrace,irst,istop) bind(c) result(res) & ah,ph,bh,xh,eps,cdh,itmax,iter,err,itrace,irst,istop) bind(c) result(res)
use psb_base_mod use psb_base_mod
use psb_prec_mod use psb_prec_mod
use psb_krylov_mod use psb_linsolve_mod
use psb_objhandle_mod use psb_objhandle_mod
use psb_prec_cbind_mod use psb_prec_cbind_mod
use psb_base_string_cbind_mod use psb_base_string_cbind_mod

4
cbind/krylov/psb_skrylov_cbind_mod.f90
Unescape Escape View File

@ -8,7 +8,7 @@ contains
& ah,ph,bh,xh,cdh,options) bind(c) result(res) & ah,ph,bh,xh,cdh,options) bind(c) result(res)
use psb_base_mod use psb_base_mod
use psb_prec_mod use psb_prec_mod
use psb_krylov_mod use psb_linsolve_mod
use psb_objhandle_mod use psb_objhandle_mod
use psb_prec_cbind_mod use psb_prec_cbind_mod
use psb_base_string_cbind_mod use psb_base_string_cbind_mod
@ -33,7 +33,7 @@ contains
& ah,ph,bh,xh,eps,cdh,itmax,iter,err,itrace,irst,istop) bind(c) result(res) & ah,ph,bh,xh,eps,cdh,itmax,iter,err,itrace,irst,istop) bind(c) result(res)
use psb_base_mod use psb_base_mod
use psb_prec_mod use psb_prec_mod
use psb_krylov_mod use psb_linsolve_mod
use psb_objhandle_mod use psb_objhandle_mod
use psb_prec_cbind_mod use psb_prec_cbind_mod
use psb_base_string_cbind_mod use psb_base_string_cbind_mod

4
cbind/krylov/psb_zkrylov_cbind_mod.f90
Unescape Escape View File

@ -8,7 +8,7 @@ contains
& ah,ph,bh,xh,cdh,options) bind(c) result(res) & ah,ph,bh,xh,cdh,options) bind(c) result(res)
use psb_base_mod use psb_base_mod
use psb_prec_mod use psb_prec_mod
use psb_krylov_mod use psb_linsolve_mod
use psb_objhandle_mod use psb_objhandle_mod
use psb_prec_cbind_mod use psb_prec_cbind_mod
use psb_base_string_cbind_mod use psb_base_string_cbind_mod
@ -33,7 +33,7 @@ contains
& ah,ph,bh,xh,eps,cdh,itmax,iter,err,itrace,irst,istop) bind(c) result(res) & ah,ph,bh,xh,eps,cdh,itmax,iter,err,itrace,irst,istop) bind(c) result(res)
use psb_base_mod use psb_base_mod
use psb_prec_mod use psb_prec_mod
use psb_krylov_mod use psb_linsolve_mod
use psb_objhandle_mod use psb_objhandle_mod
use psb_prec_cbind_mod use psb_prec_cbind_mod
use psb_base_string_cbind_mod use psb_base_string_cbind_mod

2
linsolve/Makefile
Unescape Escape View File

@ -9,7 +9,7 @@ MODDIR=../modules
MODOBJS= psb_base_linsolve_conv_mod.o \ MODOBJS= psb_base_linsolve_conv_mod.o \
psb_s_linsolve_conv_mod.o psb_c_linsolve_conv_mod.o \ psb_s_linsolve_conv_mod.o psb_c_linsolve_conv_mod.o \
psb_d_linsolve_conv_mod.o psb_z_linsolve_conv_mod.o \ psb_d_linsolve_conv_mod.o psb_z_linsolve_conv_mod.o \
psb_krylov_mod.o psb_linsolve_mod.o
F90OBJS=psb_dkrylov.o psb_skrylov.o psb_ckrylov.o psb_zkrylov.o \ F90OBJS=psb_dkrylov.o psb_skrylov.o psb_ckrylov.o psb_zkrylov.o \
psb_drichardson.o psb_srichardson.o psb_crichardson.o psb_zrichardson.o \ psb_drichardson.o psb_srichardson.o psb_crichardson.o psb_zrichardson.o \
psb_dcgstab.o psb_dcg.o psb_dfcg.o psb_dgcr.o psb_dcgs.o \ psb_dcgstab.o psb_dcg.o psb_dfcg.o psb_dgcr.o psb_dcgs.o \

2
linsolve/psb_cbicg.f90
Unescape Escape View File

@ -99,7 +99,7 @@ subroutine psb_cbicg_vect(a,prec,b,x,eps,desc_a,info,&
use psb_base_mod use psb_base_mod
use psb_prec_mod use psb_prec_mod
use psb_c_linsolve_conv_mod use psb_c_linsolve_conv_mod
use psb_krylov_mod use psb_linsolve_mod
implicit none implicit none
type(psb_cspmat_type), intent(in) :: a type(psb_cspmat_type), intent(in) :: a
type(psb_desc_type), intent(in) :: desc_a type(psb_desc_type), intent(in) :: desc_a

2
linsolve/psb_ccg.F90
Unescape Escape View File

@ -100,7 +100,7 @@ subroutine psb_ccg_vect(a,prec,b,x,eps,desc_a,info,&
use psb_base_mod use psb_base_mod
use psb_prec_mod use psb_prec_mod
use psb_c_linsolve_conv_mod use psb_c_linsolve_conv_mod
use psb_krylov_mod use psb_linsolve_mod
implicit none implicit none
type(psb_cspmat_type), intent(in) :: a type(psb_cspmat_type), intent(in) :: a
Type(psb_desc_type), Intent(in) :: desc_a Type(psb_desc_type), Intent(in) :: desc_a

2
linsolve/psb_ccgs.f90
Unescape Escape View File

@ -97,7 +97,7 @@ Subroutine psb_ccgs_vect(a,prec,b,x,eps,desc_a,info,&
use psb_base_mod use psb_base_mod
use psb_prec_mod use psb_prec_mod
use psb_c_linsolve_conv_mod use psb_c_linsolve_conv_mod
use psb_krylov_mod use psb_linsolve_mod
implicit none implicit none
type(psb_cspmat_type), intent(in) :: a type(psb_cspmat_type), intent(in) :: a
Type(psb_desc_type), Intent(in) :: desc_a Type(psb_desc_type), Intent(in) :: desc_a

2
linsolve/psb_ccgstab.f90
Unescape Escape View File

@ -97,7 +97,7 @@ Subroutine psb_ccgstab_vect(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,ist
use psb_base_mod use psb_base_mod
use psb_prec_mod use psb_prec_mod
use psb_c_linsolve_conv_mod use psb_c_linsolve_conv_mod
use psb_krylov_mod use psb_linsolve_mod
implicit none implicit none
type(psb_cspmat_type), intent(in) :: a type(psb_cspmat_type), intent(in) :: a
class(psb_cprec_type), Intent(inout) :: prec class(psb_cprec_type), Intent(inout) :: prec

2
linsolve/psb_ccgstabl.f90
Unescape Escape View File

@ -108,7 +108,7 @@ Subroutine psb_ccgstabl_vect(a,prec,b,x,eps,desc_a,info,&
use psb_base_mod use psb_base_mod
use psb_prec_mod use psb_prec_mod
use psb_c_linsolve_conv_mod use psb_c_linsolve_conv_mod
use psb_krylov_mod use psb_linsolve_mod
implicit none implicit none
type(psb_cspmat_type), intent(in) :: a type(psb_cspmat_type), intent(in) :: a
class(psb_cprec_type), Intent(inout) :: prec class(psb_cprec_type), Intent(inout) :: prec

2
linsolve/psb_cfcg.F90
Unescape Escape View File

@ -108,7 +108,7 @@ subroutine psb_cfcg_vect(a,prec,b,x,eps,desc_a,info,&
use psb_base_mod use psb_base_mod
use psb_prec_mod use psb_prec_mod
use psb_c_linsolve_conv_mod use psb_c_linsolve_conv_mod
use psb_krylov_mod use psb_linsolve_mod
implicit none implicit none
type(psb_cspmat_type), intent(in) :: a type(psb_cspmat_type), intent(in) :: a
Type(psb_desc_type), Intent(in) :: desc_a Type(psb_desc_type), Intent(in) :: desc_a

2
linsolve/psb_cgcr.f90
Unescape Escape View File

@ -110,7 +110,7 @@ subroutine psb_cgcr_vect(a,prec,b,x,eps,desc_a,info,&
use psb_base_mod use psb_base_mod
use psb_prec_mod use psb_prec_mod
use psb_c_linsolve_conv_mod use psb_c_linsolve_conv_mod
use psb_krylov_mod use psb_linsolve_mod
implicit none implicit none

2
linsolve/psb_ckrylov.f90
Unescape Escape View File

@ -84,7 +84,7 @@ Subroutine psb_ckrylov_vect(method,a,prec,b,x,eps,desc_a,info,&
use psb_base_mod use psb_base_mod
use psb_prec_mod,only : psb_cprec_type use psb_prec_mod,only : psb_cprec_type
use psb_krylov_mod, psb_protect_name => psb_ckrylov_vect use psb_linsolve_mod, psb_protect_name => psb_ckrylov_vect
character(len=*) :: method character(len=*) :: method
Type(psb_cspmat_type), Intent(in) :: a Type(psb_cspmat_type), Intent(in) :: a

2
linsolve/psb_crgmres.f90
Unescape Escape View File

@ -111,7 +111,7 @@ subroutine psb_crgmres_vect(a,prec,b,x,eps,desc_a,info,&
use psb_base_mod use psb_base_mod
use psb_prec_mod use psb_prec_mod
use psb_c_linsolve_conv_mod use psb_c_linsolve_conv_mod
use psb_krylov_mod use psb_linsolve_mod
implicit none implicit none
type(psb_cspmat_type), intent(in) :: a type(psb_cspmat_type), intent(in) :: a
Type(psb_desc_type), Intent(in) :: desc_a Type(psb_desc_type), Intent(in) :: desc_a

2
linsolve/psb_crichardson.f90
Unescape Escape View File

@ -74,7 +74,7 @@ Subroutine psb_crichardson_vect(a,prec,b,x,eps,desc_a,info,&
use psb_base_mod use psb_base_mod
use psb_prec_mod use psb_prec_mod
use psb_c_linsolve_conv_mod use psb_c_linsolve_conv_mod
use psb_krylov_mod, psb_protect_name => psb_crichardson_vect use psb_linsolve_mod, psb_protect_name => psb_crichardson_vect
Type(psb_cspmat_type), Intent(in) :: a Type(psb_cspmat_type), Intent(in) :: a
Type(psb_desc_type), Intent(in) :: desc_a Type(psb_desc_type), Intent(in) :: desc_a

2
linsolve/psb_dbicg.f90
Unescape Escape View File

@ -99,7 +99,7 @@ subroutine psb_dbicg_vect(a,prec,b,x,eps,desc_a,info,&
use psb_base_mod use psb_base_mod
use psb_prec_mod use psb_prec_mod
use psb_d_linsolve_conv_mod use psb_d_linsolve_conv_mod
use psb_krylov_mod use psb_linsolve_mod
implicit none implicit none
type(psb_dspmat_type), intent(in) :: a type(psb_dspmat_type), intent(in) :: a
type(psb_desc_type), intent(in) :: desc_a type(psb_desc_type), intent(in) :: desc_a

2
linsolve/psb_dcg.F90
Unescape Escape View File

@ -100,7 +100,7 @@ subroutine psb_dcg_vect(a,prec,b,x,eps,desc_a,info,&
use psb_base_mod use psb_base_mod
use psb_prec_mod use psb_prec_mod
use psb_d_linsolve_conv_mod use psb_d_linsolve_conv_mod
use psb_krylov_mod use psb_linsolve_mod
implicit none implicit none
type(psb_dspmat_type), intent(in) :: a type(psb_dspmat_type), intent(in) :: a
Type(psb_desc_type), Intent(in) :: desc_a Type(psb_desc_type), Intent(in) :: desc_a

2
linsolve/psb_dcgs.f90
Unescape Escape View File

@ -97,7 +97,7 @@ Subroutine psb_dcgs_vect(a,prec,b,x,eps,desc_a,info,&
use psb_base_mod use psb_base_mod
use psb_prec_mod use psb_prec_mod
use psb_d_linsolve_conv_mod use psb_d_linsolve_conv_mod
use psb_krylov_mod use psb_linsolve_mod
implicit none implicit none
type(psb_dspmat_type), intent(in) :: a type(psb_dspmat_type), intent(in) :: a
Type(psb_desc_type), Intent(in) :: desc_a Type(psb_desc_type), Intent(in) :: desc_a

2
linsolve/psb_dcgstab.f90
Unescape Escape View File

@ -97,7 +97,7 @@ Subroutine psb_dcgstab_vect(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,ist
use psb_base_mod use psb_base_mod
use psb_prec_mod use psb_prec_mod
use psb_d_linsolve_conv_mod use psb_d_linsolve_conv_mod
use psb_krylov_mod use psb_linsolve_mod
implicit none implicit none
type(psb_dspmat_type), intent(in) :: a type(psb_dspmat_type), intent(in) :: a
class(psb_dprec_type), Intent(inout) :: prec class(psb_dprec_type), Intent(inout) :: prec

2
linsolve/psb_dcgstabl.f90
Unescape Escape View File

@ -108,7 +108,7 @@ Subroutine psb_dcgstabl_vect(a,prec,b,x,eps,desc_a,info,&
use psb_base_mod use psb_base_mod
use psb_prec_mod use psb_prec_mod
use psb_d_linsolve_conv_mod use psb_d_linsolve_conv_mod
use psb_krylov_mod use psb_linsolve_mod
implicit none implicit none
type(psb_dspmat_type), intent(in) :: a type(psb_dspmat_type), intent(in) :: a
class(psb_dprec_type), Intent(inout) :: prec class(psb_dprec_type), Intent(inout) :: prec

2
linsolve/psb_dfcg.F90
Unescape Escape View File

@ -108,7 +108,7 @@ subroutine psb_dfcg_vect(a,prec,b,x,eps,desc_a,info,&
use psb_base_mod use psb_base_mod
use psb_prec_mod use psb_prec_mod
use psb_d_linsolve_conv_mod use psb_d_linsolve_conv_mod
use psb_krylov_mod use psb_linsolve_mod
implicit none implicit none
type(psb_dspmat_type), intent(in) :: a type(psb_dspmat_type), intent(in) :: a
Type(psb_desc_type), Intent(in) :: desc_a Type(psb_desc_type), Intent(in) :: desc_a

2
linsolve/psb_dgcr.f90
Unescape Escape View File

@ -110,7 +110,7 @@ subroutine psb_dgcr_vect(a,prec,b,x,eps,desc_a,info,&
use psb_base_mod use psb_base_mod
use psb_prec_mod use psb_prec_mod
use psb_d_linsolve_conv_mod use psb_d_linsolve_conv_mod
use psb_krylov_mod use psb_linsolve_mod
implicit none implicit none

2
linsolve/psb_dkrylov.f90
Unescape Escape View File

@ -84,7 +84,7 @@ Subroutine psb_dkrylov_vect(method,a,prec,b,x,eps,desc_a,info,&
use psb_base_mod use psb_base_mod
use psb_prec_mod,only : psb_dprec_type use psb_prec_mod,only : psb_dprec_type
use psb_krylov_mod, psb_protect_name => psb_dkrylov_vect use psb_linsolve_mod, psb_protect_name => psb_dkrylov_vect
character(len=*) :: method character(len=*) :: method
Type(psb_dspmat_type), Intent(in) :: a Type(psb_dspmat_type), Intent(in) :: a

2
linsolve/psb_drgmres.f90
Unescape Escape View File

@ -111,7 +111,7 @@ subroutine psb_drgmres_vect(a,prec,b,x,eps,desc_a,info,&
use psb_base_mod use psb_base_mod
use psb_prec_mod use psb_prec_mod
use psb_d_linsolve_conv_mod use psb_d_linsolve_conv_mod
use psb_krylov_mod use psb_linsolve_mod
implicit none implicit none
type(psb_dspmat_type), intent(in) :: a type(psb_dspmat_type), intent(in) :: a
Type(psb_desc_type), Intent(in) :: desc_a Type(psb_desc_type), Intent(in) :: desc_a

2
linsolve/psb_drichardson.f90
Unescape Escape View File

@ -74,7 +74,7 @@ Subroutine psb_drichardson_vect(a,prec,b,x,eps,desc_a,info,&
use psb_base_mod use psb_base_mod
use psb_prec_mod use psb_prec_mod
use psb_d_linsolve_conv_mod use psb_d_linsolve_conv_mod
use psb_krylov_mod, psb_protect_name => psb_drichardson_vect use psb_linsolve_mod, psb_protect_name => psb_drichardson_vect
Type(psb_dspmat_type), Intent(in) :: a Type(psb_dspmat_type), Intent(in) :: a
Type(psb_desc_type), Intent(in) :: desc_a Type(psb_desc_type), Intent(in) :: desc_a

8
linsolve/psb_krylov_mod.f90 → linsolve/psb_linsolve_mod.f90
Unescape Escape View File

@ -30,10 +30,10 @@
! !
! !
! !
! File: psb_krylov_mod.f90 ! File: psb_linsolve_mod.f90
! Interfaces for Krylov subspace iterative methods. ! Interfaces for linear solvers.
! !
Module psb_krylov_mod Module psb_linsolve_mod
use psb_const_mod use psb_const_mod
public public
@ -211,4 +211,4 @@ Module psb_krylov_mod
end interface end interface
end module psb_krylov_mod end module psb_linsolve_mod

2
linsolve/psb_sbicg.f90
Unescape Escape View File

@ -99,7 +99,7 @@ subroutine psb_sbicg_vect(a,prec,b,x,eps,desc_a,info,&
use psb_base_mod use psb_base_mod
use psb_prec_mod use psb_prec_mod
use psb_s_linsolve_conv_mod use psb_s_linsolve_conv_mod
use psb_krylov_mod use psb_linsolve_mod
implicit none implicit none
type(psb_sspmat_type), intent(in) :: a type(psb_sspmat_type), intent(in) :: a
type(psb_desc_type), intent(in) :: desc_a type(psb_desc_type), intent(in) :: desc_a

2
linsolve/psb_scg.F90
Unescape Escape View File

@ -100,7 +100,7 @@ subroutine psb_scg_vect(a,prec,b,x,eps,desc_a,info,&
use psb_base_mod use psb_base_mod
use psb_prec_mod use psb_prec_mod
use psb_s_linsolve_conv_mod use psb_s_linsolve_conv_mod
use psb_krylov_mod use psb_linsolve_mod
implicit none implicit none
type(psb_sspmat_type), intent(in) :: a type(psb_sspmat_type), intent(in) :: a
Type(psb_desc_type), Intent(in) :: desc_a Type(psb_desc_type), Intent(in) :: desc_a

2
linsolve/psb_scgs.f90
Unescape Escape View File

@ -97,7 +97,7 @@ Subroutine psb_scgs_vect(a,prec,b,x,eps,desc_a,info,&
use psb_base_mod use psb_base_mod
use psb_prec_mod use psb_prec_mod
use psb_s_linsolve_conv_mod use psb_s_linsolve_conv_mod
use psb_krylov_mod use psb_linsolve_mod
implicit none implicit none
type(psb_sspmat_type), intent(in) :: a type(psb_sspmat_type), intent(in) :: a
Type(psb_desc_type), Intent(in) :: desc_a Type(psb_desc_type), Intent(in) :: desc_a

2
linsolve/psb_scgstab.f90
Unescape Escape View File

@ -97,7 +97,7 @@ Subroutine psb_scgstab_vect(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,ist
use psb_base_mod use psb_base_mod
use psb_prec_mod use psb_prec_mod
use psb_s_linsolve_conv_mod use psb_s_linsolve_conv_mod
use psb_krylov_mod use psb_linsolve_mod
implicit none implicit none
type(psb_sspmat_type), intent(in) :: a type(psb_sspmat_type), intent(in) :: a
class(psb_sprec_type), Intent(inout) :: prec class(psb_sprec_type), Intent(inout) :: prec

2
linsolve/psb_scgstabl.f90
Unescape Escape View File

@ -108,7 +108,7 @@ Subroutine psb_scgstabl_vect(a,prec,b,x,eps,desc_a,info,&
use psb_base_mod use psb_base_mod
use psb_prec_mod use psb_prec_mod
use psb_s_linsolve_conv_mod use psb_s_linsolve_conv_mod
use psb_krylov_mod use psb_linsolve_mod
implicit none implicit none
type(psb_sspmat_type), intent(in) :: a type(psb_sspmat_type), intent(in) :: a
class(psb_sprec_type), Intent(inout) :: prec class(psb_sprec_type), Intent(inout) :: prec

2
linsolve/psb_sfcg.F90
Unescape Escape View File

@ -108,7 +108,7 @@ subroutine psb_sfcg_vect(a,prec,b,x,eps,desc_a,info,&
use psb_base_mod use psb_base_mod
use psb_prec_mod use psb_prec_mod
use psb_s_linsolve_conv_mod use psb_s_linsolve_conv_mod
use psb_krylov_mod use psb_linsolve_mod
implicit none implicit none
type(psb_sspmat_type), intent(in) :: a type(psb_sspmat_type), intent(in) :: a
Type(psb_desc_type), Intent(in) :: desc_a Type(psb_desc_type), Intent(in) :: desc_a

2
linsolve/psb_sgcr.f90
Unescape Escape View File

@ -110,7 +110,7 @@ subroutine psb_sgcr_vect(a,prec,b,x,eps,desc_a,info,&
use psb_base_mod use psb_base_mod
use psb_prec_mod use psb_prec_mod
use psb_s_linsolve_conv_mod use psb_s_linsolve_conv_mod
use psb_krylov_mod use psb_linsolve_mod
implicit none implicit none

2
linsolve/psb_skrylov.f90
Unescape Escape View File

@ -84,7 +84,7 @@ Subroutine psb_skrylov_vect(method,a,prec,b,x,eps,desc_a,info,&
use psb_base_mod use psb_base_mod
use psb_prec_mod,only : psb_sprec_type use psb_prec_mod,only : psb_sprec_type
use psb_krylov_mod, psb_protect_name => psb_skrylov_vect use psb_linsolve_mod, psb_protect_name => psb_skrylov_vect
character(len=*) :: method character(len=*) :: method
Type(psb_sspmat_type), Intent(in) :: a Type(psb_sspmat_type), Intent(in) :: a

2
linsolve/psb_srgmres.f90
Unescape Escape View File

@ -111,7 +111,7 @@ subroutine psb_srgmres_vect(a,prec,b,x,eps,desc_a,info,&
use psb_base_mod use psb_base_mod
use psb_prec_mod use psb_prec_mod
use psb_s_linsolve_conv_mod use psb_s_linsolve_conv_mod
use psb_krylov_mod use psb_linsolve_mod
implicit none implicit none
type(psb_sspmat_type), intent(in) :: a type(psb_sspmat_type), intent(in) :: a
Type(psb_desc_type), Intent(in) :: desc_a Type(psb_desc_type), Intent(in) :: desc_a

2
linsolve/psb_srichardson.f90
Unescape Escape View File

@ -74,7 +74,7 @@ Subroutine psb_srichardson_vect(a,prec,b,x,eps,desc_a,info,&
use psb_base_mod use psb_base_mod
use psb_prec_mod use psb_prec_mod
use psb_s_linsolve_conv_mod use psb_s_linsolve_conv_mod
use psb_krylov_mod, psb_protect_name => psb_srichardson_vect use psb_linsolve_mod, psb_protect_name => psb_srichardson_vect
Type(psb_sspmat_type), Intent(in) :: a Type(psb_sspmat_type), Intent(in) :: a
Type(psb_desc_type), Intent(in) :: desc_a Type(psb_desc_type), Intent(in) :: desc_a

2
linsolve/psb_zbicg.f90
Unescape Escape View File

@ -99,7 +99,7 @@ subroutine psb_zbicg_vect(a,prec,b,x,eps,desc_a,info,&
use psb_base_mod use psb_base_mod
use psb_prec_mod use psb_prec_mod
use psb_z_linsolve_conv_mod use psb_z_linsolve_conv_mod
use psb_krylov_mod use psb_linsolve_mod
implicit none implicit none
type(psb_zspmat_type), intent(in) :: a type(psb_zspmat_type), intent(in) :: a
type(psb_desc_type), intent(in) :: desc_a type(psb_desc_type), intent(in) :: desc_a

2
linsolve/psb_zcg.F90
Unescape Escape View File

@ -100,7 +100,7 @@ subroutine psb_zcg_vect(a,prec,b,x,eps,desc_a,info,&
use psb_base_mod use psb_base_mod
use psb_prec_mod use psb_prec_mod
use psb_z_linsolve_conv_mod use psb_z_linsolve_conv_mod
use psb_krylov_mod use psb_linsolve_mod
implicit none implicit none
type(psb_zspmat_type), intent(in) :: a type(psb_zspmat_type), intent(in) :: a
Type(psb_desc_type), Intent(in) :: desc_a Type(psb_desc_type), Intent(in) :: desc_a

2
linsolve/psb_zcgs.f90
Unescape Escape View File

@ -97,7 +97,7 @@ Subroutine psb_zcgs_vect(a,prec,b,x,eps,desc_a,info,&
use psb_base_mod use psb_base_mod
use psb_prec_mod use psb_prec_mod
use psb_z_linsolve_conv_mod use psb_z_linsolve_conv_mod
use psb_krylov_mod use psb_linsolve_mod
implicit none implicit none
type(psb_zspmat_type), intent(in) :: a type(psb_zspmat_type), intent(in) :: a
Type(psb_desc_type), Intent(in) :: desc_a Type(psb_desc_type), Intent(in) :: desc_a

2
linsolve/psb_zcgstab.f90
Unescape Escape View File

@ -97,7 +97,7 @@ Subroutine psb_zcgstab_vect(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,ist
use psb_base_mod use psb_base_mod
use psb_prec_mod use psb_prec_mod
use psb_z_linsolve_conv_mod use psb_z_linsolve_conv_mod
use psb_krylov_mod use psb_linsolve_mod
implicit none implicit none
type(psb_zspmat_type), intent(in) :: a type(psb_zspmat_type), intent(in) :: a
class(psb_zprec_type), Intent(inout) :: prec class(psb_zprec_type), Intent(inout) :: prec

2
linsolve/psb_zcgstabl.f90
Unescape Escape View File

@ -108,7 +108,7 @@ Subroutine psb_zcgstabl_vect(a,prec,b,x,eps,desc_a,info,&
use psb_base_mod use psb_base_mod
use psb_prec_mod use psb_prec_mod
use psb_z_linsolve_conv_mod use psb_z_linsolve_conv_mod
use psb_krylov_mod use psb_linsolve_mod
implicit none implicit none
type(psb_zspmat_type), intent(in) :: a type(psb_zspmat_type), intent(in) :: a
class(psb_zprec_type), Intent(inout) :: prec class(psb_zprec_type), Intent(inout) :: prec

2
linsolve/psb_zfcg.F90
Unescape Escape View File

@ -108,7 +108,7 @@ subroutine psb_zfcg_vect(a,prec,b,x,eps,desc_a,info,&
use psb_base_mod use psb_base_mod
use psb_prec_mod use psb_prec_mod
use psb_z_linsolve_conv_mod use psb_z_linsolve_conv_mod
use psb_krylov_mod use psb_linsolve_mod
implicit none implicit none
type(psb_zspmat_type), intent(in) :: a type(psb_zspmat_type), intent(in) :: a
Type(psb_desc_type), Intent(in) :: desc_a Type(psb_desc_type), Intent(in) :: desc_a

2
linsolve/psb_zgcr.f90
Unescape Escape View File

@ -110,7 +110,7 @@ subroutine psb_zgcr_vect(a,prec,b,x,eps,desc_a,info,&
use psb_base_mod use psb_base_mod
use psb_prec_mod use psb_prec_mod
use psb_z_linsolve_conv_mod use psb_z_linsolve_conv_mod
use psb_krylov_mod use psb_linsolve_mod
implicit none implicit none

2
linsolve/psb_zkrylov.f90
Unescape Escape View File

@ -84,7 +84,7 @@ Subroutine psb_zkrylov_vect(method,a,prec,b,x,eps,desc_a,info,&
use psb_base_mod use psb_base_mod
use psb_prec_mod,only : psb_zprec_type use psb_prec_mod,only : psb_zprec_type
use psb_krylov_mod, psb_protect_name => psb_zkrylov_vect use psb_linsolve_mod, psb_protect_name => psb_zkrylov_vect
character(len=*) :: method character(len=*) :: method
Type(psb_zspmat_type), Intent(in) :: a Type(psb_zspmat_type), Intent(in) :: a

2
linsolve/psb_zrgmres.f90
Unescape Escape View File

@ -111,7 +111,7 @@ subroutine psb_zrgmres_vect(a,prec,b,x,eps,desc_a,info,&
use psb_base_mod use psb_base_mod
use psb_prec_mod use psb_prec_mod
use psb_z_linsolve_conv_mod use psb_z_linsolve_conv_mod
use psb_krylov_mod use psb_linsolve_mod
implicit none implicit none
type(psb_zspmat_type), intent(in) :: a type(psb_zspmat_type), intent(in) :: a
Type(psb_desc_type), Intent(in) :: desc_a Type(psb_desc_type), Intent(in) :: desc_a

2
linsolve/psb_zrichardson.f90
Unescape Escape View File

@ -74,7 +74,7 @@ Subroutine psb_zrichardson_vect(a,prec,b,x,eps,desc_a,info,&
use psb_base_mod use psb_base_mod
use psb_prec_mod use psb_prec_mod
use psb_z_linsolve_conv_mod use psb_z_linsolve_conv_mod
use psb_krylov_mod, psb_protect_name => psb_zrichardson_vect use psb_linsolve_mod, psb_protect_name => psb_zrichardson_vect
Type(psb_zspmat_type), Intent(in) :: a Type(psb_zspmat_type), Intent(in) :: a
Type(psb_desc_type), Intent(in) :: desc_a Type(psb_desc_type), Intent(in) :: desc_a

2
test/fileread/psb_cf_sample.f90
Unescape Escape View File

@ -32,7 +32,7 @@
program psb_cf_sample program psb_cf_sample
use psb_base_mod use psb_base_mod
use psb_prec_mod use psb_prec_mod
use psb_krylov_mod use psb_linsolve_mod
use psb_util_mod use psb_util_mod
use getp use getp
implicit none implicit none

2
test/fileread/psb_df_sample.f90
Unescape Escape View File

@ -32,7 +32,7 @@
program psb_df_sample program psb_df_sample
use psb_base_mod use psb_base_mod
use psb_prec_mod use psb_prec_mod
use psb_krylov_mod use psb_linsolve_mod
use psb_util_mod use psb_util_mod
use getp use getp
implicit none implicit none

2
test/fileread/psb_sf_sample.f90
Unescape Escape View File

@ -32,7 +32,7 @@
program psb_sf_sample program psb_sf_sample
use psb_base_mod use psb_base_mod
use psb_prec_mod use psb_prec_mod
use psb_krylov_mod use psb_linsolve_mod
use psb_util_mod use psb_util_mod
use getp use getp
implicit none implicit none

2
test/fileread/psb_zf_sample.f90
Unescape Escape View File

@ -32,7 +32,7 @@
program psb_zf_sample program psb_zf_sample
use psb_base_mod use psb_base_mod
use psb_prec_mod use psb_prec_mod
use psb_krylov_mod use psb_linsolve_mod
use psb_util_mod use psb_util_mod
use getp use getp
implicit none implicit none

2
test/pargen/psb_d_pde2d.F90
Unescape Escape View File

@ -595,7 +595,7 @@ end module psb_d_pde2d_mod
program psb_d_pde2d program psb_d_pde2d
use psb_base_mod use psb_base_mod
use psb_prec_mod use psb_prec_mod
use psb_krylov_mod use psb_linsolve_mod
use psb_util_mod use psb_util_mod
use psb_d_pde2d_mod use psb_d_pde2d_mod
#if defined(OPENMP) #if defined(OPENMP)

2
test/pargen/psb_d_pde3d.F90
Unescape Escape View File

@ -653,7 +653,7 @@ end module psb_d_pde3d_mod
program psb_d_pde3d program psb_d_pde3d
use psb_base_mod use psb_base_mod
use psb_prec_mod use psb_prec_mod
use psb_krylov_mod use psb_linsolve_mod
use psb_util_mod use psb_util_mod
use psb_d_pde3d_mod use psb_d_pde3d_mod
#if defined(OPENMP) #if defined(OPENMP)

2
test/pargen/psb_s_pde2d.F90
Unescape Escape View File

@ -595,7 +595,7 @@ end module psb_s_pde2d_mod
program psb_s_pde2d program psb_s_pde2d
use psb_base_mod use psb_base_mod
use psb_prec_mod use psb_prec_mod
use psb_krylov_mod use psb_linsolve_mod
use psb_util_mod use psb_util_mod
use psb_s_pde2d_mod use psb_s_pde2d_mod
#if defined(OPENMP) #if defined(OPENMP)

2
test/pargen/psb_s_pde3d.F90
Unescape Escape View File

@ -653,7 +653,7 @@ end module psb_s_pde3d_mod
program psb_s_pde3d program psb_s_pde3d
use psb_base_mod use psb_base_mod
use psb_prec_mod use psb_prec_mod
use psb_krylov_mod use psb_linsolve_mod
use psb_util_mod use psb_util_mod
use psb_s_pde3d_mod use psb_s_pde3d_mod
#if defined(OPENMP) #if defined(OPENMP)

Write Preview
Loading…
Cancel
Save