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

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ù)此樓

» 猜你喜歡

11408總分309，一志愿東南大學(xué)求調(diào)劑，不挑專業(yè) 已經(jīng)有6人回復(fù)
求調(diào)劑，一志愿南京航空航天大學(xué) ，080500材料科學(xué)與工程學(xué)碩，總分289分已經(jīng)有8人回復(fù)
環(huán)境工程 085701，267求調(diào)劑已經(jīng)有7人回復(fù)
材料工程專碩求調(diào)劑已經(jīng)有8人回復(fù)
297求調(diào)劑已經(jīng)有3人回復(fù)
材料科學(xué)與工程求調(diào)劑已經(jīng)有7人回復(fù)
281求調(diào)劑已經(jīng)有7人回復(fù)
288資源與環(huán)境專碩求調(diào)劑，不限專業(yè)，有學(xué)上就行已經(jīng)有8人回復(fù)
求收留已經(jīng)有6人回復(fù)
085600 295分求調(diào)劑已經(jīng)有9人回復(fù)

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

FORTRAN編譯成功，但運(yùn)行出現(xiàn)斷點(diǎ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出錯編譯通過運(yùn)行溢出已經(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的回帖

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的回帖

查看全部 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的回帖

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的回帖

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ā)表

[考研] 327求調(diào)劑 +5	小卡不卡. 2026-03-29	5/250	2026-03-30 19:30 by Wang200018
[考研] 一志愿南開大學(xué)0710生物學(xué)359求調(diào)劑 +5	兔兔兔111223314 2026-03-29	7/350	2026-03-30 18:29 by 兔兔兔111223314
[考研] 08工科，295，接受跨專業(yè)調(diào)劑 +3	lmnlzy 2026-03-30	3/150	2026-03-30 17:49 by wangjy2002
[考研] 334分一志愿武理材料求調(diào)劑 +16	李李不服輸 2026-03-26	16/800	2026-03-30 17:47 by wangjy2002
[考研] 328求調(diào)劑 +8	嗯滴的基本都 2026-03-27	8/400	2026-03-30 17:20 by Wang200018
[考研] 考研調(diào)劑 +5	Sanmu-124 2026-03-26	5/250	2026-03-30 13:36 by chemdavid
[考研] 375求調(diào)劑 +6	雨夏整夜 2026-03-29	6/300	2026-03-30 10:21 by herarysara
[考研] 0856求調(diào)劑 +8	楒桉 2026-03-28	8/400	2026-03-30 10:00 by wzy-lxz
[考研] 299求調(diào)劑 +10	15188958825 2026-03-25	10/500	2026-03-29 17:51 by 王亮_大連醫(yī)科大
[考研] 305求調(diào)劑 +8	RuiFairyrui 2026-03-28	8/400	2026-03-29 08:22 by fmesaito
[考研] 086502化學(xué)工程342求調(diào)劑 +6	阿姨復(fù)古不過 2026-03-27	6/300	2026-03-28 07:06 by wangy0907
[考研] 070300化學(xué)求調(diào)劑 +4	起個名咋這么難 2026-03-27	4/200	2026-03-27 21:39 by 83503孫老師
[考研] 復(fù)試調(diào)劑，一志愿南農(nóng)083200食品科學(xué)與工程 +5	XQTJZ 2026-03-26	5/250	2026-03-27 14:49 by 狂炫麥當(dāng)當(dāng)
[考研] 292求調(diào)劑 +4	求求了收下我吧?/a> 2026-03-26	4/200	2026-03-27 10:37 by zhshch
[考研] 求調(diào)劑 +6	林之夕 2026-03-24	6/300	2026-03-27 08:38 by hypershenger
[考研] 341求調(diào)劑 +7	青檸檬1 2026-03-26	7/350	2026-03-27 00:19 by wxiongid
[考研] 一志愿天津大學(xué)339材料與化工求調(diào)劑 +3	江往賣魚 2026-03-26	3/150	2026-03-26 09:42 by 王小欠i
[考研] 302求調(diào)劑 +4	錦衣衛(wèi)藤椒 2026-03-25	4/200	2026-03-25 16:29 by 功夫瘋狂
[考研] 一志愿北化315 求調(diào)劑 +3	akrrain 2026-03-24	3/150	2026-03-24 19:35 by 了了了了。。
[考研] 085404電子信息284分求調(diào)劑 +4	13659058978 2026-03-24	4/200	2026-03-24 12:15 by syl20081243