24小时热门版块排行榜    

查看: 947  |  回复: 28
本帖产生 1 个 程序强帖 ,点击这里进行查看

snoopyzhao

至尊木虫 (职业作家)

引用回帖:
Originally posted by 贺仪 at 2011-04-26 19:28:42:
这个另外有定义,但是你编译时,前面没有错误吗?

你不给这个定义,自然进行不下去,仅就前面而言,没有错误……
11楼2011-04-26 21:49:55
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

贺仪

铁杆木虫 (著名写手)

引用回帖:
Originally posted by snoopyzhao at 2011-04-26 21:49:55:
你不给这个定义,自然进行不下去,仅就前面而言,没有错误……

我在编译的时候,前面就有错误呀……
嘟啦啦嘟啦啦嘟
12楼2011-04-26 22:12:33
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

★ ★ ★
余泽成(金币+3): 辛苦了! 2011-04-26 23:22:33
引用回帖:
Originally posted by 贺仪 at 2011-04-26 22:12:33:
我在编译的时候,前面就有错误呀……

这就是你那段代码的编译错误信息……
CODE:
ztt.f90:28.23:

          ALLOCATE(coef(npw))
                      1
Error: Syntax error in ALLOCATE statement at (1)
ztt.f90:29.21:

          ALLOCATE(ac(npw,200))
                    1
Error: Syntax error in ALLOCATE statement at (1)
ztt.f90:32.40:

               read(12,*) eval, fweight, (coef(i),i=1,npw)
                                       1
Error: Expected variable in READ statement at (1)
ztt.f90:40.41:

                       ac(i,ic) = coef(i)
                                        1
Error: Unexpected STATEMENT FUNCTION statement at (1)
ztt.f90:35.57:

        write(19,'(5X,I3,5X,f8.4,5x,f8.4)') iband, dreal(eval), fweight
                                                        1
Error: Type of argument 'a' in call to 'dreal' at (1) should be COMPLEX(8), not REAL(4)
ztt.f90:46.26:

           DEALLOCATE(coef)
                         1
Error: Expression in DEALLOCATE statement at (1) must be ALLOCATABLE or a POINTER

13楼2011-04-26 22:49:03
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

贺仪

铁杆木虫 (著名写手)

引用回帖:
Originally posted by snoopyzhao at 2011-04-26 22:49:03:
这就是你那段代码的编译错误信息……

[code]
ztt.f90:28.23:

          ALLOCATE(coef(npw))
                      1
Error: Syntax error in ALLOCATE statement at (1)
ztt.f90:29.21:

       ...

这是我编译时的错误,gfortran 和 ifort都在   100  FORMAT('k-point #',I3,':  ',(3f7.4),'    npw=',I6)这一步提示错误。以下是gfortran的编译错误提示,系统

In file wavercar.f:23

          100  FORMAT('k-point #',I3,':  ',(3f7.4),'    npw=',I6)      
         1
Error: Unclassifiable statement at (1)
In file wavercar.f:28

          ALLOCATE(coef(npw))                                          
                      1
Error: Syntax error in ALLOCATE statement at (1)
In file wavercar.f:29

          ALLOCATE(ac(npw,200))                                         
                    1
Error: Syntax error in ALLOCATE statement at (1)
In file wavercar.f:32

               read(12,*) eval, fweight, (coef(i),i=1,npw)              
                                       1
Error: Expected variable in READ statement at (1)
In file wavercar.f:40

                       ac(i,ic) = coef(i)                              
                                                                       1
Error: Unexpected STATEMENT FUNCTION statement at (1)
In file wavercar.f:22

          write(19,100) ikpt,(kpt(i),i=1,3),npw                        
                     1
Error: FORMAT label 100 at (1) not defined
In file wavercar.f:35

               write(19,'(5X,I3,5X,f8.4,5x,f8.4)') iband, dreal(eval), f
                                                               1
Error: Type of argument 'a' in call to 'dreal' at (1) should be COMPLEX(8), not REAL(4)
In file wavercar.f:46

           DEALLOCATE(coef)                                             
                         1
Error: Expression in DEALLOCATE statement at (1) must be ALLOCATABLE or a POINTER
嘟啦啦嘟啦啦嘟
14楼2011-04-27 09:22:57
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

引用回帖:
Originally posted by 贺仪 at 2011-04-27 09:22:57:
这是我编译时的错误,gfortran 和 ifort都在   100  FORMAT('k-point #',I3,':  ',(3f7.4),'    npw=',I6)这一步提示错误。以下是gfortran的编译错误提示,系统

In file wavercar.f:23

          100   ...

把代码以附件形式贴出来吧……
15楼2011-04-27 09:24:07
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

贺仪

铁杆木虫 (著名写手)

引用回帖:
Originally posted by snoopyzhao at 2011-04-27 09:24:07:
把代码以附件形式贴出来吧……

上传了 谢谢你
嘟啦啦嘟啦啦嘟
16楼2011-04-27 09:32:58
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

贺仪(金币+5): 太感谢你了!还有一个问题麻烦你帮忙解决以下 2011-04-27 10:21:00
引用回帖:
Originally posted by 贺仪 at 2011-04-27 09:32:58:
上传了 谢谢你

