| 查看: 1705 | 回复: 4 | ||
superrice木虫 (正式写手)
|
[求助]
Fortran90 编译不通过 已有2人参与
|
|
请问大神是什么情况，还有怎么能把那个讨厌的默认表情快捷键给去掉啊 subroutine laplacian(f, lapl) implicit none real(8), intent(in) :: f(N, N) ! function whose laplacian is to be taken real(8), intent(out) :: lapl(N, N) ! the laplacian lapl = 0.0_8 integer :: ix, iy, k integer, parameter :: order = 4 real(8), allocatable :: c(  allocate(c(-order  rder))c(-order rder) = (/ & ! The coefficients of the laplacian...-1.785714d-3, 2.539683d-2, -0.2d0, 1.6d0, & -2.847222d0, & 1.6d0, -0.2d0, 2.539683d-2, -1.785714d-3 /) do ix = 1, N do iy = 1, N lapl(ix, iy) = (0.0_8, 0.0_8) do k = -order, order if(iy+k>=1 .and. iy+k<=N) lapl(ix, iy) = lapl(ix, iy) + c(k)*f(ix, iy+k) if(ix+k>=1 .and. ix+k<=N) lapl(ix, iy) = lapl(ix, iy) + c(k)*f(ix+k, iy) end do end do end do lapl = lapl/delta**2 错误： integer :: ix, iy, k 1 Error: Unexpected data declaration statement at (1) mesh.f90:129.33: integer, parameter :: order = 4 1 Error: Unexpected data declaration statement at (1) mesh.f90:130.30: real(8), allocatable :: c( 1 Error: Unexpected data declaration statement at (1) mesh.f90:133.12: allocate(c(-order rder))1 Error: Syntax error in ALLOCATE statement at (1) mesh.f90:134.2: c(-order rder) = (/ & ! The coefficients of the laplacian...1 Error: Unclassifiable statement at (1) mesh.f90:181.22: integer :: ix, iy, k 1 Error: Unexpected data declaration statement at (1) mesh.f90:183.33: integer, parameter :: order = 4 1 Error: Unexpected data declaration statement at (1) mesh.f90:184.30: real(8), allocatable :: c( 1 Error: Unexpected data declaration statement at (1) mesh.f90:186.12: allocate(c(-order rder))1 Error: Syntax error in ALLOCATE statement at (1) mesh.f90:187.2: c(-order rder) = (/ & ! The coefficients of the laplacian...1 Error: Unclassifiable statement at (1) mesh.f90:192.7: do ix = 1, N 1 Error: Symbol 'ix' at (1) has no IMPLICIT type mesh.f90:193.9: do iy = 1, N 1 Error: Symbol 'iy' at (1) has no IMPLICIT type mesh.f90:195.10: do k = -order, order 1 Error: Symbol 'k' at (1) has no IMPLICIT type mesh.f90:195.19: do k = -order, order 1 Error: Symbol 'order' at (1) has no IMPLICIT type mesh.f90:140.7: do ix = 1, N 1 Error: Symbol 'ix' at (1) has no IMPLICIT type mesh.f90:141.9: do iy = 1, N 1 Error: Symbol 'iy' at (1) has no IMPLICIT type mesh.f90:143.10: do k = -order, order 1 Error: Symbol 'k' at (1) has no IMPLICIT type mesh.f90:143.19: do k = -order, order 1 Error: Symbol 'order' at (1) has no IMPLICIT type make[2]: *** [mesh.o] Error 1 make[2]: Leaving directory `/public/home/qishengzhang/chaowang/script/qd-0.1.0/src' make[1]: *** [all-recursive] Error 1 make[1]: Leaving directory `/public/home/qishengzhang/chaowang/script/qd-0.1.0' make: *** [all] Error 2 |
回复此楼» 猜你喜欢
关于filecode，很负责任的告诉大家
已经有7人回复
-
【2027博士申请】纳米药物递送方向
已经有5人回复
-
关于豆爷回答的JTJC与%2F数量
已经有7人回复
-
2026国自然放榜时间
已经有3人回复
-
国基金的申报应该改成非等额制，评价高的钱多评价低的钱少，但是增加资助率
已经有7人回复
-
好奇怪的filecode
已经有4人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有4人回复
-
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急
已经有4人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有4人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急
已经有5人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 在Fortran程序中，自定义打印数据列数的三种方法
已经有8人回复
- vasp 5.2 安装过程 (串行+并行）+(32位+64位) + ifort +intel MKL+ openmpi
已经有47人回复
- vasp 编译主程序时候出错，求好心人看一下
已经有17人回复
- 关于 VASP 的编译经验分享
已经有16人回复
- 紧急求助---VASP.5.2编译
已经有16人回复
- vasp.5.2编译出错，跪求解决办法！
已经有10人回复
- 深圳超算中心vasp编译及任务提交问题
已经有25人回复
- 用MPIF90编译后的Siesta并行出错，串行没事……
已经有1人回复
- [VASP编译]五 Makefile中fortran Flags的解释
已经有18人回复
- 回答一些关于Multiwfn的疑问以及未来Multiwfn的发展打算
已经有37人回复
- Dalton2011并行编译详记
已经有33人回复
- 【pwzhou个人文集】Molpro 2010.1 PL20 并行编译
已经有5人回复
- 【求助】FORTRAN编译通过，但是运行不了
已经有19人回复
- 【原创】用pgi10.0编译vasp5.2
已经有12人回复
未岸亡灵
铁杆木虫 (著名写手)
暂时离开小木虫
- 应助: 622 (博士)
- 金币: 6519.3
- 散金: 1221
- 红花: 111
- 帖子: 1345
- 在线: 517.8小时
- 虫号: 1730773
- 注册: 2012-04-01
- 性别: GG
- 专业: 理论和计算化学
2楼2016-09-26 15:22:18
|
|
3楼2016-09-26 16:00:26
【答案】应助回帖
|
N,delta没定义，语句顺序问题： subroutine laplacian(f,lapl,N,delta) implicit none integer :: N,ix,iy,k real(8):: delta real(8),intent(in) :: f(N,N) ! function whose laplacian is to be taken real(8),intent(out) :: lapl(N,N) ! the laplacian integer,parameter :: order = 4 real(8),allocatable:: C( lapl = 0.0_8 allocate(c(order+order+1)) c(-order rder) = (/ & ! The coefficients of the laplacian...-1.785714d-3,2.539683d-2,-0.2d0,1.6d0, & -2.847222d0, & 1.6d0,-0.2d0,2.539683d-2,-1.785714d-3 /) do ix = 1,N do iy = 1,N lapl(ix,iy) = (0.0_8,0.0_8) do k = -order,order if(iy+k>=1 .and. iy+k<=N) lapl(ix,iy) = lapl(ix,iy) + c(k)*f(ix,iy+k) if(ix+k>=1 .and. ix+k<=N) lapl(ix,iy) = lapl(ix,iy) + c(k)*f(ix+k,iy) end do end do end do lapl = lapl/delta**2 end |
4楼2016-10-02 11:25:05
【答案】应助回帖
系统把"："和" "，以及"："与"o" 合并成表情符号了，在冒号后面加上空格就可避免。subroutine laplacian(f,lapl,N,delta) implicit none integer :: N,ix,iy,k real(8):: delta real(8),intent(in) :: f(N,N) ! function whose laplacian is to be taken real(8),intent(out) :: lapl(N,N) ! the laplacian integer,parameter :: order = 4 real(8),allocatable:: C(: ) lapl = 0.0_8 allocate(c(order+order+1)) c(-order: order) = (/ & ! The coefficients of the laplacian... -1.785714d-3,2.539683d-2,-0.2d0,1.6d0, & -2.847222d0, & 1.6d0,-0.2d0,2.539683d-2,-1.785714d-3 /) do ix = 1,N do iy = 1,N lapl(ix,iy) = (0.0_8,0.0_8) do k = -order,order if(iy+k>=1 .and. iy+k<=N) lapl(ix,iy) = lapl(ix,iy) + c(k)*f(ix,iy+k) if(ix+k>=1 .and. ix+k<=N) lapl(ix,iy) = lapl(ix,iy) + c(k)*f(ix+k,iy) end do end do end do lapl = lapl/delta**2 end |
5楼2016-10-02 11:39:58
20