diff --git a/src/opt_disl.f90 b/src/opt_disl.f90 index 1833daa..e3f7aa9 100644 --- a/src/opt_disl.f90 +++ b/src/opt_disl.f90 @@ -267,7 +267,6 @@ module opt_disl call matrix_inverse(ss_ori, 3, ss_inv) !Apply the rotation - print *, ss_inv disp_transform = matmul(sub_box_ori(:,:,i), ss_inv) call matrix_inverse(disp_transform,3,inv_transform)