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

總看著沒(méi)錯(cuò)誤，希望蟲友指正。Thx.

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

回復(fù)此樓

» 猜你喜歡

275求調(diào)劑已經(jīng)有14人回復(fù)
調(diào)劑310 已經(jīng)有6人回復(fù)
283求調(diào)劑已經(jīng)有3人回復(fù)
085602 化工專碩 338分求調(diào)劑已經(jīng)有12人回復(fù)
312，生物學(xué)求調(diào)劑已經(jīng)有3人回復(fù)
化學(xué)0703 調(diào)劑 306分一志愿211 已經(jīng)有4人回復(fù)
311（085601）求調(diào)劑已經(jīng)有3人回復(fù)
復(fù)試調(diào)劑已經(jīng)有3人回復(fù)
本科雙非材料，跨考一志愿華電085801電氣，283求調(diào)劑，任何專業(yè)都可以已經(jīng)有6人回復(fù)
材料與化工272求調(diào)劑已經(jīng)有9人回復(fù)

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

FORTRAN編譯成功，但運(yùn)行出現(xiàn)斷點(diǎn) 已經(jīng)有8人回復(fù)
Fortran 編譯問(wèn)題已經(jīng)有9人回復(fù)
請(qǐng)問(wèn)安裝fortran編譯器之前必須先安裝visual studio 嗎已經(jīng)有9人回復(fù)
急求可用的fortran編譯器已經(jīng)有13人回復(fù)
allocate與data共存的問(wèn)題已經(jīng)有14人回復(fù)
請(qǐng)教一個(gè)fortran小程序編譯出錯(cuò)的問(wèn)題，謝謝已經(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的小程序，編譯通不過(guò)，請(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ò) 編譯通過(guò) 運(yùn)行溢出已經(jīng)有10人回復(fù)
【分享】將ELFCAR、CHGCAR轉(zhuǎn)化成MS閱讀可讀的fortran代碼已經(jīng)有142人回復(fù)
【求助】Fortran編譯目標(biāo)文件后的鏈接問(wèn)題已經(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小時(shí)
蟲號(hào): 1190614
注冊(cè): 2011-01-16
性別: GG
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)

笑臉是：）

回復(fù)此樓

2樓2013-02-26 13:23:30

已閱回復(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的回帖

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(:,

的上面

謝謝，不過(guò)這樣以后還是會(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)

我把定義變量的語(yǔ)句放到整個(gè)程序最前面就沒(méi)報(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ā)表

[考研] 考研調(diào)劑 +6	呼呼？~+123456 2026-03-21	6/300	2026-03-28 13:33 by 唐沐兒
[考研] 0856求調(diào)劑 +11	zhn03 2026-03-25	12/600	2026-03-28 13:32 by 唐沐兒
[考研] 311求調(diào)劑 +9	lin0039 2026-03-26	9/450	2026-03-28 13:05 by 唐沐兒
[考研] 339求調(diào)劑 +6	烤麥芽 2026-03-27	8/400	2026-03-28 10:40 by 烤麥芽
[考研] 277跪求調(diào)劑 +5	1915668 2026-03-27	9/450	2026-03-28 09:58 by zhshch
[考研] 085405 考的11408求各位老師帶走 +3	Qiu學(xué)ing 2026-03-28	3/150	2026-03-28 09:19 by 樂(lè)呵呵的追夢(mèng)人
[考研] 295求調(diào)劑 +5	1428151015 2026-03-27	6/300	2026-03-28 04:04 by fmesaito
[考研] 085701環(huán)境工程求調(diào)劑 +9	多久上課 2026-03-27	9/450	2026-03-28 03:58 by fmesaito
[考研] 352分化工與材料 +5	海納百川Ly 2026-03-27	5/250	2026-03-28 03:39 by fmesaito
[考博] 26申博 +3	加油沖��！ 2026-03-26	3/150	2026-03-27 15:38 by cls512
[考研] 342求調(diào)劑 +3	加油a李zs 2026-03-26	3/150	2026-03-27 00:29 by wxiongid
[考研] 334分一志愿武理材料求調(diào)劑 +4	李李不服輸 2026-03-26	4/200	2026-03-26 16:00 by 不吃魚的貓
[考研] 0854AI CV方向招收調(diào)劑 +4	章小魚567 2026-03-23	4/200	2026-03-25 17:04 by CoderLoser
[考研] 各位老師您好：本人初試372分 +5	jj涌77 2026-03-25	6/300	2026-03-25 14:15 by mapenggao
[考研] 318求調(diào)劑 +3	plum李子 2026-03-23	3/150	2026-03-25 09:42 by 霧散后相遇lc
[考研] 300求調(diào)劑，材料科學(xué)英一數(shù)二 +5	leaflight 2026-03-24	5/250	2026-03-24 16:25 by laoshidan
[考研] 361求調(diào)劑 +3	Glack 2026-03-22	3/150	2026-03-23 22:03 by fuyu_
[考研] 328求調(diào)劑 +4	LHHL66 2026-03-23	4/200	2026-03-23 14:55 by lbsjt
[考研] 求老師收我 +3	zzh16938784 2026-03-23	3/150	2026-03-23 12:56 by ztnimte
[考研] 070300，一志愿北航320求調(diào)劑 +3	Jerry0216 2026-03-22	5/250	2026-03-23 09:16 by 。。堂堂