应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » Fortran allocate 程序段编译出错求助。
61/1返回列表
查看: 3142  |  回复: 5
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

tider

木虫 (正式写手)

[求助] 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 ]
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2013-02-26 13:22:41
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

tider

木虫 (正式写手)
笑脸是   ：）
回复此楼
2楼2013-02-26 13:23:30
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

xujince

木虫 (正式写手)

【答案】应助回帖

★ ★
感谢参与，应助指数 +1
jjdg: 编辑内容 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 ]
赞一下 回复此楼
3楼2013-02-26 13:53:27
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

tider

木虫 (正式写手)
jjdg: 编辑内容 2013-02-27 02:55
引用回帖:
3楼: Originally posted by xujince at 2013-02-25 23:53:27
把 integer :: vvv, kkk 移到 double precision, allocatable :: cf(:,的上面

谢谢，不过这样以后还是会报错。。是同样的错误。这跟编译器的选择有关系么？
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 ]
赞一下 回复此楼
4楼2013-02-27 02:44:44
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

chembetsey

木虫 (小有名气)

【答案】应助回帖

★ ★ ★
感谢参与，应助指数 +1
tider: 金币+2, 谢谢提示 2013-02-27 11:34:08
jjdg: 金币+1, 辛苦了 2013-02-28 00:23:03
我怀疑编译器把代码当作固定格式的了，你把后缀名改为f90再编译试试
赞一下 回复此楼
5楼2013-02-27 09:29:49
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

tider

木虫 (正式写手)
我把定义变量的语句放到整个程序最前面就没报错了，但是又出现了以下的错误，有哪位虫友知道这是什么类型的错误么？

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'
赞一下 回复此楼
6楼2013-02-27 11:36:37
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 tider 的主题更新
61/1返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 中科院材料273求调剂 +4 yzydy 2026-03-15 4/200 2026-03-16 15:59 by Gaodh_82
[基金申请] NSFC申报书里申请人简历中代表性论著还需要在申报书最后的附件里面再上传一遍吗 20+5 NSFC2026我来了 2026-03-10 14/700 2026-03-15 23:53 by 不负韶华的虎
[考研] 274求调剂 +4 时间点 2026-03-13 4/200 2026-03-15 15:29 by Rambo13
[考研] 材料专硕326求调剂 +4 墨煜姒莘 2026-03-15 4/200 2026-03-15 11:02 by dyw
[考研] 一志愿哈工大材料324分求调剂 +5 闫旭东 2026-03-14 5/250 2026-03-14 14:53 by 木瓜膏
[考研] 266求调剂 +4 学员97LZgn 2026-03-13 4/200 2026-03-14 08:37 by zhukairuo
[考研] 云南财经大学信息学院计算机学硕专硕学位点 +3 zjptai 2026-03-10 5/250 2026-03-14 01:23 by 飞行琦
[考研] b区环境工程求调剂 +4 Maps1 2026-03-10 6/300 2026-03-14 00:23 by JourneyLucky
[考研] 341求调剂 +4 番茄头--- 2026-03-10 4/200 2026-03-13 23:12 by JourneyLucky
[考研] 材料与化工求调剂一志愿 985 总分 295 +8 dream…… 2026-03-12 8/400 2026-03-13 22:17 by 星空星月
[考研] 四川大学085601材料工程专硕 初试294求调剂 +4 祝我们好在冬天 2026-03-11 4/200 2026-03-13 21:39 by peike
[考研] （081700）化学工程与技术-298分求调剂 +12 11啦啦啦 2026-03-11 35/1750 2026-03-13 21:25 by JourneyLucky
[考研] 329求调剂 +3 miaodesi 2026-03-12 4/200 2026-03-13 20:53 by 18595523086
[考研] 26调剂/材料科学与工程/总分295/求收留 +9 2026调剂侠 2026-03-12 9/450 2026-03-13 20:46 by 18595523086
[考研] 293求调剂 +3 世界首富 2026-03-11 3/150 2026-03-13 16:27 by JourneyLucky
[考研] 295求调剂 +3 小匕仔汁 2026-03-12 3/150 2026-03-13 15:17 by vgtyfty
[考研] 工科调剂 +4 Jiang191123！ 2026-03-11 4/200 2026-03-13 15:15 by Miko19
[考研] 0856化工原理 +6 z2839474511 2026-03-10 6/300 2026-03-13 10:41 by houyaoxu
[考研] 274求调剂0856材料化工 +12 z2839474511 2026-03-11 13/650 2026-03-13 10:39 by peike
[考研] 一志愿：武汉理工，材料工程，英二数二 总分314 +3 2202020125 2026-03-10 4/200 2026-03-10 13:54 by xiongyaxuan
信息提示
关闭
请填处理意见
关闭