为了将四位数凑为五位数，前面加个零，fortran怎么实现啊？

梦纯

编程过程中遇到了要将四位数凑为五位数，前面加个零，比如说，将1234变为01234，该怎么用fortran实现呢？求助各位大神，谢谢啦！

lqouc

i5.5
应该这样就行

梦纯

lqouc 发表于 2014-3-6 15:17

                               
登录/注册后可看大图

i5.5
应该这样就行

多谢啦。Have a nice day!

Nepenthe

如果是想变为字符的话，下面的例子可以参考：(将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

梦纯

Nepenthe 发表于 2014-3-6 22:39

                               
登录/注册后可看大图

如果是想变为字符的话，下面的例子可以参考：(将34变为‘00034’的字符)

program test

整型变量变字符变量可以直接这样：
character(len=4) :: char_year(num)
integer year(num)

write(char_year(i),fmt="(I4)"),year(i)