Fortran Coder

查看: 634|回复: 6

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

[复制链接]

10

帖子

3

主题

0

精华

入门

F 币
54 元
贡献
29 点
发表于 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(虚参)都是双精度类型, 为什么仍说实参虚参不一致?
回复

使用道具 举报

1138

帖子

12

主题

5

精华

论坛跑堂

Fcode跑堂

F 币
1065 元
贡献
863 点

新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

发表于 2017-4-11 13:06:02 | 显示全部楼层
看不出来问题,也许你发全部代码能更好的查找问题。
(也可以逐步删除无关的代码,使得代码尽量的小,又能重现问题)(当然要先备份)

10

帖子

3

主题

0

精华

入门

F 币
54 元
贡献
29 点
 楼主| 发表于 2017-4-11 16:03:57 | 显示全部楼层
fcode 发表于 2017-4-11 13:06
看不出来问题,也许你发全部代码能更好的查找问题。
(也可以逐步删除无关的代码,使得代码尽量的小,又能 ...

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

367

帖子

2

主题

0

精华

大宗师

F 币
2525 元
贡献
1519 点

水王勋章元老勋章热心勋章

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

10

帖子

3

主题

0

精华

入门

F 币
54 元
贡献
29 点
 楼主| 发表于 2017-4-15 00:13:31 | 显示全部楼层
pasuka 发表于 2017-4-11 17:58
又是一个尸位素餐的老板随手丢个祖传代码让学生自娱自乐或者自生自灭。。。
对编程兴趣不大,果断找老板要 ...

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

367

帖子

2

主题

0

精华

大宗师

F 币
2525 元
贡献
1519 点

水王勋章元老勋章热心勋章

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

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

1138

帖子

12

主题

5

精华

论坛跑堂

Fcode跑堂

F 币
1065 元
贡献
863 点

新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

发表于 2017-4-15 09:57:30 | 显示全部楼层
实在不行,你可以取消 IVF 的接口检查。
工程,属性,fortran,Diagnostic,Check routine interfaces,选择为 NO
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

QQ|捐赠本站|Archiver|关于我们 About Us|QQ群|Fcode

GMT+8, 2017-11-24 04:23

Powered by Discuz! X3.2

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表