使用ctype将python字符串传递给Fortran子例程

subroutine process_string(input_string)
  character(len=*), intent(in) :: input_string
  ! 在这里添加对字符串的处理逻辑
end subroutine process_string

gfortran -shared -o libprocess_string.so process_string.f90

import ctypes

# 加载Fortran共享库
fortran_lib = ctypes.CDLL('./libprocess_string.so')

# 定义函数参数类型和返回类型
fortran_lib.process_string.argtypes = [ctypes.c_char_p]
fortran_lib.process_string.restype = None

# 调用Fortran子例程并传递字符串参数
input_string = b"Hello, Fortran!"
fortran_lib.process_string(input_string)