！dec＄attributes alias:’sub_name’::sub_name
real(8),dimension(:)::x1,x2
character(len=*) str
real(8),intent(out)::x3,x4
！dec$ attributes refence::str
这时，delphi中相应的接口过程定义为：
procedure sub_name(const x1,x2:pointer; str:string; var x3, x4:double);
则按如下方式调用：
