Fix synatx error

2 years ago · d378266f33
parent fd0aea4afa
commit d378266f33
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
@ -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
--- a/base/modules/auxil/psb_d_realloc_mod.F90
+++ b/base/modules/auxil/psb_d_realloc_mod.F90
@ -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
--- a/base/modules/auxil/psb_e_realloc_mod.F90
+++ b/base/modules/auxil/psb_e_realloc_mod.F90
@ -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
--- a/base/modules/auxil/psb_i2_realloc_mod.F90
+++ b/base/modules/auxil/psb_i2_realloc_mod.F90
@ -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
--- a/base/modules/auxil/psb_m_realloc_mod.F90
+++ b/base/modules/auxil/psb_m_realloc_mod.F90
@ -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
--- a/base/modules/auxil/psb_s_realloc_mod.F90
+++ b/base/modules/auxil/psb_s_realloc_mod.F90
@ -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
--- a/base/modules/auxil/psb_z_realloc_mod.F90
+++ b/base/modules/auxil/psb_z_realloc_mod.F90
@ -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