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

Fix synatx error

Browse Source
This commit is contained in:
sfilippone
2023-06-21 13:37:23 +02:00
parent fd0aea4afa
commit d378266f33
7 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/auxil/psb_c_realloc_mod.F90
+1 -1
View File
@@ -1021,7 +1021,7 @@ Contains
if (present(newsz)) then
isz = max(len+1,1,newsz)
else if (present(addsz)) then
isz = max(len,1,isz+addsz))
isz = max(len,1,isz+addsz)
else
isz = max(len,1,int(1.25*isz))
endif
base/modules/auxil/psb_d_realloc_mod.F90
+1 -1
View File
@@ -1021,7 +1021,7 @@ Contains
if (present(newsz)) then
isz = max(len+1,1,newsz)
else if (present(addsz)) then
isz = max(len,1,isz+addsz))
isz = max(len,1,isz+addsz)
else
isz = max(len,1,int(1.25*isz))
endif
base/modules/auxil/psb_e_realloc_mod.F90
+1 -1
View File
@@ -1021,7 +1021,7 @@ Contains
if (present(newsz)) then
isz = max(len+1,1,newsz)
else if (present(addsz)) then
isz = max(len,1,isz+addsz))
isz = max(len,1,isz+addsz)
else
isz = max(len,1,int(1.25*isz))
endif
base/modules/auxil/psb_i2_realloc_mod.F90
+1 -1
View File
@@ -1021,7 +1021,7 @@ Contains
if (present(newsz)) then
isz = max(len+1,1,newsz)
else if (present(addsz)) then
isz = max(len,1,isz+addsz))
isz = max(len,1,isz+addsz)
else
isz = max(len,1,int(1.25*isz))
endif
base/modules/auxil/psb_m_realloc_mod.F90
+1 -1
View File
@@ -1021,7 +1021,7 @@ Contains
if (present(newsz)) then
isz = max(len+1,1,newsz)
else if (present(addsz)) then
isz = max(len,1,isz+addsz))
isz = max(len,1,isz+addsz)
else
isz = max(len,1,int(1.25*isz))
endif
base/modules/auxil/psb_s_realloc_mod.F90
+1 -1
View File
@@ -1021,7 +1021,7 @@ Contains
if (present(newsz)) then
isz = max(len+1,1,newsz)
else if (present(addsz)) then
isz = max(len,1,isz+addsz))
isz = max(len,1,isz+addsz)
else
isz = max(len,1,int(1.25*isz))
endif
base/modules/auxil/psb_z_realloc_mod.F90
+1 -1
View File
@@ -1021,7 +1021,7 @@ Contains
if (present(newsz)) then
isz = max(len+1,1,newsz)
else if (present(addsz)) then
isz = max(len,1,isz+addsz))
isz = max(len,1,isz+addsz)
else
isz = max(len,1,int(1.25*isz))
endif