lchunmei001

木蟲 (正式寫手)

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

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

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

回復此樓

» 猜你喜歡

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

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

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

查看全部散金貼

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

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

snoopyzhao

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

★ ★ ★
小木蟲(金幣+0.5):給個紅包，謝謝回帖交流
ben_ladeng(金幣+2): 謝謝指點 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)'，不行啊！

這個其實不影響的，我這里有一個小測試程序，你可以看一下：

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 的內容如下：

CODE:

blank line

blank line

1 2 3 4.2 5 6 7 8.3

blank line

下面是運行的過程：

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人)

回復此樓

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

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

查看全部 10 個回答

snoopyzhao

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

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

引用回帖:

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

你這里都是在讀取數據，沒有輸出啊……

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

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

贊一下

回復此樓

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

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

snoopyzhao

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

注意下面這句沒有輸出的，雖然用的是 write 函數……

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

贊一下

回復此樓

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

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

dingxb

金蟲 (正式寫手)

應助: 12 (小學生)
金幣: 1674.5
帖子: 482
在線: 59.5小時
蟲號: 34085

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

引用回帖:

在下不才斗膽來說兩句。

細觀Lz的代碼，驚奇的發(fā)現，這段代碼寫的真的挺值得學習的。

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

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

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

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

贊一下

回復此樓

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

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

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

[考研] 311求調劑 +9	lin0039 2026-03-26	9/450	2026-03-28 13:05 by 唐沐兒
[考研] 藥學105500求調劑 +3	Ssun。。 2026-03-28	3/150	2026-03-28 11:24 by lxf170613
[考研] 材料求調劑一志愿哈工大324 +7	閆旭東 2026-03-28	9/450	2026-03-28 08:51 by Xu de nuo
[考研] 材料與化工考研調劑 +17	孅華 2026-03-22	17/850	2026-03-28 08:35 by WYUMater
[考研] 275求調劑 +10	jjjjjjjjjjl 2026-03-27	10/500	2026-03-27 23:47 by barnett0632
[考研] 265求調劑 +8	小木蟲085600 2026-03-27	8/400	2026-03-27 22:16 by 無際的草原
[考研] 070300化學求調劑 +4	起個名咋這么難 2026-03-27	4/200	2026-03-27 21:39 by 83503孫老師
[考研] 348求調劑 +4	小懶蟲不懶了 2026-03-27	5/250	2026-03-27 12:47 by 果果媽咪
[考研] 085601 材料工程 313分求調劑 +5	Ong3 2026-03-27	5/250	2026-03-27 12:24 by goldfish51
[考研] 一志愿鄭大085600，310分求調劑 +5	李瀟可 2026-03-26	5/250	2026-03-27 11:14 by 不吃魚的貓
[考研] 286求調劑 +4	lim0922 2026-03-26	4/200	2026-03-27 10:28 by guoweigw
[考研] 284求調劑 +11	junqihahaha 2026-03-26	12/600	2026-03-27 04:37 by wxiongid
[考研] 336材料求調劑 +7	陳瀅瑩 2026-03-26	9/450	2026-03-27 00:20 by wxiongid
[考研] 081200-11408-276學碩求調劑 +3	崔wj 2026-03-26	3/150	2026-03-26 19:57 by nihaoar
[考研] 289求調劑 +17	碩星赴 2026-03-23	17/850	2026-03-26 16:18 by 不吃魚的貓
[考研] 材料與化工328分調劑 +6	。，。，。，。i 2026-03-23	6/300	2026-03-25 22:30 by 418490947
[考研] 335求調劑 +4	yuyu宇 2026-03-23	5/250	2026-03-23 23:49 by Txy@872106
[考研] 求老師收我 +3	zzh16938784 2026-03-23	3/150	2026-03-23 12:56 by ztnimte
[考研] 308求調劑 +3	墨墨漠 2026-03-21	3/150	2026-03-22 16:54 by i_cooler
[考研] 一志愿北京化工大學070300 學碩336求調劑 +5	vv迷 2026-03-21	8/400	2026-03-22 14:20 by ColorlessPI