836449366

金蟲 (小有名氣)

應(yīng)助: 1 (幼兒園)
金幣: 3039.8
散金: 62
紅花: 4
帖子: 270
在線: 356.3小時
蟲號: 1478273
注冊: 2011-11-05
專業(yè): 理論和計(jì)算化學(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
運(yùn)行后總是出現(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é)論文潤色/翻譯怎么收費(fèi)? 已經(jīng)有182人回復(fù)
求助電催化劑制備，怎么在碳布表面生長PdCo合金已經(jīng)有0人回復(fù)
求助電催化劑制備，怎么在碳布表面生長PdCo合金已經(jīng)有1人回復(fù)
304求調(diào)劑已經(jīng)有5人回復(fù)
上海華東理工大學(xué)機(jī)械與動力工程學(xué)院先進(jìn)材料與制造研究組招聘公告已經(jīng)有0人回復(fù)
304求調(diào)劑已經(jīng)有6人回復(fù)
304求調(diào)劑已經(jīng)有1人回復(fù)
中藥學(xué)306，求調(diào)劑已經(jīng)有0人回復(fù)

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

動網(wǎng)格的UDF問題已經(jīng)有21人回復(fù)
fluent中UDF編輯熱源的問題！已經(jīng)有4人回復(fù)
fluent 加載udf出現(xiàn)這樣錯誤怎么辦已經(jīng)有14人回復(fù)
單機(jī)編譯安裝vasp求指導(dǎo) 已經(jīng)有10人回復(fù)
UDF編譯時出現(xiàn)語法錯誤已經(jīng)有13人回復(fù)
急求fortran運(yùn)行錯誤原因，在線等已經(jīng)有7人回復(fù)
請教 fortran 運(yùn)行錯誤的原因已經(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ì)算語法錯誤已經(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計(jì)算時出現(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)驗(yàn): +14
應(yīng)助: 454 (碩士)
金幣: 20699.1
散金: 148
紅花: 81
帖子: 813
在線: 2648.3小時
蟲號: 1023452
注冊: 2010-05-19
專業(yè): 理論和計(jì)算化學(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è): 理論和計(jì)算化學(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è): 理論和計(jì)算化學(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è): 理論和計(jì)算化學(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ù)此樓

一個人做點(diǎn)好事并不難難的是一輩子做好事!!!

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è): 理論和計(jì)算化學(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)運(yùn)行沒有發(fā)生錯誤了，但并不能導(dǎo)出我們所要的結(jié)果？
求大神幫忙！

贊一下

回復(fù)此樓

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

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

jerkwin

專家顧問 (正式寫手)

專家經(jīng)驗(yàn): +14
應(yīng)助: 454 (碩士)
金幣: 20699.1
散金: 148
紅花: 81
帖子: 813
在線: 2648.3小時
蟲號: 1023452
注冊: 2010-05-19
專業(yè): 理論和計(jì)算化學(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è): 理論和計(jì)算化學(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)驗(yàn): +14
應(yīng)助: 454 (碩士)
金幣: 20699.1
散金: 148
紅花: 81
帖子: 813
在線: 2648.3小時
蟲號: 1023452
注冊: 2010-05-19
專業(yè): 理論和計(jì)算化學(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的回帖

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

[考研] 本人考085602 化學(xué)工程專碩 +21	不知道叫什么！ 2026-03-15	23/1150	2026-03-22 00:12 by BruceLiu320
[考研] 資源與環(huán)境調(diào)劑申請(333分) +5	holy J 2026-03-21	5/250	2026-03-21 22:42 by Catalysis25
[考研] 354求調(diào)劑 +6	Tyoumou 2026-03-18	9/450	2026-03-21 20:47 by lbsjt
[考研] 326求調(diào)劑 +5	諾貝爾化學(xué)獎覬?/a> 2026-03-15	8/400	2026-03-21 19:33 by ColorlessPI
[考研] 0703化學(xué)調(diào)劑，六級已過，有科研經(jīng)歷 +14	曦熙兮 2026-03-15	14/700	2026-03-21 19:12 by ColorlessPI
[考研] 生物學(xué)調(diào)劑 +3	Surekei 2026-03-21	3/150	2026-03-21 18:31 by 學(xué)員8dgXkO
[考研] 求調(diào)劑 +3	13341 2026-03-20	3/150	2026-03-21 18:28 by 學(xué)員8dgXkO
[考研] 346求調(diào)劑[0856] +4	WayneLim327 2026-03-16	7/350	2026-03-21 04:02 by JourneyLucky
[考研] 二本跨考鄭大材料306英一數(shù)二 +3	z1z2z3879 2026-03-17	3/150	2026-03-21 02:29 by JourneyLucky
[考研] 一志愿西南交大，求調(diào)劑 +5	材化逐夢人 2026-03-18	5/250	2026-03-21 00:26 by JourneyLucky
[考研] 22408 344分求調(diào)劑一志愿華電計(jì)算機(jī)技術(shù) +4	solanXXX 2026-03-20	4/200	2026-03-20 23:49 by alg094825
[考研] 材料學(xué)求調(diào)劑 +4	Stella_Yao 2026-03-20	4/200	2026-03-20 20:28 by ms629
[考研] 353求調(diào)劑 +3	拉鉤不許變 2026-03-20	3/150	2026-03-20 19:56 by JourneyLucky
[考研] 材料與化工專碩調(diào)劑 +7	heming3743 2026-03-16	7/350	2026-03-20 19:31 by zhukairuo
[考研] 廣西大學(xué)家禽遺傳育種課題組2026年碩士招生（接收計(jì)算機(jī)專業(yè)調(diào)劑） +3	123阿標(biāo) 2026-03-17	3/150	2026-03-20 15:58 by 飛行琦
[考研] 281求調(diào)劑（0805） +14	煙汐憶海 2026-03-16	25/1250	2026-03-20 15:47 by yuncha
[考研] 生物學(xué)071000 329分求調(diào)劑 +3	我愛生物生物愛?/a> 2026-03-17	3/150	2026-03-18 10:12 by macy2011
[考博] 26申博 +4	八6八68 2026-03-16	4/200	2026-03-17 13:00 by 輕松不少隨
[考研] 302求調(diào)劑 +4	小賈同學(xué)123 2026-03-15	8/400	2026-03-17 10:33 by 小賈同學(xué)123
[考研] 333求調(diào)劑 +3	文思客 2026-03-16	7/350	2026-03-16 18:21 by 文思客