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

tider

木蟲 (正式寫手)

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

[求助] Fortran allocate 程序段編譯出錯(cuò)求助。

以下是報(bào)出的錯(cuò)誤：

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

出錯(cuò)的程序段如下：

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

總看著沒錯(cuò)誤，希望蟲友指正。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)價(jià)值貼推薦，對(duì)您同樣有幫助:

FORTRAN編譯成功，但運(yùn)行出現(xiàn)斷點(diǎn) 已經(jīng)有8人回復(fù)
Fortran 編譯問題已經(jīng)有9人回復(fù)
請(qǐng)問安裝fortran編譯器之前必須先安裝visual studio 嗎已經(jīng)有9人回復(fù)
急求可用的fortran編譯器已經(jīng)有13人回復(fù)
allocate與data共存的問題已經(jīng)有14人回復(fù)
請(qǐng)教一個(gè)fortran小程序編譯出錯(cuò)的問題，謝謝已經(jīng)有9人回復(fù)
fortran編譯 read出錯(cuò) 完畢已經(jīng)有11人回復(fù)
三維數(shù)組換行輸入到文件（intel fortran 編譯器）已經(jīng)有6人回復(fù)
fortran程序怎么反編譯？已經(jīng)有12人回復(fù)
寫了一個(gè)fortran90的小程序，編譯通不過，請(qǐng)大俠幫忙已經(jīng)有59人回復(fù)
【求助】CUDA支持的Fortran編譯器現(xiàn)在只有PGI嗎？已經(jīng)有5人回復(fù)
【求助】FEDORA12下用FORTRAN編寫程序需要下一個(gè)FORTRAN編譯器么已經(jīng)有18人回復(fù)
【求助】fortran出錯(cuò) 編譯通過運(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的回帖

xujince

木蟲 (正式寫手)

應(yīng)助: 17 (小學(xué)生)
金幣: 2516.7
紅花: 1
帖子: 548
在線: 376.9小時(shí)
蟲號(hào): 1926989
注冊(cè): 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的回帖

查看全部 6 個(gè)回答

tider

木蟲 (正式寫手)

應(yīng)助: 8 (幼兒園)
金幣: 1950.4
散金: 40
紅花: 5
帖子: 313
在線: 87.2小時(shí)
蟲號(hào): 1190614
注冊(cè): 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(:,

的上面

謝謝，不過這樣以后還是會(huì)報(bào)錯(cuò)。。是同樣的錯(cuò)誤。這跟編譯器的選擇有關(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的回帖

chembetsey

木蟲 (小有名氣)

應(yīng)助: 125 (高中生)
金幣: 3820.1
散金: 5
紅花: 9
帖子: 262
在線: 281.8小時(shí)
蟲號(hào): 1781694
注冊(cè): 2012-04-27
專業(yè): 理論和計(jì)算化學(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小時(shí)
蟲號(hào): 1190614
注冊(cè): 2011-01-16
性別: GG
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)

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

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

[考研] 化學(xué)調(diào)劑 +4	愛吃番茄的旭 2026-03-24	5/250	2026-03-27 17:50 by kiokin
[考研] 一志愿北京化工大學(xué) 070300 學(xué)碩 336分求調(diào)劑 +9	vv迷 2026-03-22	9/450	2026-03-27 15:59 by 不吃魚的貓
[考研] 安徽大學(xué)專碩生物與醫(yī)藥專業(yè)(086000)324分，英語已過四六級(jí)，六級(jí)521，求調(diào)劑 +4	美味可樂雞翅 2026-03-26	4/200	2026-03-27 15:27 by 星空星月
[考研] 348求調(diào)劑 +4	小懶蟲不懶了 2026-03-27	5/250	2026-03-27 12:47 by 果果媽咪
[考研] 334求調(diào)劑 +3	雨清天晴 2026-03-21	3/150	2026-03-27 11:30 by 不吃魚的貓
[考研] 調(diào)劑 +3	李嘉圖·S·路 2026-03-27	3/150	2026-03-27 11:19 by wangjy2002
[考研] 調(diào)劑推薦 +5	清酒714 2026-03-26	6/300	2026-03-27 11:12 by 不吃魚的貓
[考研] 材料求調(diào)劑 +5	.m.. 2026-03-25	5/250	2026-03-27 11:08 by 不吃魚的貓
[考研] 316求調(diào)劑 +5	江辭666 2026-03-26	5/250	2026-03-27 08:08 by hypershenger
[考研] 一志愿武漢理工，總分321，英一數(shù)二，求老師收留。 +5	nnnnnnn5 2026-03-25	5/250	2026-03-27 04:42 by wxiongid
[考研] 304材料求調(diào)劑 +4	鐘llll 2026-03-26	4/200	2026-03-27 03:42 by wxiongid
[考研] 調(diào)劑 +4	柚柚yoyo 2026-03-26	4/200	2026-03-26 20:43 by fmesaito
[考研] 081200-11408-276學(xué)碩求調(diào)劑 +3	崔wj 2026-03-26	3/150	2026-03-26 19:57 by nihaoar
[考研] 生物學(xué)學(xué)碩，一志愿湖南大學(xué)，初試成績338 +4	YYYYYNNNNN 2026-03-26	4/200	2026-03-26 19:00 by macy2011
[考研] 086000生物與醫(yī)藥292求調(diào)劑 +6	小小陳小小 2026-03-22	9/450	2026-03-26 15:58 by dick_runner
[考研] 環(huán)境專碩324分求調(diào)劑推薦 +5	軒小寧—— 2026-03-26	5/250	2026-03-26 12:05 by i_cooler
[考研] 材料與化工304求B區(qū)調(diào)劑 +3	邱gl 2026-03-25	3/150	2026-03-25 19:03 by Ainin_
[考研] 食品專碩一志愿雙一流 328 +3	xiaom99 2026-03-21	4/200	2026-03-24 21:20 by lailaisimei
[考研] 石河子大學(xué)（211、雙一流）碩博研究生長期招生公告 +3	李子目 2026-03-22	3/150	2026-03-22 21:01 by 怎么釋懷
[考研] 求助 +5	夢里的無言 2026-03-21	6/300	2026-03-21 17:51 by 學(xué)員8dgXkO