Fortran Coder

标题: 关于实参和虚参类型不一致的问题 [打印本页]

作者: O'gaki 时间: 2017-4-11 11:43
标题: 关于实参和虚参类型不一致的问题
这是报错信息:
(1891): error #6633: The type of the actual argument differs from the type of the dummy argument. [AHUMI2]

这是代码内容:

[Fortran] syntaxhighlighter_viewsource syntaxhighlighter_copycode

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] syntaxhighlighter_viewsource syntaxhighlighter_copycode

        call d_rh_t(Rh2,ttt,ahumi2)

[Fortran] syntaxhighlighter_viewsource syntaxhighlighter_copycode

      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 时间: 2017-4-11 13:06
看不出来问题，也许你发全部代码能更好的查找问题。
（也可以逐步删除无关的代码，使得代码尽量的小，又能重现问题）（当然要先备份）

作者: O'gaki 时间: 2017-4-11 16:03

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

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

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

作者: O'gaki 时间: 2017-4-15 00:13

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

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

作者: pasuka 时间: 2017-4-15 00:20

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

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

作者: fcode 时间: 2017-4-15 09:57
实在不行，你可以取消 IVF 的接口检查。
工程，属性，fortran，Diagnostic，Check routine interfaces，选择为 NO

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)