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

登錄注冊

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

24小時熱門版塊排行榜

返回列表

836449366

金蟲 (小有名氣)

應(yīng)助: 1 (幼兒園)
金幣: 3039.8
散金: 62
紅花: 4
帖子: 270
在線: 356.3小時
蟲號: 1478273
注冊: 2011-11-05
專業(yè): 理論和計算化學(xué)

[求助] Fortran出現(xiàn)語法錯誤

我自己編了一段程序，就是將aaa.txt中的數(shù)據(jù)的前一行減去后一行，然后返回差值
這是程序
   program main
   implicit none
   integer :: i,j
   real*8 r1,r2,a,m(200,2),n(200)
   open(10,file='bbb')
   do i=1,200
      read(10,*) a,(m(i,j),j=1,2)
      r1=m(i,2)
      r2=m(i+1,2)
      n=r1-r2
      write(*,"(a4,200F30.15)" i,n(i)
   enddo
   end
下面是aaa.txt文件
         1 11.5927413790973
         2 11.8587968919448
      ……       …………
   200 11.7952433041584
運行后總是出現(xiàn)錯誤
fortcom: Error: xxx.f90, line 11: Syntax error, found IDENTIFIER 'I' when expecting one of: .EQV. .NEQV. .XOR. .OR. .AND. .LT. < .LE. <= .EQ. == .NE. /= .GT. > ...
      write(*,"(a4,200F30.15)" i,n(i)
---------------------------------^
compilation aborted for xxx.f90 (code 1)
求大神解答，本人不勝感激！

回復(fù)此樓

» 猜你喜歡

求催化作用基礎(chǔ)第三版（甄開吉) 課件已經(jīng)有5人回復(fù)
26年材料/化學(xué)相關(guān)專業(yè)博士研究生招生溫州大學(xué)化學(xué)與材料工程學(xué)院(26年秋季入學(xué)) 已經(jīng)有0人回復(fù)
物理化學(xué)論文潤色/翻譯怎么收費? 已經(jīng)有218人回復(fù)
求助電催化劑制備，怎么在碳布表面生長PdCo合金已經(jīng)有0人回復(fù)
求助電催化劑制備，怎么在碳布表面生長PdCo合金已經(jīng)有1人回復(fù)
304求調(diào)劑已經(jīng)有3人回復(fù)
上海華東理工大學(xué)機械與動力工程學(xué)院先進(jìn)材料與制造研究組招聘公告已經(jīng)有0人回復(fù)
山西大學(xué)資源與環(huán)境工程研究所化工分離/環(huán)境功能材料小組招收2026年博士生已經(jīng)有2人回復(fù)
304求調(diào)劑已經(jīng)有6人回復(fù)
304求調(diào)劑已經(jīng)有1人回復(fù)

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

動網(wǎng)格的UDF問題已經(jīng)有21人回復(fù)
fluent中UDF編輯熱源的問題！已經(jīng)有4人回復(fù)
fluent 加載udf出現(xiàn)這樣錯誤怎么辦已經(jīng)有14人回復(fù)
單機編譯安裝vasp求指導(dǎo) 已經(jīng)有10人回復(fù)
UDF編譯時出現(xiàn)語法錯誤已經(jīng)有13人回復(fù)
急求fortran運行錯誤原因，在線等已經(jīng)有7人回復(fù)
請教 fortran 運行錯誤的原因已經(jīng)有13人回復(fù)
microsoft developer studio 已經(jīng)有38人回復(fù)
Linux中安裝gaussian時，install出現(xiàn)語法錯誤，求解答已經(jīng)有17人回復(fù)
SCI文章投完稿發(fā)現(xiàn)有幾個語法錯誤怎么辦？已經(jīng)有13人回復(fù)
FORTRAN屬性聲明出錯已經(jīng)有8人回復(fù)
如何回復(fù)審稿人提出的意見（語法錯誤）？已經(jīng)有4人回復(fù)
GAUSSIAN計算語法錯誤已經(jīng)有7人回復(fù)
在寫英文文章時，好多單詞下面會出現(xiàn)紅線或綠線，會對論文語言質(zhì)量有影響嗎已經(jīng)有7人回復(fù)
如何減少英文投稿中的語法錯誤，提高文章質(zhì)量？大家有什么好辦法？已經(jīng)有14人回復(fù)
請教MS4.4 Linux下安裝提示 msiinstall語法錯誤已經(jīng)有14人回復(fù)
標(biāo)題有語法錯誤會不會影響文章的審閱啊已經(jīng)有21人回復(fù)
寫了一個fortran90的小程序，編譯通不過，請大俠幫忙已經(jīng)有59人回復(fù)
【求助】讀文本數(shù)據(jù)出現(xiàn)段錯誤[fortran] 已經(jīng)有14人回復(fù)
【求助】fortran計算時出現(xiàn)NaN 已經(jīng)有11人回復(fù)

1樓 2013-09-29 20:12:47

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

jerkwin

專家顧問 (正式寫手)

專家經(jīng)驗: +14
應(yīng)助: 454 (碩士)
金幣: 20699.1
散金: 148
紅花: 81
帖子: 813
在線: 2648.3小時
蟲號: 1023452
注冊: 2010-05-19
專業(yè): 理論和計算化學(xué)
管轄: 分子模擬

【答案】應(yīng)助回帖

★ ★
感謝參與，應(yīng)助指數(shù) +1
gkf高: 金幣+2 2013-09-29 23:19:22

write(*,"(a4,200F30.15)" i,n(i)
有誤, 應(yīng)為
write(*,'(I4,200F30.15)') i,n(i)

贊一下

回復(fù)此樓

2樓2013-09-29 22:22:23

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

yongma2008

木蟲 (著名寫手)

論文？苦！主。

應(yīng)助: 34 (小學(xué)生)
金幣: 2089.6
散金: 1670
紅花: 15
帖子: 1610
在線: 398.5小時
蟲號: 1091013
注冊: 2010-09-06
性別: GG
專業(yè): 理論和計算化學(xué)

write(*,"(a4,200F30.15)" i,n(i)
---------------------------------^
這句話已經(jīng)告訴你在哪有問題了。要習(xí)慣看錯誤提示

贊一下

回復(fù)此樓

3樓2013-09-30 10:46:22

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

836449366

金蟲 (小有名氣)

應(yīng)助: 1 (幼兒園)
金幣: 3039.8
散金: 62
紅花: 4
帖子: 270
在線: 356.3小時
蟲號: 1478273
注冊: 2011-11-05
專業(yè): 理論和計算化學(xué)

引用回帖:

2樓: Originally posted by jerkwin at 2013-09-29 22:22:23
write(*,"(a4,200F30.15)" i,n(i)
有誤, 應(yīng)為
write(*,'(I4,200F30.15)') i,n(i)

改了后，還是出現(xiàn)了錯誤
fortcom: Error: xxx.f90, line 13: Syntax error, found IDENTIFIER 'I' when expecting one of: .EQV. .NEQV. .XOR. .OR. .AND. .LT. < .LE. <= .EQ. == .NE. /= .GT. > ...
write(*,"(I4,200F30.15)" i,n(i)
---------------------————-----------^
compilation aborted for xxx.f90 (code 1)

贊一下

回復(fù)此樓

4樓2013-09-30 14:06:51

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

gongxd325

至尊木蟲 (文壇精英)

應(yīng)助: 177 (高中生)
金幣: 37755.1
散金: 13187
紅花: 109
帖子: 34003
在線: 1844.8小時
蟲號: 233962
注冊: 2006-03-30
性別: MM
專業(yè): 理論和計算化學(xué)

【答案】應(yīng)助回帖

★ ★
感謝參與，應(yīng)助指數(shù) +1
gmy1990: 金幣+2 2013-10-03 20:27:22

write(*,"(I4,200F30.15)" i,n(i)少了個右括號，應(yīng)該是write(*,'(I4,200F30.15)') i,n(i)

贊一下

回復(fù)此樓

一個人做點好事并不難難的是一輩子做好事!!!

5樓2013-09-30 14:43:37

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

836449366

金蟲 (小有名氣)

應(yīng)助: 1 (幼兒園)
金幣: 3039.8
散金: 62
紅花: 4
帖子: 270
在線: 356.3小時
蟲號: 1478273
注冊: 2011-11-05
專業(yè): 理論和計算化學(xué)

引用回帖:

2樓: Originally posted by jerkwin at 2013-09-29 22:22:23
write(*,"(a4,200F30.15)" i,n(i)
有誤, 應(yīng)為
write(*,'(I4,200F30.15)') i,n(i)

現(xiàn)在已經(jīng)運行沒有發(fā)生錯誤了，但并不能導(dǎo)出我們所要的結(jié)果？
求大神幫忙！

贊一下

回復(fù)此樓

6樓2013-09-30 17:44:36

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

jerkwin

專家顧問 (正式寫手)

專家經(jīng)驗: +14
應(yīng)助: 454 (碩士)
金幣: 20699.1
散金: 148
紅花: 81
帖子: 813
在線: 2648.3小時
蟲號: 1023452
注冊: 2010-05-19
專業(yè): 理論和計算化學(xué)
管轄: 分子模擬

【答案】應(yīng)助回帖

★ ★
gmy1990: 金幣+2 2013-10-03 20:27:28

read(10,*) a,(m(i,j),j=1,2)
      r1=m(i,2)
      r2=m(i+1,2)
      n=r1-r2
邏輯不對, 自然不是你要的結(jié)果
這里i+1行還沒讀入, 你就使用了

贊一下

回復(fù)此樓

7樓2013-09-30 21:24:24

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

836449366

金蟲 (小有名氣)

應(yīng)助: 1 (幼兒園)
金幣: 3039.8
散金: 62
紅花: 4
帖子: 270
在線: 356.3小時
蟲號: 1478273
注冊: 2011-11-05
專業(yè): 理論和計算化學(xué)

引用回帖:

7樓: Originally posted by jerkwin at 2013-09-30 21:24:24
read(10,*) a,(m(i,j),j=1,2)
      r1=m(i,2)
      r2=m(i+1,2)
      n=r1-r2
邏輯不對, 自然不是你要的結(jié)果
這里i+1行還沒讀入, 你就使用了

大神，能不能幫我改改，怎樣修改才能得到我想要的結(jié)果？

贊一下

回復(fù)此樓

8樓2013-10-03 16:30:16

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

jerkwin

專家顧問 (正式寫手)

專家經(jīng)驗: +14
應(yīng)助: 454 (碩士)
金幣: 20699.1
散金: 148
紅花: 81
帖子: 813
在線: 2648.3小時
蟲號: 1023452
注冊: 2010-05-19
專業(yè): 理論和計算化學(xué)
管轄: 分子模擬

【答案】應(yīng)助回帖

★ ★
gkf高: 金幣+2 2013-10-03 23:25:12

最簡單的, 就是先讀進(jìn)來, 再寫個循環(huán)做差
或者
只讀一遍, 根據(jù)條件寫差

贊一下

回復(fù)此樓

9樓2013-10-03 21:43:02

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

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

返回列表

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

[考研] 268求調(diào)劑 +8	簡單點0 2026-03-17	8/400	2026-03-21 13:43 by 南粵飛花
[考研] 299求調(diào)劑 +3	某某某某位 2026-03-21	3/150	2026-03-21 13:11 by zhukairuo
[考研] 302求調(diào)劑 +11	呼呼呼。。。。 2026-03-17	11/550	2026-03-21 08:29 by JourneyLucky
[考研] 316求調(diào)劑 +6	梁茜雯 2026-03-19	6/300	2026-03-21 06:32 by Ecowxq666！
[考研] 307求調(diào)劑 +3	wyyyqx 2026-03-17	3/150	2026-03-21 03:20 by JourneyLucky
[考研] 271材料工程求調(diào)劑 +8	.6lL 2026-03-18	8/400	2026-03-21 00:58 by JourneyLucky
[考研] 311求調(diào)劑 +5	冬十三 2026-03-18	5/250	2026-03-21 00:16 by JourneyLucky
[考研] 296求調(diào)劑 +6	www_q 2026-03-18	10/500	2026-03-20 23:56 by JourneyLucky
[考研] 308求調(diào)劑 +3	阿姐阿姐家啊 2026-03-18	3/150	2026-03-20 23:24 by JourneyLucky
[考研] 求調(diào)劑一志愿南京航空航天大學(xué)289分 +3	@taotao 2026-03-19	3/150	2026-03-20 21:34 by JourneyLucky
[考研] 本人考085602 化學(xué)工程專碩 +19	不知道叫什么！ 2026-03-15	21/1050	2026-03-20 20:48 by zhukairuo
[考研] 261求B區(qū)調(diào)劑，科研經(jīng)歷豐富 +3	牛奶很忙 2026-03-20	4/200	2026-03-20 19:34 by JourneyLucky
[考研] 0703化學(xué) 305求調(diào)劑 +4	FY_yy 2026-03-14	4/200	2026-03-19 05:54 by anny19840123
[考研] 材料，紡織，生物（0856、0710），化學(xué)招生啦 +3	Eember. 2026-03-17	9/450	2026-03-18 10:28 by Eember.
[考研] 考研求調(diào)劑 +3	橘頌. 2026-03-17	4/200	2026-03-17 21:43 by 有只貍奴
[考博] 26申博 +4	八6八68 2026-03-16	4/200	2026-03-17 13:00 by 輕松不少隨
[考研] 一志愿211 0703方向310分求調(diào)劑 +3	努力奮斗112 2026-03-15	3/150	2026-03-16 16:44 by houyaoxu
[考研] 318求調(diào)劑 +3	Yanyali 2026-03-15	3/150	2026-03-16 16:41 by houyaoxu
[考研] 277材料科學(xué)與工程080500求調(diào)劑 +3	自由煎餅果子 2026-03-16	3/150	2026-03-16 14:10 by 運氣yunqi
[考研] 本科南京大學(xué)一志愿川大藥學(xué)327 +3	麥田耕者 2026-03-14	3/150	2026-03-14 20:04 by 外星文明

24小時熱門版塊排行榜

[求助] Fortran出現(xiàn)語法錯誤

» 猜你喜歡

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

【答案】應(yīng)助回帖

【答案】應(yīng)助回帖

【答案】應(yīng)助回帖

【答案】應(yīng)助回帖

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