DELPHI和FORTRAN语言的混合编程（二）[5]

procedure sub_name(x1,x2:pointer;var x3,x4:double);

pointer表明x1,x2是无类型指针（也可以采用有类型指针，这里从略），这时如果在另一程序中定义了四个双精度数a1,a2,a3,a4，按如下方式调用：

   sub_name(@a1,@a2,a3,a4)

则a1,a2,a3,a4中的值在计算前后都是可以改变的。