| 查看: 365 | 回复: 1 | |||
[交流]
【求助】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 ] |
回复此楼» 猜你喜欢
实验室接单子
已经有4人回复
-
全日制（定向）博士
已经有4人回复
-
假如你的研究生提出不合理要求
已经有6人回复
-
对氯苯硼酸纯化
已经有3人回复
-
求助:我三月中下旬出站，青基依托单位怎么办？
已经有12人回复
-
不自信的我
已经有12人回复
-
所感
已经有4人回复
-
论文终于录用啦！满足毕业条件了
已经有28人回复
-
要不要辞职读博？
已经有7人回复
-
北核录用
已经有3人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- fortran程序open文件时的简单问题
已经有3人回复
- 请教 fortran 运行错误的原因
已经有13人回复
- FORTRAN新手 求助主程序循环问题
已经有10人回复
- Fortran 编译问题
已经有9人回复
- 请教如何调用Module里面的函数，谢谢
已经有6人回复
- 如何改变fortran的浮点精度
已经有28人回复
- 【求助】Fortran语言赋值问题？
已经有3人回复
- Fortran的格式化输入输出问题
已经有14人回复
- 写了一个fortran90的小程序，编译通不过，请大侠帮忙
已经有59人回复
- 【求助】如何将源代码在linux下运行？
已经有8人回复
- 【求助】如何写FORTRAN程序实现求平均最近邻距离
已经有34人回复
- 【求助】有很多错误的程序，找不出来了
已经有18人回复
- 【交流】Fortran语言答疑专帖
已经有157人回复
2楼2010-04-22 19:23:12