| 查看: 406 | 回复: 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 ] |
回复此楼» 猜你喜欢
291求调剂
已经有7人回复
-
300求调剂
已经有8人回复
-
求调剂推荐
已经有7人回复
-
289 分105500药学专硕求调剂(找B区学校)
已经有4人回复
-
0854求调剂
已经有13人回复
-
初试324 中药学 一志愿天中医 求调剂
已经有3人回复
-
药学求调剂
已经有14人回复
-
327求调剂
已经有27人回复
-
急需调剂
已经有5人回复
-
271求调剂
已经有33人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 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
