int Alloc_PML_Ex(double **K_Gx_a_1, double **K_Gx_b_1, double **K_Ex_a_1,
				  double **K_Ex_b_1, double **K_Ex_c_1, double **K_Ex_d_1,
				  double **K_Gx_a_2, double **K_Gx_b_2, double **K_Ex_a_2,
				  double **K_Ex_b_2, double **K_Ex_c_2, double **K_Ex_d_2,
				  long  nPML_x_1, long  nPML_y_1, long  nPML_z_1, long  nPML_x_2, 
				  long  nPML_y_2, long  nPML_z_2);

int Alloc_PML_Ey(double **K_Gy_a_1, double **K_Gy_b_1, double **K_Ey_a_1,
				  double **K_Ey_b_1, double **K_Ey_c_1, double **K_Ey_d_1,
				  double **K_Gy_a_2, double **K_Gy_b_2, double **K_Ey_a_2,
				  double **K_Ey_b_2, double **K_Ey_c_2, double **K_Ey_d_2,
				  long  nPML_x_1, long  nPML_y_1, long  nPML_z_1, long  nPML_x_2, 
				  long  nPML_y_2, long  nPML_z_2);

int Alloc_PML_Ez(double **K_Gz_a_1, double **K_Gz_b_1, double **K_Ez_a_1,
				  double **K_Ez_b_1, double **K_Ez_c_1, double **K_Ez_d_1,
				  double **K_Gz_a_2, double **K_Gz_b_2, double **K_Ez_a_2,
				  double **K_Ez_b_2, double **K_Ez_c_2, double **K_Ez_d_2,
				  long  nPML_x_1, long  nPML_y_1, long  nPML_z_1, long  nPML_x_2, 
				  long  nPML_y_2, long  nPML_z_2);

int Alloc_PML_Hx(double **K_Bx_a_1, double **K_Bx_b_1, double **K_Hx_a_1,
				  double **K_Hx_b_1, double **K_Hx_c_1, double **K_Hx_d_1,
				  double **K_Bx_a_2, double **K_Bx_b_2, double **K_Hx_a_2,
				  double **K_Hx_b_2, double **K_Hx_c_2, double **K_Hx_d_2,
				  long  nPML_x_1, long  nPML_y_1, long  nPML_z_1, long  nPML_x_2, 
				  long  nPML_y_2, long  nPML_z_2);

int Alloc_PML_Hy(double **K_By_a_1, double **K_By_b_1, double **K_Hy_a_1,
				  double **K_Hy_b_1, double **K_Hy_c_1, double **K_Hy_d_1,
				  double **K_By_a_2, double **K_By_b_2, double **K_Hy_a_2,
				  double **K_Hy_b_2, double **K_Hy_c_2, double **K_Hy_d_2,
				  long  nPML_x_1, long  nPML_y_1, long  nPML_z_1, long  nPML_x_2, 
				  long  nPML_y_2, long  nPML_z_2);

int Alloc_PML_Hz(double **K_Bz_a_1, double **K_Bz_b_1, double **K_Hz_a_1,
				  double **K_Hz_b_1, double **K_Hz_c_1, double **K_Hz_d_1,
				  double **K_Bz_a_2, double **K_Bz_b_2, double **K_Hz_a_2,
				  double **K_Hz_b_2, double **K_Hz_c_2, double **K_Hz_d_2,
				  long  nPML_x_1, long  nPML_y_1, long  nPML_z_1, long  nPML_x_2, 
				  long  nPML_y_2, long  nPML_z_2);