move comment

ExtremeFLOW · Oct 28, 2024 · 6f027be · 6f027be
1 parent a6658f9
commit 6f027be
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/sem/speclib.f90 b/src/sem/speclib.f90
@@ -973,9 +973,10 @@ REAL(KIND=XP) FUNCTION PNLEG (Z,N)
     if (n.eq.0) pnleg = 1.
     RETURN
   end function PNLEG
-
+
+  !> Evaluate Legendre polynomials of degrees 0-N at point x
+  !! and store in array L
   subroutine legendre_poly(L, x, N)
-    ! Evaluate Legendre polynomials of degrees 0-N at point x
     real(kind=rp), intent(inout):: L(0:N)
     real(kind=rp) :: x
     integer :: N, j