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

O'gaki

这是报错信息:
(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(虚参)都是双精度类型, 为什么仍说实参虚参不一致?

fcode

看不出来问题，也许你发全部代码能更好的查找问题。
（也可以逐步删除无关的代码，使得代码尽量的小，又能重现问题）（当然要先备份）

O'gaki

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

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

pasuka

又是一个尸位素餐的老板随手丢个祖传代码让学生自娱自乐或者自生自灭。。。
对编程兴趣不大，果断找老板要求更换课题或者改用MATLAB编程
按照个人经验，2w行的祖传Fortran77代码可以用2k行甚至更少的MATLAB代码实现全部功能

O'gaki

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

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

pasuka

O'gaki 发表于 2017-4-15 00:13
哭泣....这是我的毕业设计, 还有十几天就要交论文初稿了.
我没什么编程基础, 是做这个毕设才开始学fortr ...

MATLAB的创始人就是因为在大学里教fortran编程感觉学生们学习效率不高，遂用fortran开发初代matlab辅助教学

fcode

实在不行，你可以取消 IVF 的接口检查。
工程，属性，fortran，Diagnostic，Check routine interfaces，选择为 NO