|
|
★ ★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
xk6891(金币+5):谢谢前辈，问题解决了。用了第二种方法 2011-01-12 10:32:06
余泽成(金币+3):谢谢参与应助！ 2011-01-13 19:47:34
program align_left_output_1
do i=1,200
L=int(log10(i*1.0))+1
write(*,100) i
enddo
100 format('H'I
end program
program align_left_output_2
character*8 tmpchar
do i=1,200
write(tmpchar,'(I8)') i
write(*,*) 'H'//adjustl(tmpchar)
enddo
end program
第一种方法形式简单，容易理解。但变宽度输出依赖于编译器，可移植性不好；而且用到了对数运算，在数据量很大时效率较低。
第二种方法借用了临时字符串做内部文件，效率可能更高一些。 |
|
回复此楼
+1/453
