| 34 |
#include "../utility_lattice_reduction/super_basis3.hh" |
#include "../utility_lattice_reduction/super_basis3.hh" |
| 35 |
#include "../utility_func/lattice_constant.hh" |
#include "../utility_func/lattice_constant.hh" |
| 36 |
#include "../utility_func/zmath.hh" |
#include "../utility_func/zmath.hh" |
| 37 |
|
#include "../utility_data_structure/FracMat.hh" |
| 38 |
#include "../utility_data_structure/Node3.hh" |
#include "../utility_data_structure/Node3.hh" |
| 39 |
#include "../utility_data_structure/FracMat.hh" |
#include "../utility_data_structure/FracMat.hh" |
| 40 |
|
|
| 746 |
S2_red0 = transform_sym_matrix(inv_mat.mat, put_sym_matrix_size4to3(S_super_obtuse) ) / (inv_mat.denom*inv_mat.denom); |
S2_red0 = transform_sym_matrix(inv_mat.mat, put_sym_matrix_size4to3(S_super_obtuse) ) / (inv_mat.denom*inv_mat.denom); |
| 747 |
S2_red = S2_red0; |
S2_red = S2_red0; |
| 748 |
|
|
| 749 |
cal_average_crystal_system(rhombohedral_type.enumPointGroup(), S2_red); |
cal_average_crystal_system(rhombohedral_type.enumLaueGroup(), S2_red); |
| 750 |
if( !check_equiv_m(S2_red0, S2_red, cv2) ) continue; |
if( !check_equiv_m(S2_red0, S2_red, cv2) ) continue; |
| 751 |
|
|
| 752 |
tmat = put_transform_matrix_row3to4(it->first); |
tmat = put_transform_matrix_row3to4(it->first); |
| 778 |
S2_red0 = transform_sym_matrix(inv_mat.mat, put_sym_matrix_size4to3(S_super_obtuse) ) / (inv_mat.denom*inv_mat.denom); |
S2_red0 = transform_sym_matrix(inv_mat.mat, put_sym_matrix_size4to3(S_super_obtuse) ) / (inv_mat.denom*inv_mat.denom); |
| 779 |
S2_red = S2_red0; |
S2_red = S2_red0; |
| 780 |
|
|
| 781 |
cal_average_crystal_system(monoclinic_b_type.enumPointGroup(), S2_red); |
cal_average_crystal_system(monoclinic_b_type.enumLaueGroup(), S2_red); |
| 782 |
|
|
| 783 |
if( !check_equiv_m(S2_red0, S2_red, cv2) ) continue; |
if( !check_equiv_m(S2_red0, S2_red, cv2) ) continue; |
| 784 |
|
|