| 查看: 3960 | 回复: 3 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
[求助]
Program received signal SIGSEGV: Segmentation fault - invalid memory reference已有1人参与
|
||
|
fortran程序错误，编译过程没提示错误，执行a.out时错误信息如下： Program received signal SIGSEGV: Segmentation fault - invalid memory reference. Backtrace for this error: #0 0x2B037CE82697 #1 0x2B037CE82CDE #2 0x2B037D91527F #3 0x2B037DA34CF4 #4 0x2B037CF51424 #5 0x2B037CF4FBD3 #6 0x400A8A in MAIN__ at massjd.f:? Segmentation fault (core dumped) 刚接触fortran语言，不太明白是什么问题，请各位大神帮忙看下 程序如下： program mass c implicit none include '../aek.h' c integer*4 i,j,k real*8 xc,zc,phi(nx,ny,nz),sumphi,sumx,sumz c c...open input and output file open (unit=11,file='mass.txt',form='formatted',status='new') open (unit=2,file='../movfields/0100.dat', > form='unformatted',status='old') c...initialize sumx=0d0 sumz=0d0 sumphi=0d0 do i=1,nx do k=1,nz c...location of (x,z) = (1d0*i-0.5d0,1d0*k-0.5d0) read(2) phi(i,j,k) if (phi(i,j,k) .gt. 0d0) then sumphi=sumphi+phi(i,j,k) sumx=sumx+phi(i,j,k)*(1d0*i-0.5d0) sumz=sumz+phi(i,j,k)*(1d0*k-0.5d0) endif enddo enddo xc=sumx/sumphi zc=sumz/sumphi write(11,*) xc,zc close (unit=2) close (unit=11) end |
回复此楼» 猜你喜欢
又想换工作
已经有9人回复
-
为什么有的影响因子高的期刊分区不高呢？
已经有10人回复
-
入职高校3年发表10+SCI，尽人事听天命
已经有3人回复
-
工材01送了吗？
已经有10人回复
-
被惯着的学生终究要吃大亏
已经有27人回复
-
24或25申博
已经有7人回复
-
讨论贴：好本子一定会被打招呼的淘汰吗
已经有9人回复
-
招聘催化、储能博士
已经有8人回复
-
Neurocomputing
外审结束
已经有6人回复
-
机理求助
已经有6人回复
sspa9999
至尊木虫 (著名写手)
- 应助: 14 (小学生)
- 金币: 16479.6
- 红花: 23
- 帖子: 1868
- 在线: 477.2小时
- 虫号: 3292914
- 注册: 2014-06-26
- 专业: 半导体电子器件
4楼2019-08-16 22:09:28
sspa9999
至尊木虫 (著名写手)
- 应助: 14 (小学生)
- 金币: 16479.6
- 红花: 23
- 帖子: 1868
- 在线: 477.2小时
- 虫号: 3292914
- 注册: 2014-06-26
- 专业: 半导体电子器件
2楼2019-08-16 06:00:10
3楼2019-08-16 13:48:28
50