fortran语言判断字符串是否为回文

下面是一个简单的Fortran程序，用于判断一个字符串是否是回文：

program palindrome
    implicit none
    character(len=100) :: str
    integer :: i, len
    logical :: is_palindrome

    write(*,*) "Enter a string: "
    read(*,'(A)') str

    len = len_trim(str)

    is_palindrome = .true.

    do i=1, len/2
        if(str(i:i) /= str(len-i+1:len-i+1)) then
            is_palindrome = .false.
            exit
        endif
    enddo

    if(is_palindrome) then
        write(*,*) "The string is a palindrome."
    else
        write(*,*) "The string is not a palindrome."
    endif

end program palindrome

在这个程序中，我们首先读入一个字符串，然后通过循环比较字符串的第一个字符和最后一个字符、第二个字符和倒数第二个字符，以此类推。如果所有字符都匹配，则字符串为回文。如果有任何一对字符不匹配，则字符串不是回文。