Fortran Coder

查看: 272|回复: 2

[子程序] sign函数使用问题

[复制链接]

2

帖子

1

主题

0

精华

新人

F 币
15 元
贡献
7 点
发表于 2018-5-30 19:56:48 | 显示全部楼层 |阅读模式
求助:
real*8 Y,P1,P2,P3,P4,P5,Q1,Q2,Q3,Q4,Q5,R1,R2,R3,R4,R5,R6,
     &S1,S2,S3,S4,S5,S6,X,ax,z,xxBESSJ1=dsqrt(.636619772/AX)*(dcos(XX)*(P1+Y*(P2+Y*(P3+Y*(P4+Y*P5)
     &        )))-Z*dsin(XX)*(Q1+Y*(Q2+Y*(Q3+Y*(Q4+Y*Q5)))))*SIGN(1.,X)

在已经规定sign函数内部的数据类型的情况下,仍然报错:
[backcolor=rgba(0, 0, 0, 0.831373)]‘b’ argument of ‘sign’ intrinsic at (1) must be the same type and kind as ‘a’

回复

使用道具 举报

104

帖子

0

主题

0

精华

版主

World Analyser

F 币
98 元
贡献
181 点

新人勋章美女勋章元老勋章热心勋章规矩勋章管理勋章

QQ
发表于 2018-5-31 08:12:42 | 显示全部楼层
错误提示很明显呀,1. 必须和 X 具有相同的 kind 值。
您的 X 是 real*8 ,所以 1. 必须也是 kind=8 的常量,即 1.d0

SIGN(1.d0,X)

2

帖子

1

主题

0

精华

新人

F 币
15 元
贡献
7 点
 楼主| 发表于 2018-6-1 10:14:00 | 显示全部楼层
kyra 发表于 2018-5-31 08:12
错误提示很明显呀,1. 必须和 X 具有相同的 kind 值。
您的 X 是 real*8 ,所以 1. 必须也是 kind=8 的常量 ...

谢谢解答,给你小心心
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

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

GMT+8, 2018-12-14 03:49

Powered by Discuz! X3.2

© 2001-2017 Comsenz Inc.

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