是否有可能直接在函数的返回值上使用索引?像这样的东西:
readStr()(2:5)
wherereadStr()
是一个返回字符串或数组的函数。在许多其他语言中这是很有可能的,但是 Fortran 呢?我的示例中的语法当然无法编译。有没有其他语法可以使用?
是否有可能直接在函数的返回值上使用索引?像这样的东西:
readStr()(2:5)
wherereadStr()
是一个返回字符串或数组的函数。在许多其他语言中这是很有可能的,但是 Fortran 呢?我的示例中的语法当然无法编译。有没有其他语法可以使用?
不,这在 Fortran 中是不可能的。但是,您可以更改您的函数以采用额外的索引数组来确定返回哪些元素。这个例子说明了这种可能性,使用一个接口来允许索引的可选规范(由于 IanH 的评论大大简化了):
module test_mod
implicit none
contains
function squareOpt( arr, idx ) result(res)
real, intent(in) :: arr(:)
integer, intent(in), optional :: idx(:)
real,allocatable :: res( : )
real :: res_( size(arr) )
integer :: stat
! Calculate as before
res_ = arr*arr
if ( present(idx) ) then
! Take the sub-set
allocate( res(size(idx)), stat=stat )
if ( stat /= 0 ) stop 'Cannot allocate memory!'
res = res_(idx)
else
! Take the the whole array
allocate( res(size(arr)), stat=stat )
if ( stat /= 0 ) stop 'Cannot allocate memory!'
res = res_
endif
end function
end module
program test
use test_mod
implicit none
real :: arr(4)
integer :: idx(2)
arr = [ 1., 2., 3., 4. ]
idx = [ 2, 3]
print *, 'w/o indices',squareOpt(arr)
print *, 'w/ indices',squareOpt(arr, idx)
end program
不。
但是,如果它困扰您,您可以编写自己的用户定义函数和运算符来获得类似的结果,而不必将函数引用的结果存储在单独的变量中。
如果你使用 . 你可以避免声明另一个变量associate
。它是否比临时变量更好或更清晰必须由用户决定。无论如何,结果必须存储在某个地方。
associate(str=>readStr())
print *, str(2:5)
end associate
对于这种具有潜在长字符串的特定情况,它不会很有用,但对于在此处作为重复链接的其他类似情况可能更有用。