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

*** empty log message ***

Browse Source
This commit is contained in:
Salvatore Filippone
2007-10-17 12:02:26 +00:00
parent cf717ac713
commit 4c601a166c
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_realloc_mod.F90
+3 -3
View File
@@ -483,7 +483,7 @@ Contains
if (present(addsz)) then
isz = len+max(1,addsz)
else
isz = len+1
isz = max(len+10, int(1.25*len))
endif
endif
call psb_realloc(isz,v,info,pad=pad)
@@ -539,7 +539,7 @@ Contains
if (present(addsz)) then
isz = len+max(1,addsz)
else
isz = len+1
isz = max(len+10, int(1.25*len))
endif
endif
@@ -595,7 +595,7 @@ Contains
if (present(addsz)) then
isz = len+max(1,addsz)
else
isz = len+1
isz = max(len+10, int(1.25*len))
endif
endif
call psb_realloc(isz,v,info,pad=pad)