Merge pull request #507 from Sideboard/xml_config_string

GAP: Add config string to XML
libAtoms · Nov 21, 2022 · bdedae8 · bdedae8
2 parents 7075b75 + 2a9a333
commit bdedae8
Show file tree

Hide file tree

Showing 2 changed files with 20 additions and 1 deletion.
diff --git a/src/GAP b/src/GAP
diff --git 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
+18 −16		doc_src/gap_fit.rst
+2 −2		doc_src/installation.rst
+13 −12		gap_fit_module.f95
+59 −29		gp_predict.f95