lchunmei001

木蟲 (正式寫手)

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

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

請(qǐng)教一下大家，如下這樣一個(gè)輸入片段，到底輸入文件應(yīng)該如何命名？運(yùn)行總是沒有輸出。請(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分人工智能專業(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專碩求調(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ù)值開始是什么原因？？？已經(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è)程序編譯都沒有問(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

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

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)行總是沒有輸出。請(qǐng)路過(guò)高手幫解答解答，感激不盡！
C--->  INPUT EXPERIMENTAL DATA
   WRITE(*,*)'elem ?'
   READ(*,'(A2)') ...

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

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')
這是打開一個(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è)打開的文件……

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

贊一下

回復(fù)此樓

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

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

snoopyzhao

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

注意下面這句沒有輸出的，雖然用的是 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

金蟲 (正式寫手)

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

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

引用回帖:

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

細(xì)觀Lz的代碼，驚奇的發(fā)現(xiàn)，這段代碼寫的真的挺值得學(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)該可以保證沒有問(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這里加上是否成功打開文件的判斷標(biāo)志。

贊一下

回復(fù)此樓

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

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

lchunmei001

木蟲 (正式寫手)

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

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

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

贊一下

回復(fù)此樓

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

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

lchunmei001

木蟲 (正式寫手)

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

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

贊一下

回復(fù)此樓

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

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

snoopyzhao

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

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

你的程序提示錯(cuò)誤了沒有？如果沒有的話，為什么說(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

金蟲 (正式寫手)

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

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

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

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

贊一下(1人)

回復(fù)此樓

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

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

snoopyzhao

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

★ ★ ★
小木蟲(金幣+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

木蟲 (正式寫手)

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

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

贊一下

回復(fù)此樓

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

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

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

[考研] 286分人工智能專業(yè)請(qǐng)求調(diào)劑愿意跨考！ +4	lemonzzn 2026-03-17	8/400	2026-03-21 22:49 by lemonzzn
[考研] 資源與環(huán)境調(diào)劑申請(qǐng)(333分) +5	holy J 2026-03-21	5/250	2026-03-21 22:42 by Catalysis25
[考研] 326求調(diào)劑 +5	諾貝爾化學(xué)獎(jiǎng)覬?/a> 2026-03-15	8/400	2026-03-21 19:33 by ColorlessPI
[考研] 一志愿東華大學(xué)控制學(xué)碩320求調(diào)劑 +3	Grand777 2026-03-21	3/150	2026-03-21 19:23 by 簡(jiǎn)之-
[考研] 【考研調(diào)劑】化學(xué)專業(yè) 281分，一志愿四川大學(xué)，誠(chéng)心求調(diào)劑 +11	吃吃吃才有意義 2026-03-19	11/550	2026-03-21 18:23 by 學(xué)員8dgXkO
[考研] 26考研一志愿中國(guó)石油大學(xué)(華東)305分求調(diào)劑 +6	嘉年新程 2026-03-15	6/300	2026-03-21 17:07 by Dream007008
[考研] 一志愿重慶大學(xué)085700資源與環(huán)境總分308求調(diào)劑 +7	墨墨漠 2026-03-20	7/350	2026-03-21 16:36 by barlinike
[考研] 279分求調(diào)劑一志愿211 +14	chaojifeixia 2026-03-19	15/750	2026-03-21 13:24 by zhukairuo
[考研] 083200學(xué)碩321分一志愿暨南大學(xué)求調(diào)劑 +3	innocenceF 2026-03-17	3/150	2026-03-21 02:35 by JourneyLucky
[考研] 材料 336 求調(diào)劑 +3	An@. 2026-03-18	4/200	2026-03-21 01:39 by JourneyLucky
[考研] 一志愿中海洋材料工程專碩330分求調(diào)劑 +8	小材化本科 2026-03-18	8/400	2026-03-20 23:16 by JourneyLucky
[考研] 一志愿武漢理工材料工程專碩調(diào)劑 +9	Doleres 2026-03-19	9/450	2026-03-20 22:36 by JourneyLucky
[考研] 288求調(diào)劑 +16	于海海海海 2026-03-19	16/800	2026-03-20 22:28 by JourneyLucky
[考研] 中南大學(xué)化學(xué)學(xué)碩337求調(diào)劑 +3	niko- 2026-03-19	6/300	2026-03-20 21:58 by luoyongfeng
[考研] 環(huán)境工程調(diào)劑 +9	大可digkids 2026-03-16	9/450	2026-03-20 17:38 by 醉在風(fēng)里
[考研] 求調(diào)劑 +3	暗涌afhb 2026-03-16	3/150	2026-03-20 00:28 by 河南大學(xué)校友
[論文投稿] 申請(qǐng)回稿延期一個(gè)月，編輯同意了。但系統(tǒng)上的時(shí)間沒變，給編輯又寫郵件了，沒回復(fù) 10+3	wangf9518 2026-03-17	4/200	2026-03-19 23:55 by babero
[考研] 0703化學(xué)336分求調(diào)劑 +6	zbzihdhd 2026-03-15	7/350	2026-03-18 09:53 by zhukairuo
[考研] 277調(diào)劑 +5	自由煎餅果子 2026-03-16	6/300	2026-03-17 19:26 by 李leezz
[考研] 有沒有道鐵/土木的想調(diào)劑南林，給自己招師弟中～ +3	TqlXswl 2026-03-16	7/350	2026-03-17 15:23 by TqlXswl