blob: 92b6ffdd8dd90975f9c1973e576e34e75c550200 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
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
|
