如何用前导零填充Fortran浮点输出？

Question

我有一些浮点数我需要从Fortran程序输出.假设最大数字可能是999.9999,它们都是非负数.我需要在小于100的所有数字前面进行零填充.

例如,如果我有25.6893782,245.354567和1.2345678,我需要以类似的形式打印出来

025.6894
245.3546
001.2346

我怎样才能做到这一点？T如果我知道,例如,所有数字都在10到99之间,那么编辑描述符就相当容易了.但我没办法提前知道.

Answer 1

这适合我

real :: areal

然后

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