Function : |
|
digit_char_conv : | character(1)
|
num : | integer, intent(in)
: | 変換する数値 [10 以上でない場合は, 同じ数字を返す.]
|
|
進数変換の際, それに対応する文字列を返す関数. たとえば, 10 進数から 16
進数への変換の際, num = 16 なら, f を返す.
アルファベット小文字のみに対応しており, 事実上, 36 進数変換まで対応可.
[Source]
character(1) function digit_char_conv( num )
! 進数変換の際, それに対応する文字列を返す関数.
! たとえば, 10 進数から 16 進数への変換の際, num = 16 なら, f を返す.
! アルファベット小文字のみに対応しており, 事実上, 36 進数変換まで対応可.
implicit none
integer, intent(in) :: num ! 変換する数値 [10 以上でない場合は, 同じ数字を返す.]
select case (num)
case (1:9)
write(digit_char_conv,'(i1)') num
case (10)
digit_char_conv='a'
case (11)
digit_char_conv='b'
case (12)
digit_char_conv='c'
case (13)
digit_char_conv='d'
case (14)
digit_char_conv='e'
case (15)
digit_char_conv='f'
case (16)
digit_char_conv='g'
case (17)
digit_char_conv='h'
case (18)
digit_char_conv='i'
case (19)
digit_char_conv='j'
case (20)
digit_char_conv='k'
case (21)
digit_char_conv='l'
case (22)
digit_char_conv='m'
case (23)
digit_char_conv='n'
case (24)
digit_char_conv='o'
case (25)
digit_char_conv='p'
case (26)
digit_char_conv='q'
case (27)
digit_char_conv='r'
case (28)
digit_char_conv='s'
case (29)
digit_char_conv='t'
case (30)
digit_char_conv='u'
case (31)
digit_char_conv='v'
case (32)
digit_char_conv='w'
case (33)
digit_char_conv='x'
case (34)
digit_char_conv='y'
case (35)
digit_char_conv='z'
end select
return
end function