彭国论的书里ex0836.f90报错了如何解决

芥子纳须弥

在IVF+VS环境调试出现下面这样的错误，要怎么解决？
ex0836.f90(31): error #6552: The CALL statement is invoking a function subprogram as a subroutine.   [GET_DISTANCE]

附源代码：

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

查看代码

打印?

01	module constant

02	implicit none

03	real, parameter :: PI = 3.14159

04	real, parameter :: G  = 9.81

05	end module

06	module typedef

07	implicit none

08	type player

09	real :: angle

10	real :: speed

11	real :: distance

12

end type

13	end module

14

15	program ex0836

16	use typedef

17	implicit none

18	integer, parameter :: players = 5

19	type(player) :: people(players) = (/ player(30.0, 25.0, 0.0),&

20	player(45.0, 20.0, 0.0),&

21	player(35.0, 21.0, 0.0),&

22	player(50.0, 27.0, 0.0),&

23	player(40.0, 22.0, 0.0) &

24

/)

25	real, external :: Get_Distance ! 声明Get_Distance是个函数

26	integer :: I

27	do I=1, players

28	call Get_Distance( people(I) )  !/////// 这里出错了

29	write(*,"('Player ',I1,' =',F8.2)") I, people(I)%distance

30

end do

31

stop

32

end

33	! 把0～360的角度转换成0～2PI的弧度

34	real function Angle_TO_Rad( angle )

35	use constant

36	implicit none

37	real angle

38	Angle_TO_Rad = angle*pi/180.0

39

return

40

end

41	! 由角度、切线速度来计算投射距离

42	subroutine Get_Distance( person )

43	use constant

44	use typedef

45	implicit none

46	type(player) :: person

47	real rad, Vx, time

48	real, external  :: Angle_TO_Rad ! 声明Angle_TO_Rad是个函数

49	rad  = Angle_TO_Rad( person%angle )      ! 单位转换

50	Vx   = person%speed * cos(rad)           ! 水平方向速度

51	time = 2.0 * person%speed * sin(rad) / G ! 在空中飞行时间

52	person%distance = Vx * time              ! 距离 = 水平方向速度 * 飞行时间

53

return

54

end

li913

external :: Get_Distance ! 声明Get_Distance是个函数

芥子纳须弥

li913 发表于 2020-6-6 15:15
external :: Get_Distance ! 声明Get_Distance是个函数

我把您说的这句话删掉就可以了，谢谢。