|
|
@ -267,7 +267,6 @@ module opt_disl
|
|
|
|
call matrix_inverse(ss_ori, 3, ss_inv)
|
|
|
|
call matrix_inverse(ss_ori, 3, ss_inv)
|
|
|
|
|
|
|
|
|
|
|
|
!Apply the rotation
|
|
|
|
!Apply the rotation
|
|
|
|
print *, ss_inv
|
|
|
|
|
|
|
|
disp_transform = matmul(sub_box_ori(:,:,i), ss_inv)
|
|
|
|
disp_transform = matmul(sub_box_ori(:,:,i), ss_inv)
|
|
|
|
call matrix_inverse(disp_transform,3,inv_transform)
|
|
|
|
call matrix_inverse(disp_transform,3,inv_transform)
|
|
|
|
|
|
|
|
|
|
|
|