Fix syntax issue

2 years ago · 402354dbd8
parent 677789469c
commit 402354dbd8
7 changed files with 7 additions and 7 deletions
--- a/base/modules/auxil/psb_c_realloc_mod.F90
+++ b/base/modules/auxil/psb_c_realloc_mod.F90
@ -1017,7 +1017,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
--- a/base/modules/auxil/psb_d_realloc_mod.F90
+++ b/base/modules/auxil/psb_d_realloc_mod.F90
@ -1017,7 +1017,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
--- a/base/modules/auxil/psb_e_realloc_mod.F90
+++ b/base/modules/auxil/psb_e_realloc_mod.F90
@ -1017,7 +1017,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
--- a/base/modules/auxil/psb_i2_realloc_mod.F90
+++ b/base/modules/auxil/psb_i2_realloc_mod.F90
@ -1017,7 +1017,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
--- a/base/modules/auxil/psb_m_realloc_mod.F90
+++ b/base/modules/auxil/psb_m_realloc_mod.F90
@ -1017,7 +1017,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
--- a/base/modules/auxil/psb_s_realloc_mod.F90
+++ b/base/modules/auxil/psb_s_realloc_mod.F90
@ -1017,7 +1017,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
--- a/base/modules/auxil/psb_z_realloc_mod.F90
+++ b/base/modules/auxil/psb_z_realloc_mod.F90
@ -1017,7 +1017,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