initial

tem3dfdtd/lib/CloseRecFiles.f90

@@ -0,0 +1,20 @@
+!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
+    
+!function description
+    !this suboutine is used to select and call some suboutine to close some 
+    !selected files.
+    !2016-10-30
+    
+subroutine CloseRecFiles
+  use constantparameters
+  implicit none
+  integer ii,jj
+  select case(RecFlag)
+  case('Hz')
+     call SubCloseRecFiles('Hz')
+  case('HE')
+     call SubCloseRecFiles('HE')
+  end select
+end subroutine CloseRecFiles