當(dāng)前只顯示滿足指定條件的回帖，點(diǎn)擊這里查看本話題的所有回帖

lchunmei001

木蟲 (正式寫手)

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

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

請教一下大家，如下這樣一個輸入片段，到底輸入文件應(yīng)該如何命名？運(yùn)行總是沒有輸出。請路過高手幫解答解答，感激不盡！
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ù)此樓

» 猜你喜歡

342求調(diào)劑已經(jīng)有3人回復(fù)
070300化學(xué)專業(yè)279調(diào)劑已經(jīng)有9人回復(fù)
求調(diào)劑：085600材料與化工，考材科基，總分319 已經(jīng)有20人回復(fù)
一志愿華東理工大學(xué)，080500學(xué)碩，317分，求調(diào)劑已經(jīng)有9人回復(fù)
一志愿a區(qū)211，085601-307分求調(diào)劑已經(jīng)有23人回復(fù)
合肥區(qū)域性重點(diǎn)一本招收調(diào)劑已經(jīng)有8人回復(fù)
材料調(diào)劑已經(jīng)有10人回復(fù)
288求調(diào)劑一志愿哈工大材料與化工已經(jīng)有13人回復(fù)
材料科學(xué)與工程339求調(diào)劑已經(jīng)有3人回復(fù)
化學(xué)308分調(diào)劑已經(jīng)有11人回復(fù)

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

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

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

查看全部散金貼

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

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

dingxb

金蟲 (正式寫手)

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

引用回帖:

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

在下不才斗膽來說兩句。

細(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

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

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

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

贊一下

回復(fù)此樓

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

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

查看全部 10 個回答

snoopyzhao

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

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

引用回帖:

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

C--->  INPUT EXPERIMENTAL DATA
   WRITE(*,*)'elem ?'
上面這行是在屏幕上輸出 elem 這樣的字符
   READ(*,'(A2)')elem
這里是讀入一個長度為2的字符串，即你給 elem 的值
   WRITE(FILM1,'(4A,2A,3A)')'ab-',elem,'.IN'
這里是給一個字符串 film1 賦值，它最終的值是是ab-??.IN，其中??是上一步獲得的。但這里好象有點(diǎn)兒問題，應(yīng)該是'(3A,2A,3A)'，也可能是后面 'ab-' 這兒有問題。
   OPEN(1,FILE=FILM1,status='old')
這是打開一個名為 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 賦值，這些值來自于上面的那個打開的文件……

其實(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的回帖

lchunmei001

木蟲 (正式寫手)

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

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

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

贊一下

回復(fù)此樓

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

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

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

[考研] 070300化學(xué)專業(yè)279調(diào)劑 +9	哈哈哈^_^ 2026-03-31	9/450	2026-03-31 18:49 by jp9609
[考研] 284求調(diào)劑 +9	小熊～～ 2026-03-31	9/450	2026-03-31 18:22 by 253863592
[考研] 080500-315分復(fù)試調(diào)劑 +9	上岸3821 2026-03-31	9/450	2026-03-31 17:29 by 唐沐兒
[考研] 307分求調(diào)劑 +6	(o~o) 2026-03-31	6/300	2026-03-31 17:22 by 唐沐兒
[考研] 一志愿哈爾濱工業(yè)大學(xué)材料與化工方向336分 +13	辰沐5211314 2026-03-26	13/650	2026-03-31 14:37 by 記事本2026
[考研] 347求調(diào)劑 +11	山頂見α 2026-03-25	11/550	2026-03-31 14:14 by 記事本2026
[考研] 0703化學(xué) +20	妮妮ninicgb 2026-03-27	20/1000	2026-03-31 13:33 by 無際的草原
[考研] 一志愿浙江大學(xué)工科動力工程370,數(shù)一121,專業(yè)課135，現(xiàn)在能去哪里 +3	080700調(diào)劑 2026-03-30	4/200	2026-03-31 12:00 by KLMY666
[考研] 335求調(diào)劑 +3	321* 2026-03-31	3/150	2026-03-31 09:00 by 功夫瘋狂
[考研] 哈爾濱工業(yè)大學(xué)材料與化工專碩378求調(diào)劑 +3	塔比烏斯 2026-03-30	3/150	2026-03-30 22:55 by 無際的草原
[考研] 求調(diào)劑，一志愿南京航空航天大學(xué) ，080500材料科學(xué)與工程學(xué)碩，總分289分 +9	@taotao 2026-03-29	9/450	2026-03-30 22:29 by 我是小康
[考研] 生物學(xué)學(xué)碩，一志愿湖南大學(xué)，初試成績338 +7	YYYYYNNNNN 2026-03-26	9/450	2026-03-30 20:29 by YYYYYNNNNN
[考研] 085601材料工程找調(diào)劑 +17	oatmealR 2026-03-29	18/900	2026-03-30 19:21 by Wang200018
[考研] 071010 323 分求調(diào)劑 +3	Baekzhy 2026-03-27	3/150	2026-03-30 14:24 by andresqi
[考研] 考研調(diào)劑 +5	Sanmu-124 2026-03-26	5/250	2026-03-30 13:36 by chemdavid
[考研] 279求調(diào)劑 +4	蝶舞輕繞 2026-03-29	4/200	2026-03-29 09:45 by laoshidan
[考研] 085600，專業(yè)課化工原理，321分求調(diào)劑 +5	大饞小子 2026-03-28	5/250	2026-03-29 08:56 by qingfeng258
[考研] 308求調(diào)劑 +7	墨墨漠 2026-03-27	7/350	2026-03-28 07:43 by 熱情沙漠
[考研] 一志愿南師大0703化學(xué) 275求調(diào)劑 +4	Ripcord上岸 2026-03-27	4/200	2026-03-27 17:00 by zhyzzh
[考研] 348求調(diào)劑 +4	小懶蟲不懶了 2026-03-27	5/250	2026-03-27 12:47 by 果果媽咪