| 查看: 3701 | 回复: 9 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
[求助]
为什么Fortran调试无错误运行不出结果 已有2人参与
|
||
|
program main parameter n=600 double precision u(0:n),u1(0:n),x0,x1,x,t0,t1,h,dett,lambda,y(0:n) integer i,j x0=0.0d0 x1=6.0d0 t0=0.0d0 lambda=0.3d0 t1=0.5d0 h=0.01d0 dett=0.003d0 x=x0 !do i=0,n,1 !if(i<=250)then !y(i)=1.0 !else ! y(i)=0 !end if ! end do do i=0,n,1 if(x>=1 .and. x<=3) then u(i)=1.0d0 else u(i)=0.0d0 end if x=x+h end do open(1,file="yingfeng.dat"  t=t0+dett x=x0 do while(t<=t1) x=x0+h do j=1,n,1 u1(j)=u(j)-3*lambda*(u(j)-u(j-1)) if(abs(t-0.5)<=0.0001)then write(1,*)x,u1(j),y(j) end if x=x+h end do do j=1,n-1 u(j)=u1(j) u(0)=1 u(1)=0 end do t=t+dett end do stop end 求大神指导，为啥这个程序运行后yingfeng.dat文件里面啥数据都没有 |
回复此楼» 猜你喜欢
浙大物院表面物理课题组长期招收普博及直博学生
已经有259人回复
-
【征稿】Springer Nature热电专题 Discover Materials / Discover Chemistry
已经有47人回复
-
物理学I论文润色/翻译怎么收费?
已经有66人回复
-
25届硕士申请，材料计算方向
已经有2人回复
-
课题组招1-2名硕士
已经有1人回复
-
机时越来越贵之后，我把一部分 DFT 流程搬到了 AI 计算平台上
已经有0人回复
-
斯坦福大学与Elsevier世界前2%学者新排名查询
已经有1人回复
-
27申博推荐：南京航空航天大学国际前沿院光学方向招收博士生！
已经有19人回复
-
华南师范大学+双一流学科物理学+广东省杰青团队2027年博士招生+机器学习驱动材料设计
已经有1人回复
-
apl投稿状态
已经有2人回复
-
华南师范大学+双一流学科物理学+广东省杰青团队2027年博士招生+机器学习驱动材料设计
已经有1人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- Intel fortran与visual fortran
已经有11人回复
- FORTRAN
已经有0人回复
- Fortran
已经有7人回复
- 已经安装studio，为什么还是不能安装Fortran呢？
已经有0人回复
- 开始学习FORTRAN，结果杀毒软件总是认为生成的exe程序是木马，要求删掉，为什么呢？
已经有7人回复
- fortran
已经有4人回复
- Fortran77 代码调试中提示有Syntax error，但却不知道为什么出错。望高人指点！
已经有4人回复
- fortran循环求助
已经有3人回复
- Fortran 求解复数矩阵SVD时，用到cgesvd，结果与matlab不同，为什么？
已经有15人回复
- fortran里的intrisic function: precision()x结果表示什么意思
已经有5人回复
- fortran 程序修改后改回来，计算结果不同？？？为什么会这样
已经有2人回复
- data 给fortran 的二维数组如何命名？为什么老出错，解决送金币
已经有1人回复
- fortran输出结果为0
已经有3人回复
- fortran 程序有write和没有write两种情况计算的结果为什么会不一样?
已经有14人回复
- fortran输出求助
已经有6人回复
- 帮忙把公式转化为FORTRAN子程序
已经有6人回复
- fortran中计算数据写入文本为 NAN的问题
已经有4人回复
- 刚开始学Fortran 帮忙看一下这个程序 为什么算不出结果
已经有3人回复
- fortran断点
已经有2人回复
- fortran 运行问题
已经有2人回复
- 【求助】请问有什么软件可以将C语言代码转换为fortran吗？
已经有7人回复
bennett_14
木虫 (正式写手)
- 应助: 11 (小学生)
- 金币: 7204.8
- 红花: 4
- 沙发: 1
- 帖子: 932
- 在线: 421.5小时
- 虫号: 1073877
- 注册: 2010-08-13
- 性别: GG
- 专业: 计算机科学
6楼2016-01-03 07:16:55
bennett_14
木虫 (正式写手)
- 应助: 11 (小学生)
- 金币: 7204.8
- 红花: 4
- 沙发: 1
- 帖子: 932
- 在线: 421.5小时
- 虫号: 1073877
- 注册: 2010-08-13
- 性别: GG
- 专业: 计算机科学
2楼2016-01-02 16:09:59
bennett_14
木虫 (正式写手)
- 应助: 11 (小学生)
- 金币: 7204.8
- 红花: 4
- 沙发: 1
- 帖子: 932
- 在线: 421.5小时
- 虫号: 1073877
- 注册: 2010-08-13
- 性别: GG
- 专业: 计算机科学
3楼2016-01-02 16:35:26
4楼2016-01-02 17:51:51
