1 files changed, 63 insertions, 0 deletions
diff --git a/Dragon/src/g2s_cast.f90 b/Dragon/src/g2s_cast.f90
new file mode 100644
index 0000000..92b6ffd
--- /dev/null
+++ b/Dragon/src/g2s_cast.f90
@@ -0,0 +1,63 @@
+!
+!-----------------------------------------------------------------------
+!
+!Purpose:
+! Perform character to integer and integer to character conversion.
+!
+!Copyright:
+! Copyright (C) 2001 Ecole Polytechnique de Montreal.
+! This library is free software; you can redistribute it and/or
+! modify it under the terms of the GNU Lesser General Public
+! License as published by the Free Software Foundation; either
+! version 2.1 of the License, or (at your option) any later version.
+!
+!Author(s):
+! G. Civario (CS-SI)
+!
+!Comments:
+!  - c2i : transforme un caractere en chiffre
+!  - s2i : transforme une chaine de caracteres en nombre
+!  - i2s : transforme un nombre en chaine de caracteres
+!-----------------------------------------------------------------------
+!
+module cast
+  implicit none
+
+  integer,parameter :: izero=ichar('0')
+
+contains
+
+  function c2i(c)
+    character,intent(in) :: c
+    integer              :: c2i
+
+    c2i = ichar(c) - izero
+    if (c2i<0 .or. c2i>9) &
+         & call XABORT("G2S: internal error, bad cast from string to integer")
+  end function c2i
+
+  function s2i(s)
+    character(len=*),intent(in) :: s
+    integer                     :: s2i
+    integer   :: i,l,n
+
+    s2i = 0
+    l = len_trim(s)
+    do i = 1,l
+       n = c2i(s(i:i))
+       s2i = s2i + n*10**(l-i)
+    end do
+  end function s2i
+
+  function i2s(i)
+    integer,intent(in) :: i
+    character*12       :: i2s
+    
+    character*12 :: tmp
+    
+    tmp = ' '
+    write(tmp,'(i12)') i
+    i2s = adjustl(tmp)
+  end function i2s
+
+end module cast