 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 2 | 1/1 | 返回列表 |
| 查看: 398 | 回復(fù): 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 此程序?yàn)槭裁催\(yùn)行得到第一行為376而不是377？ [ Last edited by jjdg on 2010-4-22 at 20:59 ] |
回復(fù)此樓» 猜你喜歡
求調(diào)劑 有機(jī)化學(xué)考研356分
已經(jīng)有4人回復(fù)
-
0703 化學(xué) 求調(diào)劑，一志愿山東大學(xué) 342 分
已經(jīng)有4人回復(fù)
-
086000生物與醫(yī)藥調(diào)劑
已經(jīng)有7人回復(fù)
-
305求調(diào)劑
已經(jīng)有7人回復(fù)
-
348求調(diào)劑
已經(jīng)有3人回復(fù)
-
332求調(diào)劑
已經(jīng)有6人回復(fù)
-
各位老師好，我的一志愿為北京科技大學(xué)085601材料專碩
已經(jīng)有6人回復(fù)
-
085600 材料與化工 329分求調(diào)劑
已經(jīng)有10人回復(fù)
-
356求調(diào)劑
已經(jīng)有3人回復(fù)
-
一志愿武漢理工，總分321，英一數(shù)二，求老師收留。
已經(jīng)有7人回復(fù)
» 本主題相關(guān)價(jià)值貼推薦，對您同樣有幫助:
- fortran程序open文件時(shí)的簡單問題
已經(jīng)有3人回復(fù)
- 請教 fortran 運(yùn)行錯(cuò)誤的原因
已經(jīng)有13人回復(fù)
- FORTRAN新手 求助主程序循環(huán)問題
已經(jīng)有10人回復(fù)
- Fortran 編譯問題
已經(jīng)有9人回復(fù)
- 請教如何調(diào)用Module里面的函數(shù)，謝謝
已經(jīng)有6人回復(fù)
- 如何改變fortran的浮點(diǎn)精度
已經(jīng)有28人回復(fù)
- 【求助】Fortran語言賦值問題？
已經(jīng)有3人回復(fù)
- Fortran的格式化輸入輸出問題
已經(jīng)有14人回復(fù)
- 寫了一個(gè)fortran90的小程序，編譯通不過，請大俠幫忙
已經(jīng)有59人回復(fù)
- 【求助】如何將源代碼在linux下運(yùn)行？
已經(jīng)有8人回復(fù)
- 【求助】如何寫FORTRAN程序?qū)崿F(xiàn)求平均最近鄰距離
已經(jīng)有34人回復(fù)
- 【求助】有很多錯(cuò)誤的程序，找不出來了
已經(jīng)有18人回復(fù)
- 【交流】Fortran語言答疑專帖
已經(jīng)有157人回復(fù)
2樓2010-04-22 19:23:12
相關(guān)版塊跳轉(zhuǎn)
我要訂閱樓主 zyj8119 的主題更新
| 2 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
