| 查看: 3946 | 回复: 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 |
回复此楼» 猜你喜欢
博三一直没文章怎么办
已经有27人回复
-
“直接受聘正高专业技术职务”怎么理解
已经有9人回复
-
蹲一个男朋友
已经有29人回复
-
又见奇葩学生，可咋办
已经有26人回复
-
换导师
已经有14人回复
-
民办高校入职后稳定吗？
已经有16人回复
-
Nano-Micro Letters投稿可以用PDF上传吗
已经有3人回复
-
求推荐期刊
已经有4人回复
-
Angew拒稿重投经历大修返回又送审了
已经有5人回复
-
请问什么溶剂能溶解二氧化锰
已经有4人回复
sspa9999
至尊木虫 (著名写手)
- 应助: 14 (小学生)
- 金币: 16469.1
- 红花: 23
- 帖子: 1867
- 在线: 477.2小时
- 虫号: 3292914
- 注册: 2014-06-26
- 专业: 半导体电子器件
2楼2019-08-16 06:00:10
sspa9999
至尊木虫 (著名写手)
- 应助: 14 (小学生)
- 金币: 16469.1
- 红花: 23
- 帖子: 1867
- 在线: 477.2小时
- 虫号: 3292914
- 注册: 2014-06-26
- 专业: 半导体电子器件
4楼2019-08-16 22:09:28
5