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 psb_sizeof().

Browse Source
This commit is contained in:
Salvatore Filippone
2007-05-15 08:49:12 +00:00
parent 6d59769aef
commit a11d5f671a
2 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
prec/psb_prec_type.f90
+3 -2
View File
@@ -36,7 +36,8 @@
module psb_prec_type
! Reduces size of .mod file.
use psb_base_mod, only : psb_dspmat_type, psb_zspmat_type, psb_desc_type
use psb_base_mod, only : psb_dspmat_type, psb_zspmat_type, psb_desc_type,&
& psb_sizeof
integer, parameter :: min_prec_=0, noprec_=0, diag_=1, bjac_=2,&
& max_prec_=2
@@ -103,7 +104,7 @@ module psb_prec_type
& psb_zout_prec_descr, psb_zfile_prec_descr
end interface
interface psb_prec_sizeof
interface psb_sizeof
module procedure psb_dprec_sizeof, psb_zprec_sizeof
end interface
test/fileread/df_sample.f90
+1 -1
View File
@@ -244,7 +244,7 @@ program df_sample
amatsize = psb_sizeof(a)
descsize = psb_sizeof(desc_a)
precsize = psb_prec_sizeof(pre)
precsize = psb_sizeof(pre)
call psb_sum(ictxt,amatsize)
call psb_sum(ictxt,descsize)
call psb_sum(ictxt,precsize)