fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-17 11:22:09 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fixed USE of module(s) containing interface of USEing subroutine.

Browse Source
This commit is contained in:
Salvatore Filippone
2006-12-20 11:35:33 +00:00
parent 3bcd2fc736
commit e16f0c342d
15 changed files with 47 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/prec/psb_dbaseprc_bld.f90
+2 -1
View File
@@ -46,7 +46,8 @@ subroutine psb_dbaseprc_bld(a,desc_a,p,info,upd)
use psb_psblas_mod
use psb_error_mod
use psb_penv_mod
use psb_prec_mod
use psb_prec_mod, only: psb_diagsc_bld, psb_ilu_bld, &
& psb_slu_bld,psb_umf_bld
Implicit None
src/prec/psb_dilu_bld.f90
+1 -1
View File
@@ -60,7 +60,7 @@ subroutine psb_dilu_bld(a,desc_a,p,upd,info)
use psb_error_mod
use psb_realloc_mod
use psb_penv_mod
use psb_prec_mod
use psb_prec_mod, only : psb_as_matbld, psb_ilu_fct
implicit none
!
! .. Scalar Arguments ..
src/prec/psb_dmlprc_bld.f90
+1 -1
View File
@@ -43,7 +43,7 @@ subroutine psb_dmlprc_bld(a,desc_a,p,info)
use psb_const_mod
use psb_error_mod
use psb_penv_mod
use psb_prec_mod
use psb_prec_mod, only : psb_genaggrmap, psb_bldaggrmat, psb_baseprc_bld
implicit none
type(psb_dspmat_type), intent(in), target :: a
src/prec/psb_dprc_aply.f90
+16 -3
View File
@@ -43,7 +43,7 @@ subroutine psb_dprc_aply(prec,x,y,desc_data,info,trans, work)
use psb_const_mod
use psb_error_mod
use psb_penv_mod
use psb_prec_mod
use psb_prec_mod, only: psb_mlprc_aply, psb_baseprc_aply
implicit none
type(psb_desc_type),intent(in) :: desc_data
@@ -166,9 +166,22 @@ subroutine psb_dprc_aply1(prec,x,desc_data,info,trans)
use psb_const_mod
use psb_error_mod
use psb_penv_mod
use psb_prec_mod
implicit none
interface psb_prc_aply
subroutine psb_dprc_aply(prec,x,y,desc_data,info,trans, work)
use psb_serial_mod
use psb_descriptor_type
use psb_prec_type
implicit none
type(psb_desc_type),intent(in) :: desc_data
type(psb_dprec_type), intent(in) :: prec
real(kind(0.d0)),intent(inout) :: x(:), y(:)
integer, intent(out) :: info
character(len=1), optional :: trans
real(kind(0.d0)), optional, target :: work(:)
end subroutine psb_dprc_aply
end interface
type(psb_desc_type),intent(in) :: desc_data
type(psb_dprec_type), intent(in) :: prec
real(kind(0.d0)),intent(inout) :: x(:)
src/prec/psb_dprecbld.f90
+1 -1
View File
@@ -46,7 +46,7 @@ subroutine psb_dprecbld(a,desc_a,p,info,upd)
use psb_psblas_mod
use psb_error_mod
use psb_penv_mod
use psb_prec_mod
use psb_prec_mod, only: psb_mlprc_bld, psb_baseprc_bld
Implicit None
type(psb_dspmat_type), target :: a
src/prec/psb_dslu_bld.f90
+1 -1
View File
@@ -41,7 +41,7 @@ subroutine psb_dslu_bld(a,desc_a,p,info)
use psb_tools_mod
use psb_const_mod
use psb_penv_mod
use psb_prec_mod
use psb_prec_mod, only: psb_as_matbld
implicit none
type(psb_dspmat_type), intent(inout) :: a
src/prec/psb_dumf_bld.f90
+1 -1
View File
@@ -41,7 +41,7 @@ subroutine psb_dumf_bld(a,desc_a,p,info)
use psb_tools_mod
use psb_const_mod
use psb_penv_mod
use psb_prec_mod
use psb_prec_mod, only: psb_as_matbld
implicit none
type(psb_dspmat_type), intent(inout) :: a
src/prec/psb_zbaseprc_bld.f90
+2 -1
View File
@@ -46,7 +46,8 @@ subroutine psb_zbaseprc_bld(a,desc_a,p,info,upd)
use psb_psblas_mod
use psb_error_mod
use psb_penv_mod
use psb_prec_mod
use psb_prec_mod, only: psb_diagsc_bld, psb_ilu_bld, &
& psb_slu_bld,psb_umf_bld
Implicit None
type(psb_zspmat_type), target :: a
src/prec/psb_zilu_bld.f90
+1 -1
View File
@@ -60,7 +60,7 @@ subroutine psb_zilu_bld(a,desc_a,p,upd,info)
use psb_error_mod
use psb_realloc_mod
use psb_penv_mod
use psb_prec_mod
use psb_prec_mod, only : psb_as_matbld, psb_ilu_fct
implicit none
!
! .. Scalar Arguments ..
src/prec/psb_zmlprc_bld.f90
+1 -1
View File
@@ -43,7 +43,7 @@ subroutine psb_zmlprc_bld(a,desc_a,p,info)
use psb_const_mod
use psb_error_mod
use psb_penv_mod
use psb_prec_mod
use psb_prec_mod, only : psb_genaggrmap, psb_bldaggrmat, psb_baseprc_bld
implicit none
type(psb_zspmat_type), intent(in), target :: a
src/prec/psb_zprc_aply.f90
+16 -3
View File
@@ -43,7 +43,7 @@ subroutine psb_zprc_aply(prec,x,y,desc_data,info,trans, work)
use psb_const_mod
use psb_error_mod
use psb_penv_mod
use psb_prec_mod
use psb_prec_mod, only: psb_mlprc_aply, psb_baseprc_aply
implicit none
type(psb_desc_type),intent(in) :: desc_data
@@ -166,9 +166,22 @@ subroutine psb_zprc_aply1(prec,x,desc_data,info,trans)
use psb_const_mod
use psb_error_mod
use psb_penv_mod
use psb_prec_mod
implicit none
interface psb_prc_aply
subroutine psb_zprc_aply(prec,x,y,desc_data,info,trans, work)
use psb_serial_mod
use psb_descriptor_type
use psb_prec_type
implicit none
type(psb_desc_type),intent(in) :: desc_data
type(psb_zprec_type), intent(in) :: prec
complex(kind(0.d0)),intent(inout) :: x(:), y(:)
integer, intent(out) :: info
character(len=1), optional :: trans
complex(kind(0.d0)), optional, target :: work(:)
end subroutine psb_zprc_aply
end interface
type(psb_desc_type),intent(in) :: desc_data
type(psb_zprec_type), intent(in) :: prec
complex(kind(0.d0)),intent(inout) :: x(:)
src/prec/psb_zprecbld.f90
+1 -1
View File
@@ -46,7 +46,7 @@ subroutine psb_zprecbld(a,desc_a,p,info,upd)
use psb_psblas_mod
use psb_error_mod
use psb_penv_mod
use psb_prec_mod
use psb_prec_mod, only: psb_mlprc_bld, psb_baseprc_bld
Implicit None
type(psb_zspmat_type), target :: a
src/prec/psb_zslu_bld.f90
+1 -1
View File
@@ -41,7 +41,7 @@ subroutine psb_zslu_bld(a,desc_a,p,info)
use psb_tools_mod
use psb_const_mod
use psb_penv_mod
use psb_prec_mod
use psb_prec_mod, only: psb_as_matbld
implicit none
type(psb_zspmat_type), intent(inout) :: a
src/prec/psb_zumf_bld.f90
+1 -1
View File
@@ -41,7 +41,7 @@ subroutine psb_zumf_bld(a,desc_a,p,info)
use psb_tools_mod
use psb_const_mod
use psb_penv_mod
use psb_prec_mod
use psb_prec_mod, only: psb_as_matbld
implicit none
type(psb_zspmat_type), intent(inout) :: a
src/tools/psb_cdall.f90
+1 -1
View File
@@ -384,7 +384,7 @@ subroutine psb_cdall(m, n, parts, ictxt, desc_a, info)
call psb_errpush(err,name)
Goto 9999
endif
! At this point overlap is OK.
! At this point overlap_elem is OK.
desc_a%matrix_data(psb_ovl_state_) = psb_cd_ovl_asb_
! set fields in desc_a%MATRIX_DATA....