Fortran字符串比较

Fortran 中可以使用内置函数 STRING 进行字符串比较。该函数返回一个整数，其取值规则如下：

下面是一个使用 STRING 函数比较两个字符串的例子：

program compare_strings
  implicit none
  character(len=10) :: string1, string2
  integer :: result
  string1 = 'Fortran'
  string2 = 'fORTRAN'
  result = STRING(string1) - STRING(string2)
  if (result < 0) then
    write(*,*) 'string1 is less than string2'
  else if (result == 0) then
    write(*,*) 'string1 is equal to string2'
    write(*,*) 'string1 is greater than string2'
  end if
end program compare_strings
在上面的例子中，我们首先定义了两个字符串 string1 和 string2，然后使用 STRING 函数比较这两个字符串。根据 STRING 函数的规则，如果 string1 小于 string2，则返回一个负整数，如果相等则返回 0，如果大于则返回一个正整数。我们将返回值存储在 result 变量中，并使用 if 语句根据 result 的值输出不同的信息。
希望这个例子可以帮助你理解如何在 Fortran 中比较字符串。