应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【求助】FORTRAN 90程序问题3【已解决】
21/1返回列表
查看: 469  |  回复: 1
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

zyj8119

木虫 (著名写手)

[交流] 【求助】FORTRAN 90程序问题3【已解决】 已有1人参与

MODULE  abc
INTERFACE ASSIGNMENT( = )
  MODULE PROCEDURE ascii_to_int
END INTERFACE
CONTAINS
  SUBROUTINE ascii_to_int(value,string)
CHARACTER( len = *),INTENT(in)::string
INTEGER,INTENT(out)::value
INTEGER::i
value=0
DO i=1,LEN_TRIM(string)
    value=value+ICHAR(string(i:i))
END DO
END SUBROUTINE ascii_to_int(value,string)
END MODULE abc
!
PROGRAM main
USE abc
CHARACTER( len =5)::string=' ABORT'
INTEGER::k
k=string
PRINT *,k
PRINT *,CHAR(MOD(k,100))
END PROGRAM  main
此程序为什么运行得到第一行为376而不是377？

[ Last edited by jjdg on 2010-4-22 at 20:59 ]
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
好好学习，天天向上。
1楼 2010-04-21 19:22:03
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zyj8119

木虫 (著名写手)
解决了，是计算错误了。。。
赞一下 回复此楼
好好学习，天天向上。
2楼2010-04-22 19:23:12
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 zyj8119 的主题更新
21/1返回列表
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
信息提示
关闭
请填处理意见
关闭