把allocate语句放在函数外面，先分配数组，再调用此函数为其赋值

如果BASISNUM是在引用的模块中定义的话，可将hx声明为普通数组

REAL::HX(BASISNUM)

个人觉得，用如下形式就可以满足要求了

FUNCTION MULT(BASISNUM, X) RESULT(HX)
IMPLICIT NONE
integer, intent(in):: BASISNUM
REAL:: X(1 : BASISNUM)
REAL, intent(out):: HX(1 : HXBASISNUM)
! ...

或者可以这样声明：

REAL::HX(size(x))

function mult(x) result(hx)
implicit none
integer i,ind_1,ind_2
real, dimension(:), intent(in)::x
real :: hx( size(x) )

把allocate语句放在函数外面，先分配数组，再调用此函数为其赋值如果BASISNUM是在引用的模块中定义的话，可将hx声明为普通数组REAL：HX(BASISNUM)

把allocate语句放在函数外面，先分配数组，再调用此函数为其赋值如果BASISNUM是在引用的模块中定义的话，可将hx声明为普通数组REAL：HX(BASISNUM)

把allocate语句放在函数外面，先分配数组，再调用此函数为其赋值如果BASISNUM是在引用的模块中定义的话，可将hx声明为普通数组REAL：HX(BASISNUM)

[quote]function mult(x) result(hx)
implicit none
integer i,ind_1,ind_2
real, dimension(:), intent(in)::x
real :: hx( size(x) )
[/quote]
谢谢adda，我以前也是这样编的，但因为那个输入值x的维数太大，调用这个函数时发生了堆栈溢出的错误（real :: hx( size(x) )），当把括号中的那句改为
real,dimension(:),allocatable::hx
allocate(hx(size(x)))
时，堆栈溢出的错误就可避免，在做这件事时，我把这个函数写到了主程序里了，因为函数的输出好像不能为动态数组。为了再把这段程序写为一个函数，我发现可以使用指针这个工具，这样的话就可以如下定义(函数输出可以为指针)
real,dimension(:),pointer::hx
allocate(hx(basisnum))
这样做以后，函数的功能是实现了，但随即又发生了指针悬挂的问题。
现在我有两个困惑，首先是
real::hx(10000)
和
real,dimension(:),allocatable::hx
allocate(hx(10000))
有什么不同，为什么前者会发生堆栈溢出而后者不会？
第二就是如何使用指针数组作为函数输出值而避免内存悬挂？

real::hx(10000)   ! hx在栈上

allocate(hx(10000))    ! hx在堆上

栈的大小是有限的, 所以会发生溢出.

你的问题, 我觉得可以:
1. 在调用函数前分配空间
2. 增大栈空间大小. 在编译器的设置中可以修改

谢谢adda，你说的第二点我之前已经试过，但总觉得这只是权宜之计，至于第一点，我不是很理解，可以说的详细点吗？