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

则按如下方式调用：

  sub_name(@a1[0],@a2[0],str,length(str),a3,a4);

另一种方式更为简便，因为在delphi中，字符串被视为动态数组，以call by refence方式传递，因此，可先在fortran中使用编译字将字符串的传递方式强制为地址传递方式，即：

subroutine sub_name(x1,x2,str,x3, x4)

！dec＄attributes dllexport::sub_name