get_normals Subroutine

public subroutine get_normals(lattice, normal)

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: lattice(:,:)
real(kind=wp), intent(out) :: normal(:,:)

Source Code

subroutine get_normals(lattice, normal)
   real(wp), intent(in) :: lattice(:, :)
   real(wp), intent(out) :: normal(:, :)

   integer :: itr
   do itr = 1, 3
      call crossproduct(lattice(:, mod(itr, 3) + 1), lattice(:, mod(itr + 1, 3) + 1), &
         & normal(:, itr))
   end do
end subroutine get_normals