一段fortran程序,用于生成随机数,哪里出问题了
一段fortran程序,用于生成随机数,哪里出问题了real*8 function random()implicit double precision(a-h,o-z)common/random_s/xx=dmod(x*1953125d0,8388593d0)random=(x+0.1d0)/8388593d0returnendblock datareal*8 xcommon/random_s/xdata x/235621d0/end block data另外,问题是The type of the function reference does not match the type of the function definition.有人说是形参和实参类型不一致,求问该怎么改动我在调用的时候语句是a=random()请问哪里出现什么问题了吗?该怎么解决?
最佳回答
你给出的 random 没有任何虚参,不存在类型不一致的情况。1。随机数,Fortran 有内置的函数random_number可以实现。2。如果你要找出你的问题,建议你给出完整代码。 再问: 完整代码很长,不便复制,问题就是那句The type of the function reference does not match the type of the function definition。 还有,这段子函数程序本身没有什么问题吗? 内置的暂且不要。如果需要的话我自行改动,大神还是帮我看看这段子函数。 再答: 这子程序没有语法问题。但能否实现随机数,我觉得够呛。为什么内置的不要呢?? The type of the function reference does not match the type of the function definition。 意思确实是实参和虚参类型不一致,但不是发生在你给出的子程序上。 你给出的子程序,根本没有虚参啊。 最后,我强烈建议你放弃使用 common 和 data 语句。
最新回答共有2条回答
-
2026-03-30 10:04:53炙热的镜子
回复你给出的 random 没有任何虚参,不存在类型不一致的情况。1。随机数,Fortran 有内置的函数random_number可以实现。2。如果你要找出你的问题,建议你给出完整代码。 再问: 完整代码很长,不便复制,问题就是那句The type of the function reference does not match the type of the function definition。 还有,这段子函数程序本身没有什么问题吗? 内置的暂且不要。如果需要的话我自行改动,大神还是帮我看看这段子函数。 再答: 这子程序没有语法问题。但能否实现随机数,我觉得够呛。为什么内置的不要呢?? The type of the function reference does not match the type of the function definition。 意思确实是实参和虚参类型不一致,但不是发生在你给出的子程序上。 你给出的子程序,根本没有虚参啊。 最后,我强烈建议你放弃使用 common 和 data 语句。
热门文章
- 康达学院专转本五年制
- 高考一个考场分ab卷吗
- not only but also用法
- 某物体做自由落体运动,从释放开始计时,则物体在前2s内的平均速度为______m/s,物体下落2m时的速度大小为______m/s.
- 三角函数公式大全表格
- 地理中考必背知识点2022
- 2013-2014学年小学六年级科学上学期期末考试试卷及答案
- 人教版2014-2015学年小学五年级英语第二学期期中教学质量检测试卷及答案
- 【Linux驱动开发】设备树详解(二)设备树语法详解
- 别跟客户扯细节
- 在别的城市买房子能落户吗
- 卖房前要把装修贷还完吗
- 高中政治教学提高教学效果的方法探究
- “互联网+”背景下的初中英语课堂教学改革与创新策略研究
- 2022年终止合同范本
- 租房合同范本范文
- 如何挑选土豆
- 如何挑选土鸡
