tider

木蟲 (正式寫手)

應(yīng)助: 8 (幼兒園)
金幣: 1950.4
散金: 40
紅花: 5
帖子: 313
在線: 87.2小時
蟲號: 1190614
注冊: 2011-01-16
性別: GG
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)

[求助] Fortran allocate 程序段編譯出錯求助。

以下是報出的錯誤：

CODE:

In file ./forces.f:393

      double precision, allocatable :: cf(:,:)                          

                                                       1

Error: Unexpected data declaration statement at (1)

 In file ./forces.f:394

      allocate(cf(3,natoms),stat=error)                                 

                1

Error: Syntax error in ALLOCATE statement at (1)

 In file ./forces.f:395

      integer :: vvv, kkk                                               

                1

Error: Unexpected data declaration statement at (1)

 In file ./forces.f:399

            read(2013,*) (cf(vvv,kkk),kkk=1,natoms)                     

                       1

Error: Expected variable in READ statement at (1)

make: *** [forces.o] Error 1

出錯的程序段如下：

c     read force from the file "force.txt"

      double precision, allocatable :: cf(:,:)

      allocate(cf(3,natoms),stat=error)

      integer :: vvv, kkk

      open (unit=2013, file='force.txt')

        do vvv=1,3

            read(2013,*) (cf(vvv,kkk),kkk=1,natoms)

        end do

      close(2013)

      do vvv=1,3

           do kkk=1,natoms

              write (*,*) cf(vvv,kkk)

           end do

      end do

總看著沒錯誤，希望蟲友指正。Thx.

[ Last edited by jjdg on 2013-2-27 at 02:54 ]

回復(fù)此樓

» 猜你喜歡

一志愿哈爾濱工業(yè)大學(xué)材料與化工方向336分已經(jīng)有5人回復(fù)
0856材料化工調(diào)劑總分330 已經(jīng)有9人回復(fù)
085602 化工專碩 338分求調(diào)劑已經(jīng)有9人回復(fù)
352分化工與材料已經(jīng)有4人回復(fù)
求調(diào)劑已經(jīng)有8人回復(fù)
材料求調(diào)劑一志愿哈工大總分298分，前三科223分已經(jīng)有3人回復(fù)
材料求調(diào)劑一志愿哈工大324 已經(jīng)有4人回復(fù)
085600 286分材料求調(diào)劑已經(jīng)有4人回復(fù)
求調(diào)劑已經(jīng)有7人回復(fù)
275求調(diào)劑已經(jīng)有10人回復(fù)

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

FORTRAN編譯成功，但運行出現(xiàn)斷點已經(jīng)有8人回復(fù)
Fortran 編譯問題已經(jīng)有9人回復(fù)
請問安裝fortran編譯器之前必須先安裝visual studio 嗎已經(jīng)有9人回復(fù)
急求可用的fortran編譯器已經(jīng)有13人回復(fù)
allocate與data共存的問題已經(jīng)有14人回復(fù)
請教一個fortran小程序編譯出錯的問題，謝謝已經(jīng)有9人回復(fù)
fortran編譯 read出錯完畢已經(jīng)有11人回復(fù)
三維數(shù)組換行輸入到文件（intel fortran 編譯器）已經(jīng)有6人回復(fù)
fortran程序怎么反編譯？已經(jīng)有12人回復(fù)
寫了一個fortran90的小程序，編譯通不過，請大俠幫忙已經(jīng)有59人回復(fù)
【求助】CUDA支持的Fortran編譯器現(xiàn)在只有PGI嗎？已經(jīng)有5人回復(fù)
【求助】FEDORA12下用FORTRAN編寫程序需要下一個FORTRAN編譯器么已經(jīng)有18人回復(fù)
【求助】fortran出錯編譯通過運行溢出已經(jīng)有10人回復(fù)
【分享】將ELFCAR、CHGCAR轉(zhuǎn)化成MS閱讀可讀的fortran代碼已經(jīng)有142人回復(fù)
【求助】Fortran編譯目標(biāo)文件后的鏈接問題已經(jīng)有4人回復(fù)
【求助】win7 的用什么fortran 編譯器啊？【已完成】已經(jīng)有14人回復(fù)
【分享】Intel Fortran 編譯器Linux專業(yè)版已經(jīng)有8人回復(fù)

1樓 2013-02-26 13:22:41

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

tider

木蟲 (正式寫手)

應(yīng)助: 8 (幼兒園)
金幣: 1950.4
散金: 40
紅花: 5
帖子: 313
在線: 87.2小時
蟲號: 1190614
注冊: 2011-01-16
性別: GG
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)

