IMSL缺失lib，不知道缺失的是哪个

石子

大家好，我在使用IMSL,按照Fcode网站上的帖子进行了安装和设置好了编译器，最后报错如下：error LNK2019: 无法解析的外部符号 _S_RAND_GEN，该符号在函数 _MAIN__ 中被引用        Source1.obj       
我的主程序是IMSL帮助文档中的，看帖子中的相关内容，是缺失lib，可是Lib文件夹下的内容很多，不知道缺失的是哪个，查了imsl相关的文档没有找到，请问应该怎么查找自己需要的是哪个Lib呢？谢谢大家

necrohan

你另找别人的例子吧，以前imsl例子的use语句就不对

布衣龙共

http://v.fcode.cn/video-use_library.html
这里有个视频教程看看~

石子

布衣龙共 发表于 2021-3-4 08:31
http://v.fcode.cn/video-use_library.html
这里有个视频教程看看~

感谢

石子

按照视频教程中的内容，在文件前面加了include，头文件是Include文件夹下的，但是出现了错误

[Fortran] 纯文本查看 复制代码

查看代码

打印?

01	include 'link_fnl_static.h'

02	use lin_sol_gen_int

03	use rand_gen_int

04

05	implicit none

06	! This is Example 1 for LIN_SOL_GEN.

07	integer, parameter :: n=32

08	real(kind(1e0)), parameter :: one=1e0

09	real(kind(1e0)) err

10	real(kind(1e0)) A(n,n), b(n,n), x(n,n), res(n,n), y(n**2)

11	integer::i,j

12	! Generate a random matrix.

13	call rand_gen(y)

14	A = reshape(y,(/n,n/))

15	! Generate random right-hand sides.

16	call rand_gen(y)

17	b = reshape(y,(/n,n/))

18	! Compute the solution matrix of Ax=b.

19	call lin_sol_gen(A, b, x)

20

do i=1,32

21

do j=1,32

22	print*,A(j,i)

23

enddo

24

enddo

25

end

报错如下

错误        1         error LNK2005: "void __cdecl _invalid_parameter(unsigned short const *,unsigned short const *,unsigned short const *,unsigned int,unsigned int)" (?_invalid_parameter@@YAXPBG00II@Z) 已经在 LIBCMTD.lib(invarg.obj) 中定义        LIBCMT.lib(invarg.obj)        

错误        2         error LNK2005: "void __cdecl _invoke_watson(unsigned short const *,unsigned short const *,unsigned short const *,unsigned int,unsigned int)" (?_invoke_watson@@YAXPBG00II@Z) 已经在 LIBCMTD.lib(invarg.obj) 中定义        LIBCMT.lib(invarg.obj)        

错误        3         error LNK2005: __call_reportfault 已经在 LIBCMTD.lib(invarg.obj) 中定义        LIBCMT.lib(invarg.obj)

等等

然后我删掉了include那行，把lib下的大部分文件名都加入到工程文件的link-input下面，程序可以正常跑了。只是不知道为什么我加的这个Include这行不能正常运行呢？