Fix documentation.

gha3mi · Jun 28, 2024 · f59ff9c · f59ff9c
1 parent d9a6d11
commit f59ff9c
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 6 deletions.
diff --git a/src/forcad_nurbs_curve.f90 b/src/forcad_nurbs_curve.f90
@@ -1927,8 +1927,8 @@ pure subroutine ansatz(this, ie, ig, Tgc, dTgc_dXg, dL)
         type(nurbs_curve) :: th, th_e
         real(rk), allocatable :: dTtth_dXksi(:), Ttth(:), dTgc_dXt(:), dXg_dXt(:)
         real(rk) :: Xt, dXt_dXksi
-        real(rk), allocatable :: dXg_dXksi(:) !> Jacobian matrix
-        real(rk) :: det_dXg_dXksi !> Determinant of the Jacobian matrix
+        real(rk), allocatable :: dXg_dXksi(:) !! Jacobian matrix
+        real(rk) :: det_dXg_dXksi !! Determinant of the Jacobian matrix
 
         call gauss_leg([0.0_rk, 1.0_rk], this%degree, Xksi, Wksi)
 

diff --git a/src/forcad_nurbs_surface.f90 b/src/forcad_nurbs_surface.f90
@@ -2550,8 +2550,8 @@ pure subroutine ansatz(this, ie, ig, Tgc, dTgc_dXg, dA)
         integer, allocatable :: elem_th(:,:), elem_c(:,:), elem_ce(:)
         type(nurbs_surface) :: th, th_e
         real(rk), allocatable :: dTtth_dXksi(:,:), Ttth(:), dTgc_dXt(:,:), Xt(:), dXt_dXksi(:,:), dXg_dXt(:,:)
-        real(rk), allocatable :: dXg_dXksi(:,:) !> Jacobian matrix
-        real(rk) :: det_dXg_dXksi !> Determinant of the Jacobian matrix
+        real(rk), allocatable :: dXg_dXksi(:,:) !! Jacobian matrix
+        real(rk) :: det_dXg_dXksi !! Determinant of the Jacobian matrix
 
         call gauss_leg([0.0_rk, 1.0_rk], [0.0_rk, 1.0_rk], this%degree, Xksi, Wksi)
 

diff --git a/src/forcad_nurbs_volume.f90 b/src/forcad_nurbs_volume.f90
@@ -3280,8 +3280,8 @@ pure subroutine ansatz(this, ie, ig, Tgc, dTgc_dXg, dV)
         integer, allocatable :: elem_th(:,:), elem_c(:,:), elem_ce(:)
         type(nurbs_volume) :: th, th_e
         real(rk), allocatable :: dTtth_dXksi(:,:), Ttth(:), dTgc_dXt(:,:), Xt(:), dXt_dXksi(:,:), dXg_dXt(:,:)
-        real(rk), allocatable :: dXg_dXksi(:,:) !> Jacobian matrix
-        real(rk) :: det_dXg_dXksi !> Determinant of the Jacobian matrix
+        real(rk), allocatable :: dXg_dXksi(:,:) !! Jacobian matrix
+        real(rk) :: det_dXg_dXksi !! Determinant of the Jacobian matrix
 
         call gauss_leg([0.0_rk, 1.0_rk], [0.0_rk, 1.0_rk], [0.0_rk, 1.0_rk], this%degree, Xksi, Wksi)