关于实参和虚参类型不一致的问题

O'gaki · 发表于 2017-4-11 11:43:05

这是报错信息:
(1891): error #6633: The type of the actual argument differs from the type of the dummy argument. [AHUMI2]

这是代码内容:

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

subroutine Fiber_Module_reg2(data_input,data_output)
c      implicit double  precision  (b-h,o-z)
c	implicit integer (i-n)
	double  precision ahumi_ao,Tem_ao,RH_ao,Rh1,Rh2,ttt,ahumi1,ahumi2
     & xx1,xx2,data_input,data_output

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

	call d_rh_t(Rh2,ttt,ahumi2)

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

      subroutine d_rh_t(rh,t,d)
      implicit double precision (a-h,o-z)
	implicit integer (i-n)
	call satu_press(t,p_satu)
	p_a=101325
	d=0.622*rh*p_satu/(p_a-rh*p_satu)
	return
	end

函数里都没有implicit none

由代码可见ahumi2(实参)和d(虚参)都是双精度类型, 为什么仍说实参虚参不一致?

O'gaki · 发表于 2017-4-11 16:03:57

fcode 发表于 2017-4-11 13:06
看不出来问题，也许你发全部代码能更好的查找问题。
（也可以逐步删除无关的代码，使得代码尽量的小，又能 ...

整个程序是我导师以前用microsoft developer studio写的, 现在在microsoft developer studio里能成功运行, 但在VS+IVF的编译器里运行就会报出各种错误.
这种源代码没变, 只是改变了编译器, 就报错的现象应该怎么解决呢?

O'gaki · 发表于 2017-4-15 00:13:31

pasuka 发表于 2017-4-11 17:58
又是一个尸位素餐的老板随手丢个祖传代码让学生自娱自乐或者自生自灭。。。
对编程兴趣不大，果断找老板要 ...

哭泣....这是我的毕业设计, 还有十几天就要交论文初稿了.
我没什么编程基础, 是做这个毕设才开始学fortran,已经用fortran写好一个算法了, 现在需要和老师的程序结合
请问matlab是比fortran好在哪里, 可以把代码简化到这么短?

[子程序] 关于实参和虚参类型不一致的问题