initial

tem3dfdtd/lib/checkparameters.f90

@@ -0,0 +1,32 @@
+!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 write out the readed calculation parameters for 
+    !errors or mistakes check.
+    !2016-10-30
+    
+SUBROUTINE CHECKPARAMETERS
+  USE CONSTANTPARAMETERS
+  IMPLICIT NONE
+  integer i
+  WRITE(10005,*)'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:    '
+  WRITE(10005,*)'<27><><EFBFBD>λ<EFBFBD><CEBB>߱߳<DFB1>Ϊ<EFBFBD><CEAA>',SourceLength
+  WRITE(10005,*)'X,Y,Z<><5A><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֱ<EFBFBD>Ϊ<EFBFBD><CEAA>',NX,NY,NZ
+  WRITE(10005,*)'<27><>Ȧ<EFBFBD><C8A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>   ',NXS,NYS,NZS
+  WRITE(10005,*)'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>         ',NSTOP
+  WRITE(10005,*)
+  WRITE(10005,*)'X,Y,Z<><5A><EFBFBD><EFBFBD><EFBFBD><EFBFBD>С<EFBFBD><D0A1><EFBFBD><EFBFBD><EFBFBD>ߴ<EFBFBD><DFB4>ֱ<EFBFBD>Ϊ<EFBFBD><CEAA>'
+  WRITE(10005,*)'DELTA_X=',GridSize
+  WRITE(10005,*)'DELTA_Y=',GridSize
+  WRITE(10005,*)'DELTA_Z=',GridSize
+  WRITE(10005,*)'<27><><EFBFBD><EFBFBD><EFBFBD>絼<EFBFBD><E7B5BC>',BACKGROUND_CONDUCTIVITY
+  WRITE(10005,*)
+  WRITE(10005,*)'<27>쳣<EFBFBD><ECB3A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
+  WRITE(10005,*)'NO    X1  X2    Y1  Y2   Z1   Z2    CONDUCTIVITY'
+  DO I=1,SIZE(TAR_X1)        
+     WRITE(10005,'(I3,6I5,ES15.6)')I,TAR_X1(I),TAR_X2(I),TAR_Y1(I),TAR_Y2(I),TAR_Z1(I),TAR_Z2(I),TAR_CONDUCTIVITY(I)
+  ENDDO
+  RETURN
+ENDSUBROUTINE CHECKPARAMETERS