用Fortran编写以下程序：找出2~1000之间的全部同构数。所谓同构数是指这样一个数，它出现在它的平方数的右端，例如5的平方是25，且5出现在25的右端，则5是同构数:又如25 的平方是625，且25出现在625的右端，则25也是一个同构数。

在Fortran中编写查找2到1000之间所有同构数的程序，我们可以使用一个循环结构遍历这个范围，并检查每个数字是否满足条件。以下是简单的Fortran代码示例：

program HomomorphicNumbers
    implicit none
    integer :: num, square, i, j, is_homomorphic

    ! 初始化变量
    num = 2
    do while (num <= 1000)
        ! 计算平方
        square = num**2
        
        ! 检查同构数条件
        is_homomorphic = True
        do j = 1, len_trim(num)//2   ! 注意处理小数点后的位数
            if (trim(square)(len(trim(square)) - j: len(trim(square)) - 1) /= trim(num)(j:j)) then
                is_homomorphic = False
                exit
            end if
        end do
        
        ! 输出同构数
        if (is_homomorphic) then
            write(*,*) num
        end if
        
        ! 移动到下一个数
        num = num + 1
    end do

end program HomomorphicNumbers

在这个程序中，我们首先设定起始数值`num`为2，然后计算其平方。接着，我们将原数和平方的字符串形式进行比较，如果对应位置上的数字相等，则继续检查下一个位；如果不相等，就退出循环，因为这个数不是同构数。只有当所有位都匹配时，才会输出该同构数。