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

» 猜你喜歡

0856，材料與化工321分求調(diào)劑已經(jīng)有6人回復(fù)
0703化學(xué)求調(diào)劑，各位老師看看我！�。� 已經(jīng)有5人回復(fù)
266分，求材料冶金能源化工等調(diào)劑已經(jīng)有7人回復(fù)
張芳銘-中國農(nóng)業(yè)大學(xué)-環(huán)境工程專碩-298 已經(jīng)有3人回復(fù)
070300化學(xué)求調(diào)劑已經(jīng)有4人回復(fù)
086000調(diào)劑已經(jīng)有3人回復(fù)
320分，材料與化工專業(yè)，求調(diào)劑已經(jīng)有4人回復(fù)
265求調(diào)劑已經(jīng)有7人回復(fù)
295材料工程專碩求調(diào)劑已經(jīng)有4人回復(fù)
高溫高壓反應(yīng)求助已經(jīng)有4人回復(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編譯目標文件后的鏈接問題已經(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)

笑臉是：）

回復(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小時
蟲號: 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的回帖

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

我懷疑編譯器把代碼當作固定格式的了，你把后綴名改為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ā)表

[考研] 266求調(diào)劑 +11	陽陽哇塞 2026-03-27	12/600	2026-03-27 17:56 by yu221
[考研] 一志愿華東理工大學(xué)081700，初試分數(shù)271 +6	kotoko_ik 2026-03-23	7/350	2026-03-27 12:29 by 惠州彭于晏
[考研] 333求調(diào)劑 +3	question挽風(fēng) 2026-03-23	3/150	2026-03-27 11:29 by 不吃魚的貓
[考研] 材料求調(diào)劑 +5	.m.. 2026-03-25	5/250	2026-03-27 11:08 by 不吃魚的貓
[考研] 0703化學(xué)338求調(diào)劑！ +6	Zuhui0306 2026-03-26	7/350	2026-03-27 10:35 by shangxh
[考研] 286求調(diào)劑 +4	lim0922 2026-03-26	4/200	2026-03-27 10:28 by guoweigw
[考研] 284求調(diào)劑 +11	junqihahaha 2026-03-26	12/600	2026-03-27 04:37 by wxiongid
[考研] 349求調(diào)劑 +4	李木子啊哈哈 2026-03-25	4/200	2026-03-26 22:49 by fmesaito
[考研] 321求調(diào)劑 +6	wasdssaa 2026-03-26	6/300	2026-03-26 20:57 by sanrepian
[考研] 324求調(diào)劑 +4	wysyjs25 2026-03-21	4/200	2026-03-26 20:38 by fmesaito
[考研] 材料考研求調(diào)劑 +3	Dendel 2026-03-23	6/300	2026-03-26 17:51 by fmesaito
[考研] 289求調(diào)劑 +17	碩星赴 2026-03-23	17/850	2026-03-26 16:18 by 不吃魚的貓
[考研] 一志愿北京化工大學(xué)材料與化工（085600）296求調(diào)劑 +9	稻妻小編 2026-03-26	9/450	2026-03-26 16:16 by 不吃魚的貓
[考研] 求b區(qū)院校調(diào)劑 +4	周56 2026-03-24	5/250	2026-03-25 17:12 by yishunmin
[考研] 生物學(xué)學(xué)碩求調(diào)劑 +7	小羊睡著了? 2026-03-23	10/500	2026-03-25 02:24 by 清風(fēng)拂揚。 m
[考研] 生物學(xué)一志愿985，分數(shù)349求調(diào)劑 +6	zxts12 2026-03-21	9/450	2026-03-23 18:37 by macy2011
[考研] 接收2026碩士調(diào)劑(學(xué)碩+專碩) +4	allen-yin 2026-03-23	6/300	2026-03-23 15:04 by 汪��？！
[考研] 280分求調(diào)劑一志愿085802 +4	PUMPT 2026-03-22	7/350	2026-03-22 22:13 by 星空星月
[考研] 一志愿華中科技大學(xué)071000，求調(diào)劑 +4	沿岸有貝殼6 2026-03-21	4/200	2026-03-22 07:21 by ilovexiaobin
[考研] 一志愿東華大學(xué)控制學(xué)碩320求調(diào)劑 +3	Grand777 2026-03-21	3/150	2026-03-21 19:23 by 簡之-