如何在Fortran中以写入格式写入sec？

我想把时间写在一个txt文件中，但我有一个问题。问题是，如果秒数14.999或秒数为10^-6，那么它将是错误的。我怎样写这个条件？我哪里做错了？第二种情况的结果是0.000，但我需要00.000

  The first one result is   : 14.999
  The second one result is  :  0.  0
  First condition Milisec = 999
  Second condition  Milisec = 0
  -------------------------
  Result should be if sec is 14.999   : 14.999
  Result should be if sec is 10^-6   :  00.000
  ---------------------Code --------------------
  program test

  Real :: Sec,Sec2
  integer  :: milisec, Milisec2
   Sec=14.999
  milisec = 999
  Sec2=0
  milisec2 = 0


  Write(*, 400)  int(sec), '.', milisec 
  Write(*, 400)  int(Sec2), '.', milisec2 
  400 Format (I2,A1,I3.3)
  end program test

---

请添加一个MWE，而不仅仅是一个代码片段。同样奇怪的是，当格式有

a

时，用

，

开始编写语句。欢迎使用堆栈溢出。请拿着这本书学习。然后，给我们一个清晰的描述，说明你想做什么，你错了什么，你期望得到什么，以及>@albert I编辑了代码并测试了代码，剩下的问题是什么？您是否使用“I2.2”和“I3.3”作为格式部分？非常感谢：）它正在工作：）我喜欢这个社区：）