 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 2 | 1/1 | 返回列表 |
| 查看: 400 | 回復(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ù)此樓» 猜你喜歡
334分 一志愿武理-080500 材料求調(diào)劑
已經(jīng)有10人回復(fù)
-
324分 085600材料與化工
已經(jīng)有7人回復(fù)
-
各位老師好，我的一志愿為北京科技大學(xué)085601材料專碩
已經(jīng)有11人回復(fù)
-
309求調(diào)劑
已經(jīng)有6人回復(fù)
-
調(diào)劑推薦
已經(jīng)有7人回復(fù)
-
一志愿西交大080500材料學(xué)碩349
已經(jīng)有7人回復(fù)
-
一志愿北京科技大學(xué)085601材料工程英一數(shù)二初試總分335求調(diào)劑
已經(jīng)有4人回復(fù)
-
352分-085602-一志愿985
已經(jīng)有6人回復(fù)
-
273求調(diào)劑
已經(jīng)有5人回復(fù)
-
349求調(diào)劑
已經(jīng)有4人回復(fù)
» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:
- fortran程序open文件時(shí)的簡單問題
已經(jīng)有3人回復(fù)
- 請(qǐng)教 fortran 運(yùn)行錯(cuò)誤的原因
已經(jīng)有13人回復(fù)
- FORTRAN新手 求助主程序循環(huán)問題
已經(jīng)有10人回復(fù)
- Fortran 編譯問題
已經(jīng)有9人回復(fù)
- 請(qǐng)教如何調(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的小程序，編譯通不過，請(qǐng)大俠幫忙
已經(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ā)表 | |
|---|---|---|---|---|
|
[考研] 085602 307分 求調(diào)劑 +10 | 不知道叫什么！ 2026-03-26 | 10/500 |
|
|---|---|---|---|---|
|
|
[考研] 化學(xué)308分調(diào)劑 +11 | 你好明天你好 2026-03-30 | 12/600 |
|
|
[考研] 070300化學(xué)354求調(diào)劑 +15 | 101次希望 2026-03-28 | 15/750 |
|
|
|
[考研] 346求調(diào)劑 一志愿070303有機(jī)化學(xué) +11 | 蘿卜燉青菜 2026-03-28 | 12/600 |
|
|
|
[考研] 285求調(diào)劑 +6 | AZMK 2026-03-30 | 11/550 |
|
|
|
[考研] 340求調(diào)劑 +4 | 希望如此i 2026-03-31 | 4/200 |
|
|
|
[基金申請(qǐng)] 面上5B能上會(huì)嗎？ +8 | redcom 2026-03-29 | 8/400 |
|
|
|
[考研] 272求調(diào)劑，接受跨專業(yè)調(diào)劑！ +3 | 閑魚盧 2026-03-31 | 3/150 |
|
|
|
[考研]
 304材料求調(diào)劑
+5
|
鐘llll 2026-03-26 | 5/250 |
|
|
|
[考研] 一志愿南開大學(xué)0710生物學(xué)359求調(diào)劑 +5 | 兔兔兔111223314 2026-03-29 | 7/350 |
|
|
|
[考研] 342求調(diào)劑 +4 | 加油a李zs 2026-03-26 | 4/200 |
|
|
|
[考研] 299求調(diào)劑 +10 | 15188958825 2026-03-25 | 10/500 |
|
|
|
[考研] 327求調(diào)劑 +6 | 汲亦昊 2026-03-29 | 6/300 |
|
|
|
[考研] 298求調(diào)劑 +3 | 種圣賜 2026-03-29 | 3/150 |
|
|
|
[考研] 321求調(diào)劑 +7 | 璞玉~~ 2026-03-25 | 8/400 |
|
|
|
[碩博家園] 招收生物學(xué)/細(xì)胞生物學(xué)調(diào)劑 +4 | IceGuo 2026-03-26 | 5/250 |
|
|
|
[考研] 085701環(huán)境工程，267求調(diào)劑 +16 | minht 2026-03-26 | 16/800 |
|
|
|
[考研] 340求調(diào)劑 +5 | jhx777 2026-03-27 | 5/250 |
|
|
|
[考研] 266求調(diào)劑 +11 | 陽陽哇塞 2026-03-27 | 12/600 |
|
|
|
[考研] 303求調(diào)劑 +6 | 藍(lán)山月 2026-03-25 | 6/300 |
|