Question

subroutine和function的区别 pb

Answer 1

以下内容是自己翻译的，如有问题请留言。

Functions are simpler than subroutines. A function can only return one variable, and can be invoked from within a write statement, inside an if declaration if (function) then, etc. A subroutine handles many variables and can only be used as a stand-alone command.

函数要比子程序简单。
函数只能返回一个变量，但是可以从写入语句中被调用；在if声明中有if (function) then,等等。
子程序处理多变量问题，可以用作单独命令。

Function自定义函数

In Fortran one can use a function to return a value or an array of values. The following program calls a function to compute the sum of the square and the cube of an integer.
在fortran中，可以使用一个函数来返回一个值或者一个数组的值。
下面程序调用了函数来计算一个整数的平方与立方的和。

function func(i) result(j)
integer, intent(in) :: i ! input
integer :: j ! output
j = i**2 + i**3
end function func

program xfunc
implicit none
integer :: i,func
i = 3
print*,"sum of the square and cube of",i," is",func(i)
end program xfunc 读美文

Subroutine 子程序

A subroutine can be used to return several values through its arguments. It is invoked with a call statement. Here is an example.
子程序可以通过变元[自变量]来返回多个值，他由call语句来调用。下面是一个例子：
subroutine square_cube(i,isquare,icube)
integer, intent(in) :: i ! input
integer, intent(out) :: isquare,icube ! output
isquare = i**2
icube = i**3
end subroutine square_cube

program xx
implicit none
integer :: i,isq,icub
i = 4
call square_cube(i,isq,icub)
print*,"i,i^2,i^3=",i,isq,icub
end program xx

Fortran中函数和subroutine中的实元和哑元之间是通过地址传递数据的，这与c/c++中的传值是不同的，也就是说，函数或subroutine中的哑元值发生了变化也就意味着调用的实元发生了变化，因此函数或subroutine调用过后，实元的值已经是计算过的新值了。

当然这样做也是有前提的，即在函数或subroutine中没有指定哑元的intend（in）属性。关于intend属性请参见有关书籍。

Answer 2

PB内置Oracle数据库接口的使用方法2008-12-23 13:34PowerBuilder(PB)和Oracle分别是前端开发工具和RDBMS的主流产品。PB提供了两种与Oracle连接的接口：PowerSoft内置的数据库接口(Native Database Interface)和ODBC接口。