Skip to content
Snippets Groups Projects
Commit 20edc249 authored by s2006749's avatar s2006749
Browse files

fixed orientation issue

parent 9c35d496
No related branches found
No related tags found
1 merge request!1Adding ellip_utils
......@@ -45,7 +45,9 @@ subroutine geomcomplex_ellip(epsi,nxi,nxf,ny,nyi,nyf,nzi,nzf,dx,yp,dz,remp)
zeromach = ten*zeromach
is_inside=.false.
! orientation=[oriw, orii, orij, orik]
call NormalizeQuaternion(orientation)
do i = 1,nbody
call NormalizeQuaternion(orientation(i,:))
enddo
! shape=[shx, shy, shz]
! write(*,*) shape, 'SHAPE'
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment