store_it.f
来自「a 2-d FDTD program using PML」· F 代码 · 共 12 行
F
12 行
*--------------------------------------------------------------------* subroutine store_it(a) include 'xfdtmcom.f' real a(nx,ny) do i=1,nx do j=1,ny ezs(i,j)=a(i,j) end do end do return end
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?