CentOS下Fortran如何进行字符串操作

在CentOS下使用Fortran进行字符串操作，你可以使用Fortran内置的字符串处理函数

1. 字符串连接：

program concat_strings
  implicit none
  character(len=10) :: str1, str2, result

  str1 = 'Hello'
  str2 = 'World'

  result = trim(str1) // ' ' // trim(str2)

  print *, result
end program concat_strings

2. 字符串长度：

program string_length
  implicit none
  character(len=10) :: str
  integer :: length

  str = 'Hello, World!'

  length = len_trim(str)

  print *, 'Length of the string:', length
end program string_length

3. 字符串查找：

program find_substring
  implicit none
  character(len=20) :: str, sub_str
  integer :: position

  str = 'Hello, World!'
  sub_str = 'World'

  position = index(str, sub_str)

  if (position /= 0) then
    print *, 'Substring found at position:', position
  else
    print *, 'Substring not found'
  end if
end program find_substring

4. 字符串替换：

program replace_substring
  implicit none
  character(len=20) :: str, old_sub_str, new_sub_str
  integer :: position

  str = 'Hello, World!'
  old_sub_str = 'World'
  new_sub_str = 'Fortran'

  position = index(str, old_sub_str)

  if (position /= 0) then
    str = str(1:position-1) // new_sub_str // str(position+len(old_sub_str):)
  end if

  print *, 'Modified string:', str
end program replace_substring

这些示例展示了如何在CentOS下使用Fortran进行基本的字符串操作。你可以根据自己的需求修改这些示例，并使用更多的内置函数来处理字符串。