Question

我编译fortran生成dll文件供vb调用，但编译时候出现问题，请教

出现dfor.lib(DFORMAIN.OBJ) : error LNK2001: unresolved external symbol _MAIN__
Release/srhsq.exe : fatal error LNK1120: 1 unresolved externals
Error executing link.exe.问题
real function srhba
!DEC$ ATTRIBUTES DLLEXPORT :: SRHBA
!DEC$ ATTRIBUTES ALIAS : "Srhba" :: SRHBA
implicit none
.
.
.
x1ba=SRH(1,1)+0.16*(SRH(2,1)-SRH(1,1))
x2ba=SRH(1,2)+0.16*(SRH(2,2)-SRH(1,2))
y1ba=SRH(1,1)+0.59*(SRH(1,2)-SRH(1,1))
y2ba=SRH(2,1)+0.59*(SRH(2,2)-SRH(2,1))
srhba=(x1ba+x2ba+y1ba+y2ba)/4.0
close(1)
close(2)
return
end function

Answer 1

x1ba=SRH(1,1)+0.16*(SRH(2,1)-SRH(1,1))
x2ba=SRH(1,2)+0.16*(SRH(2,2)-SRH(1,2))
y1ba=SRH(1,1)+0.59*(SRH(1,2)-SRH(1,1))
y2ba=SRH(2,1)+0.59*(SRH(2,2)-SRH(2,1))
srhba=(x1ba+x2ba+y1ba+y2ba)/4.0
close(1)
close(2)
return
end function

有问题

Answer 2

这种资源还是在百度或GOOGLE上搜一下，如果曾经有人在网上发布，或有网站下载，一般都会被搜索引擎收录；如果搜不到，你可以找一下相关的论坛，最好是那种人气比较高的论坛，注册会员，发帖求助，会有高手帮你的。

Answer 3

使用百度Hi可以第一时间收到“提问有新回答”“回答被采纳”“网友求助”的通知。查看详情

您想在自己的网站上展示百度“知道”上的问答吗？来获取免费代码吧！

如要投诉或提出意见建议，
请到百度知道投诉吧反馈。