两个小数相减得到零的Fortran代码。

下面是一个示例Fortran代码，它演示了如何将两个小数相减得到零：

program subtracting_decimals
  implicit none
  
  real :: num1, num2, result
  
  ! 输入两个小数
  write(*,*) "输入第一个小数："
  read(*,*) num1
  
  write(*,*) "输入第二个小数："
  read(*,*) num2
  
  ! 将两个小数相减
  result = num1 - num2
  
  ! 判断结果是否为零
  if (result == 0.0) then
    write(*,*) "结果等于零"
  else
    write(*,*) "结果不等于零"
  end if
  
end program subtracting_decimals

在这个示例中，程序首先要求用户输入两个小数。然后，它计算两个小数的差，并将结果保存在变量result中。最后，程序通过if语句判断result是否等于零，并相应地输出结果。

请注意，由于浮点数的精度限制，实际上很难确保两个小数的差完全等于零。如果您需要比较两个浮点数是否非常接近零，可以使用一些数值比较技巧，例如比较它们的差的绝对值是否小于某个小的阈值。