Skip to content

Commit

Permalink
docstrings
Browse files Browse the repository at this point in the history
  • Loading branch information
wpbonelli committed Dec 13, 2023
1 parent 22f750d commit 130cb7b
Showing 1 changed file with 2 additions and 7 deletions.
9 changes: 2 additions & 7 deletions src/Utilities/GeomUtil.f90
Original file line number Diff line number Diff line change
Expand Up @@ -142,12 +142,7 @@ subroutine get_jk(nodenumber, ncpl, nlay, icpl, ilay)
end if
end subroutine get_jk

!> @brief Skew a 2D vector (as an array, in-place) along the x-axis.
!!
!! Skew matrix entries sxx (upper left), sxy (upper right), and syy
!! (lower right) must be provided, and a 2-item array of the vector
!! components to skew. The transform can optionally be inverted.
!<
!> @brief Skew a 2D vector along the x-axis.
pure function skew(vec, sxx, sxy, syy, invert) result(res)
! -- dummy
real(DP), intent(in) :: vec(2)
Expand Down Expand Up @@ -175,7 +170,7 @@ pure function skew(vec, sxx, sxy, syy, invert) result(res)
end if
end function skew

!> @brief Apply 3D translation and optional 2D rotation to coordinates.
!> @brief Apply a 3D translation and optional 2D rotation to coordinates.
subroutine transform_coords(xin, yin, zin, &
xout, yout, zout, &
xorigin, yorigin, zorigin, &
Expand Down

0 comments on commit 130cb7b

Please sign in to comment.