运算中出现不解提示，求助01

PotsyYZhou

运算中出现不解提示，求助01
***********************

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

查看代码

打印?

01	function r8_log_10 ( x )

02

03	!c*********************************************************************72

04

!c

05	!cc R8_LOG_10 returns the logarithm base 10 of an R8.

06

!c

07	!c  Discussion:

08

!c

09	!c    value = Log10 ( |X| )

10

!c

11	!c  Parameters:

12

!c

13	!c    Input, double precision X, the number whose base 2 logarithm is desired.

14	!c    X should not be 0.

15

!c

16	!c    Output, double precision R8_LOG_10, the logarithm base 10 of the absolute

17	!c    value of X.  It should be true that |X| = 10**R_LOG_10.

18

!c

19	implicit none

20

21	double precision r8_huge

22	double precision r8_log_10

23	double precision x

24

25	if ( x .eq. 0.0D+00 ) then

26	#7492 |     r8_log_10 = - r8_huge ( x )

27

else

28	r8_log_10 = log10 ( abs ( x ) )

29

end if

30

31

return

32

end

********************************
main.f90:7492:29: 7492 |         r8_log_10 = - r8_huge ( x )      |                             1Warning: More actual than formal arguments in procedure call at (1)/usr/bin/ld: /tmp/cc2NnkaB.o: in function `test07_':main.f90:(.text+0x1b015): undefined reference to `r8_uniform_'/usr/bin/ld: main.f90:(.text+0x1b04f): undefined reference to `r8_uniform_'/usr/bin/ld: /tmp/cc2NnkaB.o: in function `test03_':main.f90:(.text+0x1cddc): undefined reference to `r8_uniform_'/usr/bin/ld: /tmp/cc2NnkaB.o: in function `test02_':main.f90:(.text+0x1d745): undefined reference to `r8_uniform_'/usr/bin/ld: main.f90:(.text+0x1d765): undefined reference to `r8_uniform_'/usr/bin/ld: /tmp/cc2NnkaB.o:main.f90:(.text+0x1dcbc): more undefined references to `r8_uniform_' followcollect2: error: ld returned 1 exit status
#7492？？？？
   不解。及下面内容的意思，求助！
谢谢！

胡文刚

你给出的部分代码无法判断这种"缺少函数"的问题。

风平老涡

定义了r8_huge变量， 没有定义r8_huge(x) 函数。

PotsyYZhou

收到， 谢谢！