fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-20 12:52:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

psblas3:

Browse Source 
base/modules/psb_desc_type.f90
 prec/psb_d_prec_type.f90

Interfaces in desc_type did not go well with NAG compiler.
Reverted change in apply1v, as it was not the cause of the problem
experienced earlier today.
This commit is contained in:
Salvatore Filippone
2011-07-27 15:06:27 +00:00
parent 12adfcde40
commit 4ca3b89e1c
2 changed files with 25 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_desc_type.f90
+24 -24
View File
@@ -230,30 +230,30 @@ module psb_descriptor_type
module procedure psb_cd_sizeof
end interface psb_sizeof
interface psb_is_ok_desc
module procedure psb_is_ok_desc
end interface psb_is_ok_desc
interface psb_is_valid_desc
module procedure psb_is_valid_desc
end interface psb_is_valid_desc
interface psb_is_asb_desc
module procedure psb_is_asb_desc
end interface psb_is_asb_desc
interface psb_is_upd_desc
module procedure psb_is_upd_desc
end interface psb_is_upd_desc
interface psb_is_ovl_desc
module procedure psb_is_ovl_desc
end interface psb_is_ovl_desc
interface psb_is_bld_desc
module procedure psb_is_bld_desc
end interface psb_is_bld_desc
!!$ interface psb_is_ok_desc
!!$ module procedure psb_is_ok_desc
!!$ end interface psb_is_ok_desc
!!$
!!$ interface psb_is_valid_desc
!!$ module procedure psb_is_valid_desc
!!$ end interface psb_is_valid_desc
!!$
!!$ interface psb_is_asb_desc
!!$ module procedure psb_is_asb_desc
!!$ end interface psb_is_asb_desc
!!$
!!$ interface psb_is_upd_desc
!!$ module procedure psb_is_upd_desc
!!$ end interface psb_is_upd_desc
!!$
!!$ interface psb_is_ovl_desc
!!$ module procedure psb_is_ovl_desc
!!$ end interface psb_is_ovl_desc
!!$
!!$ interface psb_is_bld_desc
!!$ module procedure psb_is_bld_desc
!!$ end interface psb_is_bld_desc
!!$
interface psb_move_alloc
module procedure psb_cdtransfer
prec/psb_d_prec_type.f90
+1 -2
View File
@@ -243,14 +243,13 @@ contains
end subroutine d_apply2v
subroutine d_apply1v(prec,x,desc_data,info,trans,work)
subroutine d_apply1v(prec,x,desc_data,info,trans)
use psb_base_mod
type(psb_desc_type),intent(in) :: desc_data
class(psb_dprec_type), intent(in) :: prec
real(psb_dpk_),intent(inout) :: x(:)
integer, intent(out) :: info
character(len=1), optional :: trans
real(psb_dpk_),intent(inout), optional, target :: work(:)
character :: trans_
integer :: ictxt,np,me, err_act