我有一些 float 需要从 Fortran 程序中输出。假设最大数字可能是 999.9999，它们都是非负数。我需要在所有小于 100 的数字前面补零。

例如，如果我有 25.6893782、245.354567 和 1.2345678，我需要以类似的形式将它们打印出来

025.6894
245.3546
001.2346

我该怎么做？例如，如果我知道所有的数字都在 10 到 99 之间，那么使用 T 编辑描述符会相当容易。但我无法提前知道这一点。

最佳答案

这对我有用

real :: areal

然后

write(*,'(i3.3,f0.6)') int(areal),areal-int(areal)

https://stackoverflow.com/questions/17886390/