你这个源码是按固定格式写的,那么,你的 100 应该放在一行的1-5列的位置。另外,每行不要超过72列

你把后缀改成 f90 就不会有那样的问题了……,当然,注释就要改成 ! 了……
17楼2011-04-27 09:36:58
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

贺仪

铁杆木虫 (著名写手)

我输入
gfortran wavercar.f90 >>wave
输出的wave怎么是空的呀?
gfortran wavercar.f90 > wave 也是一样
嘟啦啦嘟啦啦嘟
18楼2011-04-27 10:22:27
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

贺仪

铁杆木虫 (著名写手)

引用回帖:
Originally posted by snoopyzhao at 2011-04-27 09:36:58:
你这个源码是按固定格式写的,那么,你的 100 应该放在一行的1-5列的位置。另外,每行不要超过72列

你把后缀改成 f90 就不会有那样的问题了……,当然,注释就要改成 ! 了……

谢谢 那我现在怎么编译的?
小木虫怎么现在不能改了?上面还没说完呢……
嘟啦啦嘟啦啦嘟
19楼2011-04-27 10:29:23
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

★ ★
余泽成(金币+2): 谢谢参与应助! 2011-04-27 22:27:56
引用回帖:
Originally posted by 贺仪 at 2011-04-27 10:29:23:
谢谢 那我现在怎么编译的?
小木虫怎么现在不能改了?上面还没说完呢……

我一般都是这样的:

gfortran -Wall wavercar.f90 -o wavercar.exe
20楼2011-04-27 10:41:03
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 贺仪 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[博后之家] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +3 s3fFTmArrBt6 2026-09-13 4/200 2026-09-14 23:24 by vZfe6xYu34yj
[教师之家] 售SCI一区文章,我:8.O.551.O.5.4,科目全,可伽急 +3 s3fFTmArrBt6 2026-09-13 3/150 2026-09-14 23:21 by vZfe6xYu34yj
[考研] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 +3 LwdutQ8HoqWP 2026-09-13 3/150 2026-09-14 22:33 by vZfe6xYu34yj
[考研] 售SCI文章,我:8O5.5.1.O.54,科目齐全,可+急 +5 LwdutQ8HoqWP 2026-09-13 5/250 2026-09-14 22:25 by vZfe6xYu34yj
[教师之家] 售SCI一区T0P文章,我:8.O.55.1.O.54,科目齐全,可+急 +5 3n8v2C8RimXI 2026-09-13 5/250 2026-09-14 22:01 by vZfe6xYu34yj
[考研] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +4 3n8v2C8RimXI 2026-09-13 5/250 2026-09-14 22:00 by vZfe6xYu34yj
[考博] 售SCI文章,我:8O5.5.1.O.54,科目齐全,可+急 +5 QUjhNVAcOSff 2026-09-13 5/250 2026-09-14 21:36 by vZfe6xYu34yj
[找工作] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 +3 QUjhNVAcOSff 2026-09-13 5/250 2026-09-14 21:25 by vZfe6xYu34yj
[博后之家] 售SCI一区T0P文章,我:8O.55.1.O.54,科目全,可伽急 +4 QUjhNVAcOSff 2026-09-13 5/250 2026-09-14 21:24 by vZfe6xYu34yj
[考博] 上海工程技术大学激光智能制造课题组招收博士研究生 +4 两三岁ss 2026-09-14 4/200 2026-09-14 20:29 by 班主任的同桌
[考博] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +3 s3fFTmArrBt6 2026-09-14 4/200 2026-09-14 17:49 by Aj1rhIDL5ixY
[找工作] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +3 s3fFTmArrBt6 2026-09-14 4/200 2026-09-14 17:48 by Aj1rhIDL5ixY
[考博] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +4 s3fFTmArrBt6 2026-09-14 4/200 2026-09-14 17:25 by Aj1rhIDL5ixY
[教师之家] 售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急 +3 LwdutQ8HoqWP 2026-09-13 4/200 2026-09-14 16:13 by Aj1rhIDL5ixY
[考博] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 +4 3n8v2C8RimXI 2026-09-13 4/200 2026-09-14 15:37 by Aj1rhIDL5ixY
[找工作] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 +5 QUjhNVAcOSff 2026-09-13 6/300 2026-09-14 15:21 by Aj1rhIDL5ixY
[硕博家园] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +3 QUjhNVAcOSff 2026-09-13 3/150 2026-09-14 15:09 by Aj1rhIDL5ixY
[考研] 售SCI一区文章,我:8.O.551.O.5.4,科目全,可伽急 +3 QUjhNVAcOSff 2026-09-13 3/150 2026-09-14 14:57 by Aj1rhIDL5ixY
[考博] 27秋季材料博士申请求助 10+3 Cahal1 2026-09-11 4/200 2026-09-14 08:50 by 北京莱茵编辑
[教师之家] 浙江师范大学是怎么坑我的 +10 recruit123 2026-09-09 15/750 2026-09-13 10:45 by seaskyy
信息提示
请填处理意见