initial

tem3dfdtd/lib/zero.f90

@@ -0,0 +1,21 @@
+!Copyright (c) 2013 by tdem.org under guide of Xiu Li(lixiu@chd.edu.cn)
+!written by Huaifeng Sun(sunhuaifeng@gmail.com) and Xushan Lu(luxushan@gmail.com)
+!Code distribution @ tdem.org or sunhuaifeng.com
+    
+SUBROUTINE ZERO
+  USE CONSTANTPARAMETERS
+  USE ELECTROMAGNETIC_VARIABLES
+  USE RES_MODEL_PARAMETER
+  USE TIME_PARAMETER
+  USE OMP_LIB
+  !<21><><EFBFBD>ӳ<EFBFBD><D3B3>򽫼<EFBFBD><F2BDABBC><EFBFBD><EFBFBD>е<EFBFBD><D0B5><EFBFBD><EFBFBD>鸳0ֵ<30><D6B5><EFBFBD>г<EFBFBD>ʼ<EFBFBD><CABC>
+  IMPLICIT NONE
+  CCSIG=0.0D0 
+  EX=0.0D0
+  EY=0.0D0     
+  EZ=0.0D0      
+  HX=0.0D0
+  HY=0.0D0
+  HZ=0.0D0  
+  RETURN
+ENDSUBROUTINE ZERO