jjdg: 編輯內(nèi)容 2013-02-27 02:55

引用回帖:

3樓: Originally posted by xujince at 2013-02-25 23:53:27
把 integer :: vvv, kkk 移到 double precision, allocatable :: cf(:,

的上面

謝謝，不過這樣以后還是會報錯。。是同樣的錯誤。這跟編譯器的選擇有關(guān)系么？

CODE:

gfortran -Ad -O -c -I. -I.  ./forces.f

 In file ./forces.f:393

      integer :: vvv, kkk                                               

                                                                      1

Error: Unexpected data declaration statement at (1)

 In file ./forces.f:394

      double precision, allocatable :: cf(:,:)                          

                                                                       1

Error: Unexpected data declaration statement at (1)

 In file ./forces.f:395

      allocate(cf(3,natoms),stat=error)                                 

                1

Error: Syntax error in ALLOCATE statement at (1)

 In file ./forces.f:399

            read(2013,*) (cf(vvv,kkk),kkk=1,natoms)                     

                       1

Error: Expected variable in READ statement at (1)

make: *** [forces.o] Error 1

[ Last edited by jjdg on 2013-2-27 at 02:55 ]

贊一下

回復(fù)此樓

4樓2013-02-27 02:44:44

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

查看全部 6 個回答

xujince

木蟲 (正式寫手)

應(yīng)助: 17 (小學(xué)生)
金幣: 2516.7
紅花: 1
帖子: 548
在線: 376.9小時
蟲號: 1926989
注冊: 2012-08-06
性別: GG
專業(yè): 固體力學(xué)

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

★ ★
感謝參與，應(yīng)助指數(shù) +1
jjdg: 編輯內(nèi)容 2013-02-27 02:54
tider: 金幣+2, 謝謝提示 2013-02-27 11:33:55

把 integer :: vvv, kkk 移到

CODE:

 double precision, allocatable :: cf(:,:)

的上面

[ Last edited by jjdg on 2013-2-27 at 02:54 ]

贊一下

回復(fù)此樓

3樓2013-02-26 13:53:27

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

chembetsey

木蟲 (小有名氣)

應(yīng)助: 125 (高中生)
金幣: 3820.1
散金: 5
紅花: 9
帖子: 262
在線: 281.8小時
蟲號: 1781694
注冊: 2012-04-27
專業(yè): 理論和計算化學(xué)

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

★ ★ ★
感謝參與，應(yīng)助指數(shù) +1
tider: 金幣+2, 謝謝提示 2013-02-27 11:34:08
jjdg: 金幣+1, 辛苦了 2013-02-28 00:23:03

我懷疑編譯器把代碼當(dāng)作固定格式的了，你把后綴名改為f90再編譯試試

贊一下

回復(fù)此樓

5樓2013-02-27 09:29:49

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

tider

木蟲 (正式寫手)

應(yīng)助: 8 (幼兒園)
金幣: 1950.4
散金: 40
紅花: 5
帖子: 313
在線: 87.2小時
蟲號: 1190614
注冊: 2011-01-16
性別: GG
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)

我把定義變量的語句放到整個程序最前面就沒報錯了，但是又出現(xiàn)了以下的錯誤，有哪位蟲友知道這是什么類型的錯誤么？

forces.o: In function `force_':
forces.f:(.text+0x8449): undefined reference to `_gfortran_allocate64_array'
forces.f:(.text+0x89d3): undefined reference to `_gfortran_st_write'
forces.f:(.text+0x89e5): undefined reference to `_gfortran_transfer_character'
forces.f:(.text+0x89fa): undefined reference to `_gfortran_transfer_integer'
forces.f:(.text+0x8a0f): undefined reference to `_gfortran_transfer_integer'
forces.f:(.text+0x8a24): undefined reference to `_gfortran_transfer_real'
forces.f:(.text+0x8a2c): undefined reference to `_gfortran_st_write_done'
forces.f:(.text+0x941b): undefined reference to `_gfortran_st_write'
forces.f:(.text+0x9432): undefined reference to `_gfortran_transfer_character'
forces.f:(.text+0x943f): undefined reference to `_gfortran_st_write_done'
forces.f:(.text+0x9479): undefined reference to `_gfortran_st_write'
forces.f:(.text+0x9490): undefined reference to `_gfortran_transfer_character'
forces.f:(.text+0x94aa): undefined reference to `_gfortran_transfer_integer'
forces.f:(.text+0x94c1): undefined reference to `_gfortran_transfer_character'
forces.f:(.text+0x94d6): undefined reference to `_gfortran_transfer_real'
forces.f:(.text+0x94f8): undefined reference to `_gfortran_transfer_real'
forces.f:(.text+0x9505): undefined reference to `_gfortran_st_write_done'
forces.f:(.text+0x95c3): undefined reference to `_gfortran_st_open'
forces.f:(.text+0x960e): undefined reference to `_gfortran_st_read'
forces.f:(.text+0x966e): undefined reference to `_gfortran_transfer_real'
forces.f:(.text+0x9683): undefined reference to `_gfortran_st_read_done'
forces.f:(.text+0x96d2): undefined reference to `_gfortran_st_close'
forces.f:(.text+0x9738): undefined reference to `_gfortran_st_write'
forces.f:(.text+0x9779): undefined reference to `_gfortran_transfer_real'
forces.f:(.text+0x9781): undefined reference to `_gfortran_st_write_done'
forces.f:(.text+0x97bd): undefined reference to `_gfortran_deallocate'
forces.f:(.text+0x9c56): undefined reference to `_gfortran_deallocate'

