| 查看: 548 | 回复: 0 | ||
[求助]
fortran程序接口（interface）报错，大神路过请指点一二！！
|
|
接口如下： INTERFACE DOUBLE PRECISION FUNCTION DENORM (N, X) INTEGER,INTENT(IN) :: N DOUBLE PRECISION,INTENT(IN) :: X(N) END FUNCTION DENORM END INTERFACE DENORM函数如下： DOUBLE PRECISION FUCTION DENORM(N,X) INTEGER I, N DOUBLE PRECISION AGIANT, FLOATN, ONE, RDWARF, RGIANT, S1, S2, S3, & X(*), X1MAX, X3MAX, XABS, ZERO SAVE ONE, ZERO, RDWARF, RGIANT DATA ONE,ZERO,RDWARF,RGIANT /1.0D0,0.0D0,3.834D-20,1.304D19/ 其中N是向量X的维数，其它均为中间变量或者常量。 |
回复此楼» 本帖附件资源列表
-
欢迎监督和反馈：小木虫仅提供交流平台，不对该内容负责。
本内容由用户自主发布，如果其内容涉及到知识产权问题，其责任在于用户本人，如对版权有异议，请联系邮箱：xiaomuchong@tal.com - 附件 1 : slatec.f90
- 附件 2 : Source1.for
2016-11-20 20:25:25, 3.4 K
2016-11-20 20:25:32, 5.45 K
» 猜你喜欢
08生物与医药专硕初试346找调剂
已经有7人回复
-
理学07化学 303求调剂
已经有14人回复
-
309求调剂
已经有4人回复
-
一志愿安徽大学计算机科学与技术学硕，331分求调剂
已经有5人回复
-
085600，材料与化工321分调剂
已经有8人回复
-
270调剂
已经有3人回复
-
一志愿211，335分，0856，求调剂院校和导师
已经有13人回复
-
085601一志愿中山大学深圳材料工程330求调剂
已经有7人回复
-
调剂推荐
已经有12人回复
-
求调剂，一志愿南京师范大学计算机专硕，初试373，六级通过，
已经有3人回复
