From 0f490d609dc87e231290d5722189f9310cf64d21 Mon Sep 17 00:00:00 2001
From: Sascha Klawohn <sascha.klawohn@warwick.ac.uk>
Date: Mon, 21 Nov 2022 10:23:08 +0000
Subject: [PATCH 1/2] Add replace (char in string)

---
 src/libAtoms/System.f95 | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/src/libAtoms/System.f95 b/src/libAtoms/System.f95
index 8ed197664..38d6a0ec1 100644
--- a/src/libAtoms/System.f95
+++ b/src/libAtoms/System.f95
@@ -367,7 +367,9 @@ subroutine c_mem_info(total_mem,free_mem)
   public :: string_to_real
   public :: string_to_int
   public :: string_to_logical
+  public :: upper_case
   public :: lower_case
+  public :: replace
   public :: split_string
   public :: parse_string
   public :: linebreak_string
@@ -3611,6 +3613,23 @@ pure function lower_case(word)
     end do
   end function lower_case
 
+  pure function replace(string, search, substitute) result(res)
+    character(len=*), intent(in) :: string
+    character(len=1), intent(in) :: search, substitute
+    character(len=len(string)) :: res
+
+    integer :: i
+
+    i = 1
+    do i = 1, len(string)
+      if (string(i:i) == search) then
+        res(i:i) = substitute
+      else
+        res(i:i) = string(i:i)
+      end if
+    end do
+  end function replace
+
   !% Print a progress bar
   subroutine progress(total,current, name)
      integer, intent(in) :: total, current

From 2a9a333673f207fb1cdd1f0b18b0302586b2014d Mon Sep 17 00:00:00 2001
From: Sascha Klawohn <sascha.klawohn@warwick.ac.uk>
Date: Mon, 21 Nov 2022 10:23:43 +0000
Subject: [PATCH 2/2] GAP: Add config_string to XML

---
 src/GAP | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/GAP b/src/GAP
index ea6309333..7cffe106f 160000
--- a/src/GAP
+++ b/src/GAP
@@ -1 +1 @@
-Subproject commit ea6309333e265ab80aa30f2ede116f8e38e0a243
+Subproject commit 7cffe106f9c42d502a70389254c9c088eccf017c