sub_name(@a1[0],@a2[0],str, a3,a4);
第二种混合编程方式的实现过程是：首先在fortran子程序按上述方法定义好，并编译成动态链接库forsub.dll；然后在delphi中按如下方法定义动态链接库子过程接口。在接口区（interface）中定义过程首部：
procedure sub_name(const x1,x2 : pointer;
str : string;
var x3, x4 : double); stdcall;
在实现区(implementation)中加上以下语句：
