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

*** empty log message ***

Browse Source
psblas3-type-indexed
Salvatore Filippone 17 years ago
parent cf717ac713
commit 4c601a166c
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File

6
base/modules/psb_realloc_mod.F90
Unescape Escape View File

@ -483,7 +483,7 @@ Contains
if (present(addsz)) then if (present(addsz)) then
isz = len+max(1,addsz) isz = len+max(1,addsz)
else else
isz = len+1 isz = max(len+10, int(1.25*len))
endif endif
endif endif
call psb_realloc(isz,v,info,pad=pad) call psb_realloc(isz,v,info,pad=pad)
@ -539,7 +539,7 @@ Contains
if (present(addsz)) then if (present(addsz)) then
isz = len+max(1,addsz) isz = len+max(1,addsz)
else else
isz = len+1 isz = max(len+10, int(1.25*len))
endif endif
endif endif
@ -595,7 +595,7 @@ Contains
if (present(addsz)) then if (present(addsz)) then
isz = len+max(1,addsz) isz = len+max(1,addsz)
else else
isz = len+1 isz = max(len+10, int(1.25*len))
endif endif
endif endif
call psb_realloc(isz,v,info,pad=pad) call psb_realloc(isz,v,info,pad=pad)

Write Preview
Loading…
Cancel
Save