版塊導(dǎo)航: 正在加載中...

應(yīng)《網(wǎng)絡(luò)安全法》要求，自2017年10月1日起，未進(jìn)行實(shí)名認(rèn)證將不得使用互聯(lián)網(wǎng)跟帖服務(wù)。為保障您的帳號(hào)能夠正常使用，請(qǐng)盡快對(duì)帳號(hào)進(jìn)行手機(jī)號(hào)驗(yàn)證，感謝您的理解與支持！

24小時(shí)熱門(mén)版塊排行榜

返回列表

lchunmei001

木蟲(chóng) (正式寫(xiě)手)

應(yīng)助: 0 (幼兒園)
金幣: 1738.5
帖子: 797
在線: 151.3小時(shí)
蟲(chóng)號(hào): 863507

[交流] 【求助】輸入是什么？

請(qǐng)教一下大家，如下這樣一個(gè)輸入片段，到底輸入文件應(yīng)該如何命名？運(yùn)行總是沒(méi)有輸出。請(qǐng)路過(guò)高手幫解答解答，感激不盡！
C--->  INPUT EXPERIMENTAL DATA
   WRITE(*,*)'elem ?'
   READ(*,'(A2)')elem
   WRITE(FILM1,'(4A,2A,3A)')'ab-',elem,'.IN'
   OPEN(1,FILE=FILM1,status='old')
   READ(1,*)
   READ(1,*)
   READ(1,*)a,b,c,d,e,f,g,h
   ..........

回復(fù)此樓

» 猜你喜歡

求調(diào)劑院校信息已經(jīng)有4人回復(fù)
085600材料與化工306 已經(jīng)有4人回復(fù)
286求調(diào)劑已經(jīng)有10人回復(fù)
328求調(diào)劑，英語(yǔ)六級(jí)551，有科研經(jīng)歷已經(jīng)有9人回復(fù)
一志愿北京化工大學(xué)070300 學(xué)碩336求調(diào)劑已經(jīng)有4人回復(fù)
286分人工智能專(zhuān)業(yè)請(qǐng)求調(diào)劑愿意跨考！已經(jīng)有8人回復(fù)
資源與環(huán)境調(diào)劑申請(qǐng)(333分) 已經(jīng)有5人回復(fù)
280求調(diào)劑已經(jīng)有12人回復(fù)
269專(zhuān)碩求調(diào)劑已經(jīng)有5人回復(fù)
材料學(xué)碩301分求調(diào)劑已經(jīng)有7人回復(fù)

» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:

