- 积分
- 18
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2012-1-7
- 最后登录
- 1970-1-1
|
发表于 2014-3-6 22:39:56
|
显示全部楼层
如果是想变为字符的话,下面的例子可以参考:(将34变为‘00034’的字符)
program test
implicit none
character*5 :: chars, zeros, frmt
integer::n
call blank(frmt)
write(frmt,'(i5)')34
call zero(zeros)
n=len(trim(adjustl(frmt)))
chars=zeros(1:len(zeros)-n)//trim(adjustl(frmt))
write(*,*)chars
end
subroutine blank(string)
! blank out the string from 1 to its declared length
character*(*) string
integer i
do i = 1, len(string)
string(i:i) = ' '
enddo
return
end
subroutine zero(string)
character*(*) string
integer i
do i = 1, len(string)
string(i:i) = '0'
enddo
return
end |
|