贊一下

回復(fù)此樓

6樓2013-02-27 11:36:37

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

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

[考研] 0856材料化工調(diào)劑總分330 +9	zhubinhao 2026-03-27	9/450	2026-03-28 01:14 by 飛行日記西
[考研] 材料求調(diào)劑一志愿哈工大324 +3	閆旭東 2026-03-28	4/200	2026-03-28 00:51 by JourneyLucky
[考研] 320分，材料與化工專業(yè)，求調(diào)劑 +5	一定上岸aaa 2026-03-27	7/350	2026-03-27 22:21 by 一定上岸aaa
[考研] 0703化學(xué) +6	妮妮ninicgb 2026-03-27	6/300	2026-03-27 17:18 by shangxh
[考研] 274求調(diào)劑 +17	顧九笙要謙虛 2026-03-24	23/1150	2026-03-27 15:16 by caszguilin
[考研] 一志愿太原理工安全工程300分，求調(diào)劑 +4	0857求調(diào)劑. 2026-03-24	4/200	2026-03-27 14:03 by 靜靜靜靜靜靜靜?/a>
[考研] 339求調(diào)劑 +4	烤麥芽 2026-03-27	5/250	2026-03-27 13:23 by 752105528
[考研] 一志愿陜師大生物學(xué)071000，298分，求調(diào)劑 +5	SYA！ 2026-03-23	5/250	2026-03-27 09:29 by 不吃魚的貓
[考研] 材料調(diào)劑 +8	匹克i 2026-03-23	8/400	2026-03-27 08:11 by hypershenger
[考研] 317求調(diào)劑 +7	蛋黃咸肉粽 2026-03-26	7/350	2026-03-27 02:29 by fmesaito
[考研] 271求調(diào)劑 +6	生如夏花… 2026-03-22	6/300	2026-03-26 16:48 by 張凱十八號
[考研] 289求調(diào)劑 +17	碩星赴 2026-03-23	17/850	2026-03-26 16:18 by 不吃魚的貓
[考研] 材料科學(xué)與工程 317求調(diào)劑 +4	JKSOIID 2026-03-26	4/200	2026-03-26 15:58 by 不吃魚的貓
[考研] 資源與環(huán)境調(diào)劑申請(333分) +9	holy J 2026-03-21	9/450	2026-03-26 15:47 by 161765490
[考研] 環(huán)境專碩324分求調(diào)劑推薦 +5	軒小寧—— 2026-03-26	5/250	2026-03-26 12:05 by i_cooler
[考研] 334分一志愿武理-080500 材料求調(diào)劑 +4	李李不服輸 2026-03-25	4/200	2026-03-25 21:26 by 星空星月
[考研] 一志愿重慶大學(xué)085700資源與環(huán)境，總分308求調(diào)劑 +7	墨墨漠 2026-03-23	8/400	2026-03-23 20:36 by Creta
[考研] 308求調(diào)劑 +3	墨墨漠 2026-03-21	3/150	2026-03-22 16:54 by i_cooler
[考研] 一志愿南大，0703化學(xué)，分?jǐn)?shù)336，求調(diào)劑 +3	收到VS 2026-03-21	3/150	2026-03-21 18:42 by 學(xué)員8dgXkO
[考研] 一志愿深大，0703化學(xué)，總分302，求調(diào)劑 +4	七月-七七 2026-03-21	4/200	2026-03-21 18:20 by 學(xué)員8dgXkO