The TELEMAC-MASCARET system
trunk
sources
utils
special
i2str.f
Go to the documentation of this file.
1
FUNCTION
i2str(I)
RESULT
(STR)
2
! ORIGINAL AUTHOR: Y. AUDOUIN
3
4
IMPLICIT NONE
5
6
INTEGER
,
INTENT(IN)
:: i
7
CHARACTER(LEN=10)
:: str
8
9
str = repeat(
' '
,10)
10
IF
(i.LT.10)
THEN
11
WRITE
(str,
'(I1)'
) i
12
ELSE
IF
(i.LT.100)
THEN
13
WRITE
(str,
'(I2)'
) i
14
ELSE
IF
(i.LT.1000)
THEN
15
WRITE
(str,
'(I3)'
) i
16
ELSE
IF
(i.LT.10000)
THEN
17
WRITE
(str,
'(I4)'
) i
18
ELSE
IF
(i.LT.100000)
THEN
19
WRITE
(str,
'(I5)'
) i
20
ELSE
IF
(i.LT.1000000)
THEN
21
WRITE
(str,
'(I6)'
) i
22
ELSE
IF
(i.LT.10000000)
THEN
23
WRITE
(str,
'(I7)'
) i
24
ELSE
IF
(i.LT.100000000)
THEN
25
WRITE
(str,
'(I8)'
) i
26
ELSE
IF
(i.LT.1000000000)
THEN
27
WRITE
(str,
'(I9)'
) i
28
ELSE
29
WRITE
(str,
'(I10)'
) i
30
ENDIF
31
32
END FUNCTION
i2str
33
1.8.13
1.8.13