【求助】DMA 應(yīng)力應(yīng)變曲線中應(yīng)變從負(fù)值開(kāi)始是什么原因？？？已經(jīng)有9人回復(fù)
【求助】熱力學(xué)軟件計(jì)算共格錯(cuò)配度的原理是什么？已經(jīng)有0人回復(fù)
【求助完畢】程序表示什么意思？已經(jīng)有5人回復(fù)
【求助】為什么要單獨(dú)計(jì)算態(tài)密度呢？已經(jīng)有8人回復(fù)
【求助】晶格優(yōu)化崩潰？已經(jīng)有1人回復(fù)
【求助】這是什么錯(cuò)誤？已經(jīng)有6人回復(fù)
【求助】含時(shí)密度泛函（TD-DFT）在gaussian的輸入文件中如何表示？已經(jīng)有7人回復(fù)
【求助】CASTEP中的STM profile計(jì)算無(wú)法選擇導(dǎo)出文件？Results file selector？已經(jīng)有9人回復(fù)
【求助/交流】多肽鑒定結(jié)果中SEQ ID NO的意思是什么？已經(jīng)有1人回復(fù)
【求助】abinit用服務(wù)器算出錯(cuò)？已經(jīng)有7人回復(fù)
【求助】為什么使用readisotopes時(shí)老是出現(xiàn)2070錯(cuò)誤？已經(jīng)有12人回復(fù)
【求助】TRANSIESTA計(jì)算輸運(yùn)和gDFTB有什么不同？已經(jīng)有1人回復(fù)
【求助】光伏組件是恒流源還是恒壓源？已經(jīng)有8人回復(fù)
【求助】請(qǐng)什么源極輸入,什么又是漏極輸入？有什么區(qū)別嗎？已經(jīng)有1人回復(fù)
【求助】怎樣讓abinit跑起來(lái)？已經(jīng)有11人回復(fù)
【求助】SYBYL-分子讀入后COMFA不能給出數(shù)值時(shí)什么原因？已經(jīng)有6人回復(fù)
【求助】使用M02-2X方法的輸入文件是什么？已經(jīng)有4人回復(fù)
【求助】G03中有VSXC方法嗎？為什么我一輸入進(jìn)去就link died？已經(jīng)有6人回復(fù)
【求助】用什么軟件能夠輸入結(jié)構(gòu)計(jì)算pKa值？？已經(jīng)有2人回復(fù)
【求助】如何在Word里輸入一個(gè)好看的積分符號(hào)？已經(jīng)有24人回復(fù)
【求助】為什么我這個(gè)程序編譯都沒(méi)有問(wèn)題，就是運(yùn)行不出來(lái)？【已完結(jié)】已經(jīng)有9人回復(fù)
【求助】為什么相同的輸入結(jié)構(gòu)和計(jì)算方法在G03中可以運(yùn)行，在G09就報(bào)錯(cuò)啊？已經(jīng)有10人回復(fù)
【求助】請(qǐng)問(wèn)一下，我用VASP算SmFe磁性出現(xiàn)錯(cuò)誤是什么原因? 已經(jīng)有6人回復(fù)
【求助】為什么要這么做結(jié)構(gòu)優(yōu)化？已經(jīng)有3人回復(fù)
【求助】請(qǐng)問(wèn)orca的可視化軟件有什么？已經(jīng)有7人回復(fù)

» 搶金幣啦！回帖就可以得到:

查看全部散金貼

1樓 2011-04-13 20:54:37

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

snoopyzhao

至尊木蟲(chóng) (職業(yè)作家)

程序強(qiáng)帖: 16
應(yīng)助: 157 (高中生)
貴賓: 0.02
金幣: 18844.7
帖子: 3803
在線: 1422.4小時(shí)
蟲(chóng)號(hào): 183750

lchunmei001(金幣+10): 2011-04-14 08:55:47

引用回帖:

Originally posted by lchunmei001 at 2011-04-13 20:54:37:
請(qǐng)教一下大家，如下這樣一個(gè)輸入片段，到底輸入文件應(yīng)該如何命名？運(yùn)行總是沒(méi)有輸出。請(qǐng)路過(guò)高手幫解答解答，感激不盡！
C--->  INPUT EXPERIMENTAL DATA
   WRITE(*,*)'elem ?'
   READ(*,'(A2)') ...

你這里都是在讀取數(shù)據(jù)，沒(méi)有輸出啊……

C--->  INPUT EXPERIMENTAL DATA
   WRITE(*,*)'elem ?'
上面這行是在屏幕上輸出 elem 這樣的字符
   READ(*,'(A2)')elem
這里是讀入一個(gè)長(zhǎng)度為2的字符串，即你給 elem 的值
   WRITE(FILM1,'(4A,2A,3A)')'ab-',elem,'.IN'
這里是給一個(gè)字符串 film1 賦值，它最終的值是是ab-??.IN，其中??是上一步獲得的。但這里好象有點(diǎn)兒?jiǎn)栴}，應(yīng)該是'(3A,2A,3A)'，也可能是后面 'ab-' 這兒有問(wèn)題。
   OPEN(1,FILE=FILM1,status='old')
這是打開(kāi)一個(gè)名為 film1，即 ab-??.IN 的文件
   READ(1,*)
讀入一行，但其值不被使用
   READ(1,*)
同上
   READ(1,*)a,b,c,d,e,f,g,h
為 a, b, c, d, e, f, g, h 賦值，這些值來(lái)自于上面的那個(gè)打開(kāi)的文件……

其實(shí)，隨便找一本 Fortran 的書(shū)，看 I/O 部分的講解即可……

