为整数添加千分位符号函数

Program www_fcode_cn
   Implicit None
   character(len=30)::AddComma2Integer
   write(*,*) AddComma2Integer( 2338021 )
   !// 输出为  +2,338,021
End Program www_fcode_cn  
!============================================================================
 !  为整数添加千分位符号
 !  Num    整数
 !****************************************************************************
function AddComma2Integer( Num )
integer,parameter :: len = 30  !int(8)最大20+6字节
character(len) AddComma2Integer, temp
integer,intent(in) :: Num
integer i, j, k, m, n

 temp=''
AddComma2Integer=''
write(temp,'(spi)') Num  !输出数据添加'+'
temp = adjustl(temp)   !左对齐
m = len_trim(temp)     !字符长度
n = ( m - 2 ) / 3  !千分位符号数量
i = m - 3 * n      !第一个千分位符号之前的字符数量
j = i + 1
k = j
 AddComma2Integer(1:i) = temp(1:i)  !第一个千分位符号之前的字符
do i = 1, n
     AddComma2Integer(j:j+3) = ','//temp(k:k+2)
     j = j + 4
     k = k + 3
end do
 end function