Fixes #192 ESMF_ConfigSetAttribute

* fix inserting and deleting loops
esmf-org · Jan 11, 2024 · 5fc9df0 · 5fc9df0
1 parent cdf51e6
commit 5fc9df0
Showing 1 changed file with 5 additions and 7 deletions.
diff --git a/src/Infrastructure/Config/src/ESMF_Config.F90 b/src/Infrastructure/Config/src/ESMF_Config.F90
@@ -3744,18 +3744,16 @@ subroutine ESMF_ConfigSetString(config, value, &
             endif
 
             ninsert = nchar - lenThisLine
-            do k = config%cptr%nbuf, i+lenThisLine, -1
-               config%cptr%buffer(k+ninsert:k+ninsert) = config%cptr%buffer(k:k)
-            enddo
+            config%cptr%buffer(i+lenThisLine+ninsert:config%cptr%nbuf+ninsert) = &
+               config%cptr%buffer(i+lenThisLine:config%cptr%nbuf)
             config%cptr%nbuf = config%cptr%nbuf + ninsert
 
          ! or if we need less space and remove characters;
          ! shift buffer up
          elseif ( nchar .lt. lenThisLine ) then
-           ndelete = lenThisLine - nchar
-            do k = j+1, config%cptr%nbuf
-               config%cptr%buffer(k:k) = config%cptr%buffer(k+ndelete:k+ndelete)
-            enddo
+            ndelete = lenThisLine - nchar
+            config%cptr%buffer(i+lenThisLine-ndelete:config%cptr%nbuf-ndelete) = &
+               config%cptr%buffer(i+lenThisLine:config%cptr%nbuf)
             config%cptr%nbuf = config%cptr%nbuf - ndelete
          endif
       endif