Frotran 向子例程传递字符串

Fortran 中向子例程传递字符串的方式有两种：

1. 使用字符数组（character array）作为参数，并将字符串作为该数组的元素传递。例如，

subroutine mySubroutine(str)
character(len=*) :: str
write(*,*) "The passed string is:", str
end subroutine mySubroutine

main program
character(len=20) :: myString
myString = "Hello, world!"
call mySubroutine(myString)

2. 使用字符指针（character pointer）作为参数，并将字符串的地址传递给指针。例如，

subroutine mySubroutine(strPtr)
character(len=*) :: strPtr(*)
write(*,*) "The passed string is:", strPtr
end subroutine mySubroutine

main program
character(len=20), pointer :: myStringPtr
myStringPtr => "Hello, world!"
call mySubroutine(myStringPtr)

相关问题

frotran 子例程声明字符串指针

Fortran 子例程声明字符串指针可以使用 CHARACTER(*) 或 CHARACTER(len=*)，例如：

subroutine foo(str)
character(*) :: str
! do something with the string
end subroutine foo

其中，(*) 表示该字符串可以是任意长度，而 len=* 表示该字符串长度可以在运行时确定。

frotran 子例程声明指针

Fortran 子例程声明指针时，需要使用类似于以下的语法：

subroutine sub(x, y)
  real*8, intent(in) :: x
  real*8, pointer :: y
  ...
end subroutine sub

在这个例子中，`x` 是一个实数并且是一个输入参数。`y` 是一个实数指针，它的作用是将子例程中的计算结果传递回调用者。请注意，`y` 是一个不需要被分配空间的指针，也就是说，它只是一个指向某个已经存在的实数变量的指针。因此，在调用 `sub` 子例程之前，必须先分配一个实数变量，并将 `y` 指向它。