fdtd2.f90

来自「求目标散射体建模」· F90 代码 · 共 19 行

!------------ FDTD计算程序-----------------
real Ez(-160:160,-160:160)
real Hx(-160:160,-160:160)
real Hy(-160:159,-160:160)
real Ein(-800:800)
real Hin(-800:799)
integer IncidentStart,IncidentEnd,Isource
real EBin(4)
real ECB(-150:150,4)
real HCB(-150:150,4)
real EAB(-160:160,4)
real EAC(4,2,0:1)
integer ob(-150:150,-150:150)
real FE1(0:10,0:10)
real FE2(0:10,0:10)
real FH1(0:10,0:10)
real FH2(0:10,0:10)
integer TEMflag