贊一下

回復(fù)此樓

2樓2011-04-13 22:02:01

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

snoopyzhao

至尊木蟲(chóng) (職業(yè)作家)

程序強(qiáng)帖: 16
應(yīng)助: 157 (高中生)
貴賓: 0.02
金幣: 18844.7
帖子: 3803
在線: 1422.4小時(shí)
蟲(chóng)號(hào): 183750

注意下面這句沒(méi)有輸出的，雖然用的是 write 函數(shù)……

WRITE(FILM1,'(4A,2A,3A)')'ab-',elem,'.IN'

贊一下

回復(fù)此樓

3樓2011-04-13 22:05:42

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

dingxb

金蟲(chóng) (正式寫(xiě)手)

應(yīng)助: 12 (小學(xué)生)
金幣: 1674.5
帖子: 482
在線: 59.5小時(shí)
蟲(chóng)號(hào): 34085

lchunmei001(金幣+10): 2011-04-14 08:55:54

引用回帖:

在下不才斗膽來(lái)說(shuō)兩句。

細(xì)觀Lz的代碼，驚奇的發(fā)現(xiàn)，這段代碼寫(xiě)的真的挺值得學(xué)習(xí)的。

1 C--->  INPUT EXPERIMENTAL DATA
2    WRITE(*,*)'elem ?'
3    READ(*,'(A2)')elem
4    WRITE(FILM1,'(4A,2A,3A)')'ab-',elem,'.IN'
5    OPEN(1,FILE=FILM1,status='old')
6    READ(1,*)
7    READ(1,*)
8    READ(1,*)a,b,c,d,e,f,g,h

簡(jiǎn)單的來(lái)看，樓主需要輸入的如下形式的東西。假設(shè)樓主的輸入文件名為，ab-AA.IN.
則，lz在該程序中僅需輸入“AA”, 這樣應(yīng)該可以保證沒(méi)有問(wèn)題。

實(shí)際上正如snoopyzhao 兄所說(shuō)，語(yǔ)句4其本質(zhì)就是一個(gè)字符串運(yùn)算，而且他也指出，這里可能對(duì)于"ab-"的格式描述符"4A" 有問(wèn)題。建議作者，仔細(xì)調(diào)試這一段，最簡(jiǎn)單的，可以在4后加上輸出，看看是否有問(wèn)題。

同時(shí)可以在open這里加上是否成功打開(kāi)文件的判斷標(biāo)志。

贊一下

回復(fù)此樓

4樓2011-04-14 08:00:43

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

lchunmei001

木蟲(chóng) (正式寫(xiě)手)

應(yīng)助: 0 (幼兒園)
金幣: 1738.5
帖子: 797
在線: 151.3小時(shí)
蟲(chóng)號(hào): 863507

正如樓上兩位所說(shuō)，我按后面需要輸入的東西，構(gòu)建了一個(gè)名為ab-??.IN的輸入，其中??是在屏幕上輸出 elem？后輸入的字符。這樣運(yùn)行后沒(méi)有任何輸出文件？由于程序太長(zhǎng)，輸出在后面，我主要是想知道我的輸入方法對(duì)沒(méi)？

確實(shí)有可能是'(3A,2A,3A)'這里的問(wèn)題，我再試試看。

贊一下

回復(fù)此樓

5樓2011-04-14 09:03:36

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

lchunmei001

木蟲(chóng) (正式寫(xiě)手)

應(yīng)助: 0 (幼兒園)
金幣: 1738.5
帖子: 797
在線: 151.3小時(shí)
蟲(chóng)號(hào): 863507

剛試了一下改變'(3A,2A,3A)'，不行啊！

贊一下

回復(fù)此樓

6樓2011-04-14 09:24:22

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

snoopyzhao

至尊木蟲(chóng) (職業(yè)作家)

程序強(qiáng)帖: 16
應(yīng)助: 157 (高中生)
貴賓: 0.02
金幣: 18844.7
帖子: 3803
在線: 1422.4小時(shí)
蟲(chóng)號(hào): 183750

