| 查看: 565 | 回复: 4 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
[求助]
公共参量设定（子程序里的i，j 怎样设置才能使用上面主程序传入的i，j 值呢）已有1人参与
|
||
|
各位，我这样写的程序，但是子程序里的i，j 怎样设置才能使用上面主程序传入的i，j 值呢。 !求解Y''(T)=-(i+j*cos(2*T))*Y program main use IMSL implicit none integer, parameter :: MXPARM = 50 integer, parameter :: N = 2 integer IDO, ISTEP, NOUT real PARAM(MXPARM), T, TEND, Y(N) real, parameter :: TOL = 1E-8 external FCN real :: i,j do i=0,1,0.001 do j=0,1.5,0.1 write(*,"(I2,I2)" i,j PARAM = 0 WRITE (*,"(' Time', 9X,'Y')" Y(1) = 0 ! Initial condition Y(2) = 2.0 T = 0.0 ! Y(T)=4.0中的时间T值 IDO = 1 do ISTEP=0,100,10 TEND = ISTEP call IVPRK (IDO, N, FCN, T, TEND, TOL, PARAM, Y) write (*,'(F5.1,F12.4)') T, Y end do call IVPRK (3, N, FCN, T, TEND, TOL, PARAM, Y) end do end do stop end program ! 计算微分方程式 ! YPRIME=Y'=f(t,y) subroutine FCN (N, T, Y, YPRIME) implicit none integer N real T, Y(N), YPRIME(N) real i,j !Y''(T)=-(i+j*cos(2*T))*Y YPRIME(2) =-(i+j*cos(2*T))*Y(1) return end subroutine |
回复此楼» 猜你喜欢
之前让一硕士生水了7个发明专利，现在这7个获批发明专利的维护费可从哪儿支出哈？
已经有3人回复
-
到新单位后，换了新的研究方向，没有团队，持续积累2区以上论文，能申请到面上吗
已经有12人回复
-
博士读完未来一定会好吗
已经有27人回复
-
投稿精细化工
已经有4人回复
-
高职单位投计算机相关的北核或SCI四区期刊推荐，求支招！
已经有4人回复
-
导师想让我从独立一作变成了共一第一
已经有9人回复
-
读博
已经有4人回复
-
JMPT 期刊投稿流程
已经有4人回复
-
心脉受损
已经有5人回复
-
Springer期刊投稿求助
已经有4人回复
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
4楼2014-12-21 03:55:28
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
5楼2014-12-21 03:57:21