| 查看: 385 | 回复: 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 ] |
回复此楼» 猜你喜欢
依托企业入选了国家启明计划青年人才。有无高校可以引进的。
已经有14人回复
-
表哥与省会女结婚，父母去帮带孩子被省会女气回家生重病了
已经有11人回复
-
江汉大学解明教授课题组招博士研究生/博士后
已经有3人回复
-
AI 太可怕了，写基金时，提出想法，直接生成的文字比自己想得深远，还有科学性
已经有11人回复
-
同年申请2项不同项目，第1个项目里不写第2个项目的信息，可以吗
已经有10人回复
-
依托企业入选了国家启明计划青年人才。有无高校可以引进的。
已经有11人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 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