★
小木蟲(chóng)(金幣+0.5):給個(gè)紅包，謝謝回帖交流
lchunmei001(金幣+5): 2011-04-14 14:26:29

你的程序提示錯(cuò)誤了沒(méi)有？如果沒(méi)有的話(huà)，為什么說(shuō)不行呢？如果提示錯(cuò)誤，最好把錯(cuò)誤信息給出來(lái)。

另外，判斷是否讀了文件，可以在 read 后加一行 write……

比如

READ(1,*)a,b,c,d,e,f,g,h
write(*,*) a,b,c,d,e,f,g,h

贊一下(1人)

回復(fù)此樓

7樓2011-04-14 10:39:24

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

dingxb

金蟲(chóng) (正式寫(xiě)手)

應(yīng)助: 12 (小學(xué)生)
金幣: 1674.5
帖子: 482
在線: 59.5小時(shí)
蟲(chóng)號(hào): 34085

★
小木蟲(chóng)(金幣+0.5):給個(gè)紅包，謝謝回帖交流
lchunmei001(金幣+5): 2011-04-14 14:26:35

建議先檢查一下你的ab-??.IN文件是否存在，如果存在，是否數(shù)據(jù)是從第三行開(kāi)始。

如果open出錯(cuò)的話(huà)，程序應(yīng)該會(huì)終止運(yùn)行的，So如果程序沒(méi)有終止運(yùn)行，則open應(yīng)該是沒(méi)錯(cuò)。

贊一下(1人)

回復(fù)此樓

8樓2011-04-14 10:43:38

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

snoopyzhao

至尊木蟲(chóng) (職業(yè)作家)

程序強(qiáng)帖: 16
應(yīng)助: 157 (高中生)
貴賓: 0.02
金幣: 18844.7
帖子: 3803
在線: 1422.4小時(shí)
蟲(chóng)號(hào): 183750

★ ★ ★
小木蟲(chóng)(金幣+0.5):給個(gè)紅包，謝謝回帖交流
ben_ladeng(金幣+2): 謝謝指點(diǎn) 2011-04-14 12:23:12
lchunmei001(金幣+5): 2011-04-14 14:26:40

引用回帖:

Originally posted by lchunmei001 at 2011-04-14 09:24:22:
剛試了一下改變'(3A,2A,3A)'，不行��！

這個(gè)其實(shí)不影響的，我這里有一個(gè)小測(cè)試程序，你可以看一下：

CODE:

program test

implicit none

character (len=2) :: elem

character (len=9) :: film1

real :: a,b,c,d,e,f,g,h

WRITE(*,*)'elem ?'

READ(*,'(A2)')elem

WRITE(FILM1,'(4A,2A,3A)')'ab-',elem,'.IN'

write(*,*) film1

OPEN(1,FILE=FILM1,status='old')

READ(1,*)

READ(1,*)

READ(1,*)a,b,c,d,e,f,g,h

write(*,*) a,b,c,d,e,f,g,h

end program test

ab-55.IN 的內(nèi)容如下：

CODE:

blank line

blank line

1 2 3 4.2 5 6 7 8.3

blank line

下面是運(yùn)行的過(guò)程：

CODE:

D:\>a

 elem ?

55

 ab-55.IN

   1.0000000       2.0000000       3.0000000       4.1999998       5.0000000

   6.0000000       7.0000000       8.3000002

贊一下(2人)

回復(fù)此樓

9樓2011-04-14 10:51:40

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

lchunmei001

木蟲(chóng) (正式寫(xiě)手)

應(yīng)助: 0 (幼兒園)
金幣: 1738.5
帖子: 797
在線: 151.3小時(shí)
蟲(chóng)號(hào): 863507

謝謝大家，試了試大家所說(shuō)的，錯(cuò)誤確實(shí)不應(yīng)該是這前面部分，應(yīng)該是程序后半部分哪里出問(wèn)題了，我自己先看看。程序較長(zhǎng)，實(shí)在不好意思貼出來(lái)讓大家?guī)驼义e(cuò)！感謝各位熱心的蟲(chóng)子！

