包含基于射线追踪的任意复杂界面计算

tem3dfdtd/lib/checkparameters.f90

@@ -11,19 +11,26 @@ SUBROUTINE CHECKPARAMETERS
   USE CONSTANTPARAMETERS
   IMPLICIT NONE
   integer i
-  WRITE(10005,*)'请检查计算参数:    '
-  WRITE(10005,*)'矩形回线边长为：',SourceLength
-  WRITE(10005,*)'X,Y,Z方向的网格数分别为：',NX,NY,NZ
-  WRITE(10005,*)'线圈中心所处的网格为：   ',NXS,NYS,NZS
-  WRITE(10005,*)'输入的最大迭代次数为：         ',NSTOP
+  WRITE(10005,*)'Please check the calculation parameters:    '
+  WRITE(10005,*)'Side length of rectangular source loop:',SourceLength
+  WRITE(10005,*)'Number of grid cells in X, Y, Z directions:',NX,NY,NZ
+  WRITE(10005,*)'Grid indices of the coil center:   ',NXS,NYS,NZS
+  WRITE(10005,*)'Maximum number of iterations specified:         ',NSTOP
   WRITE(10005,*)
-  WRITE(10005,*)'X,Y,Z方向最小晶格尺寸分别为：'
+  WRITE(10005,*)'Minimum grid spacing in X, Y, Z directions:'
   WRITE(10005,*)'DELTA_X=',GridSize
   WRITE(10005,*)'DELTA_Y=',GridSize
   WRITE(10005,*)'DELTA_Z=',GridSize
-  WRITE(10005,*)'背景电导率',BACKGROUND_CONDUCTIVITY
+  WRITE(10005,*)'Background conductivity:',BACKGROUND_CONDUCTIVITY
   WRITE(10005,*)
-  WRITE(10005,*)'异常体参数'
+  IF(Logic_PML==1)THEN
+     WRITE(10005,*)'Boundary condition: CPML absorbing boundary'
+     WRITE(10005,*)'PML thickness in X, Y, Z directions:',PML_X1,PML_Y1,PML_Z1
+  ELSE
+     WRITE(10005,*)'Boundary condition: original Dirichlet (zero field) boundary'
+  ENDIF
+  WRITE(10005,*)
+  WRITE(10005,*)'Anomalous body parameters'
   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)