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

*** empty log message ***

Browse Source
stopcriterion
Salvatore Filippone 18 years ago
parent 5e6ae089c5
commit cc3c8e6183
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File

4
psb_prec_type.f90
Unescape Escape View File

@ -233,7 +233,7 @@ contains
val = 8 val = 8
if (allocated(prec%baseprecv)) then if (allocated(prec%baseprecv)) then
do i=1, size(prec%baseprecv) do i=1, size(prec%baseprecv)
val = val + psb_prec_sizeof(prec%baseprecv(i)) val = val + psb_sizeof(prec%baseprecv(i))
end do end do
end if end if
psb_dprec_sizeof = val psb_dprec_sizeof = val
@ -247,7 +247,7 @@ contains
val = 8 val = 8
if (allocated(prec%baseprecv)) then if (allocated(prec%baseprecv)) then
do i=1, size(prec%baseprecv) do i=1, size(prec%baseprecv)
val = val + psb_prec_sizeof(prec%baseprecv(i)) val = val + psb_sizeof(prec%baseprecv(i))
end do end do
end if end if
psb_zprec_sizeof = val psb_zprec_sizeof = val

Write Preview
Loading…
Cancel
Save