贊一下

回復(fù)此樓

10樓2011-04-14 14:25:28

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

相關(guān)版塊跳轉(zhuǎn) 我要訂閱樓主 lchunmei001 的主題更新

返回列表

普通表情龍兔虎貓高級(jí)回復(fù) (可上傳附件)

最具人氣熱帖推薦 [查看全部]		作者	回/看	最后發(fā)表

[考研] 求調(diào)劑院校信息 +4	CX 330 2026-03-21	4/200	2026-03-21 23:48 by ms629
[考研] 278求調(diào)劑 +9	煙火先于春 2026-03-17	9/450	2026-03-21 17:47 by 學(xué)員8dgXkO
[考研] 296求調(diào)劑 +4	www_q 2026-03-20	4/200	2026-03-21 17:26 by 學(xué)員8dgXkO
[考研] 306求0703調(diào)劑一志愿華中師范 +5	紙魚(yú)ly 2026-03-21	5/250	2026-03-21 17:11 by 學(xué)員8dgXkO
[考研] 生物學(xué)一志愿985，分?jǐn)?shù)349求調(diào)劑 +3	zxts12 2026-03-21	3/150	2026-03-21 16:34 by 33來(lái)了真來(lái)了
[考研] 材料與化工（0856）304求 B區(qū) 調(diào)劑 +3	邱gl 2026-03-21	3/150	2026-03-21 13:47 by lature00
[考研] 265求調(diào)劑 +12	梁梁校校 2026-03-19	14/700	2026-03-21 13:38 by lature00
[考研] 材料學(xué)學(xué)碩080502 337求調(diào)劑-一志愿華中科技大學(xué) +4	順順順mr 2026-03-18	5/250	2026-03-21 10:22 by luoyongfeng
[考研] 332求調(diào)劑 +4	ydfyh 2026-03-17	4/200	2026-03-21 02:20 by JourneyLucky
[考研] 324分 085600材料化工求調(diào)劑 +4	llllkkkhh 2026-03-18	4/200	2026-03-21 01:24 by JourneyLucky
[考研] 274求調(diào)劑 +10	S.H1 2026-03-18	10/500	2026-03-20 23:51 by JourneyLucky
[考研] 一志愿南昌大學(xué)，327分，材料與化工085600 +9	Ncdx123456 2026-03-19	9/450	2026-03-20 23:41 by lovewei0727
[考研] 350求調(diào)劑 +5	weudhdk 2026-03-19	5/250	2026-03-20 22:04 by luoyongfeng
[考研] 一志愿西南交通專(zhuān)碩材料355 本科雙非求調(diào)劑 +5	西南交通專(zhuān)材355 2026-03-19	5/250	2026-03-20 21:10 by JourneyLucky
[考研] 一志愿南理工085701環(huán)境302求調(diào)劑院校 +3	葵梓衛(wèi)隊(duì) 2026-03-20	3/150	2026-03-20 19:28 by zhukairuo
[考研] 08工學(xué)調(diào)劑 +5	用戶(hù)573181 2026-03-20	5/250	2026-03-20 15:47 by xia_2003
[考研] 招收調(diào)劑碩士 +4	lidianxing 2026-03-19	12/600	2026-03-20 12:25 by lidianxing
[考研] 081700化工學(xué)碩調(diào)劑 +3	【1】 2026-03-16	3/150	2026-03-19 23:40 by edmund7
[考研] 288求調(diào)劑，一志愿華南理工大學(xué)071005 +5	ioodiiij 2026-03-17	5/250	2026-03-19 18:22 by zcl123
[考研] 286求調(diào)劑 +6	lemonzzn 2026-03-16	10/500	2026-03-19 14:31 by lemonzzn

24小時(shí)熱門(mén)版塊排行榜

[交流] 【求助】輸入是什么？

» 猜你喜歡

» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:

» 搶金幣啦！回帖就可以得到: 查看全部散金貼

» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:

» 搶金幣啦！回帖就可以得到:

查看全部散金貼