From a191ba21bdf4ea92d460212a25b389d5f4974cf4 Mon Sep 17 00:00:00 2001
From: Ben Hourahine <benjamin.hourahine@strath.ac.uk>
Date: Thu, 25 Sep 2025 21:19:11 +0100
Subject: [PATCH] Minor comments added

---
 src/types.F90 | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/types.F90 b/src/types.F90
index f1b7dcc..db26cc5 100644
--- a/src/types.F90
+++ b/src/types.F90
@@ -425,10 +425,13 @@ elemental subroutine initialize_dual_${label}$${bits}$(num, order)
 
   end subroutine initialize_dual_${label}$${bits}$
 
+  !> Returns the derivative order the dual number handles
   pure function dual_${name}$${bits}$_order(this) result(order_value)
 
+    !> Dual number
     class(dual_${name}$${bits}$), intent(in) :: this
 
+    !> Derivative order, starting from 0th order
     integer :: order_value
 
     order_value = size(this%f) - 1