用FORTRAN语言编写一程序找出2~1000之间的全部同构数。所谓同构数是指这样一个数,它出现 的平方数的右端,例如5的平方是25,且5出现在25的右端,则5是同构数;又 的平方是625,且25 出现在625的右端,则25也是一个同构数。

在Fortran语言中编写寻找2到1000之间同构数的程序，可以按照以下步骤设计：

program HomomorphicNumbers
implicit none

integer :: i, j, number, square, length
character(len=10) :: str

! 初始化变量
number = 2
length = len(str)

do while (number <= 1000)
   ! 计算当前数字的平方
   square = number**2
   write(*, "(I4, ' is a homomorphic number because ', I4, ' appears at the end of ', I8)") &
           number, number, int(square)

   ! 检查平方数的字符串形式是否包含原数字
   str = char(int(square))
   if (str(length:length+1) == char(number)) then
      ! 如果存在，则输出该数字
      write(*, "(A)", advance="no") ", and its square "
      write(*, "(I4)") number
   end if

   ! 继续检查下一个数字
   number = number + 1
end do

end program HomomorphicNumbers

这个程序首先遍历从2到1000的所有整数，计算每个数的平方并判断该数字是否在平方数的末尾。如果满足条件，则认为它是同构数，并将结果打印出来。