fix comment signs

Author: cval26

src/fftpack_utils.f90

@@ -13,20 +13,20 @@ pure module function fftfreq(n) result(out)
         out(1) = 0
         if (n == 1) return
 
-        if (mod(n, 2) == 0) then  !> n even, smallest n = 2
+        if (mod(n, 2) == 0) then  ! n even, smallest n = 2
             do i = 2, n/2
                 out(i) = i-1
             end do
             out(n/2+1) = -n/2
-            do i = n/2+2, n  !> only enters if n/2+2 <= n
+            do i = n/2+2, n  ! only enters if n/2+2 <= n
                 out(i) = out(i-1) + 1
             end do
-        else  !> n odd, smallest n = 3
+        else  ! n odd, smallest n = 3
             do i = 2, n/2+1
                 out(i) = i-1
             end do
             out(n/2+2) = -out(n/2+1)
-            do i = n/2+3, n  !> only enters if n/2+3 <= n
+            do i = n/2+3, n  ! only enters if n/2+3 <= n
                 out(i) = out(i-1) + 1
             end do
         end if
@@ -43,13 +43,13 @@ pure module function rfftfreq(n) result(out)
         out(1) = 0
         if (n == 1) return
 
-        if (mod(n,2) == 0) then  !> n even, smallest n = 2
+        if (mod(n,2) == 0) then  ! n even, smallest n = 2
             do i = 2, n-2, 2
                 out(i) = out(i-1) + 1
                 out(i+1) = out(i)
             end do
             out(n) = -n/2
-        else  !> n odd, smallest n = 3
+        else  ! n odd, smallest n = 3
             do i = 2, n-1, 2
                 out(i) = out(i-1) + 1
                 out(i+1) = out(i)

test/test_fftpack_utils.f90

@@ -100,8 +100,8 @@ subroutine test_fftfreq_2(error)
         type(error_type), allocatable, intent(out) :: error
 
         real(rk), parameter :: tol = 1.0e-12_rk
-        real(rk), parameter :: twopi = 8*atan(1.0_rk)  !> 2*pi
-        complex(rk), parameter :: imu = (0,1)  !> imaginary unit
+        real(rk), parameter :: twopi = 8*atan(1.0_rk)  ! 2*pi
+        complex(rk), parameter :: imu = (0,1)  ! imaginary unit
 
         integer, parameter :: n = 128
         integer :: i
@@ -110,11 +110,11 @@ subroutine test_fftfreq_2(error)
 
         do  i = 1, n
             xvec(i) = cos(twopi*(i-1)/n)
-            xtrue(i) = -sin(twopi*(i-1)/n)  !> derivative in physical space
+            xtrue(i) = -sin(twopi*(i-1)/n)  ! derivative in physical space
         end do
 
         xfou = fft(xvec)/n
-        xfou = imu*fftfreq(n)*xfou  !> derivative in Fourier space
+        xfou = imu*fftfreq(n)*xfou  ! derivative in Fourier space
         xvec = ifft(xfou)
         call check(error, maxval(abs(xvec-xtrue)) < tol, &
                     "maxval(abs(xvec-xtrue)) < tol failed.")
@@ -125,8 +125,8 @@ subroutine test_fftfreq_3(error)
         type(error_type), allocatable, intent(out) :: error
 
         real(rk), parameter :: tol = 1.0e-12_rk
-        real(rk), parameter :: twopi = 8*atan(1.0_rk)  !> 2*pi
-        complex(rk), parameter :: imu = (0,1)  !> imaginary unit
+        real(rk), parameter :: twopi = 8*atan(1.0_rk)  ! 2*pi
+        complex(rk), parameter :: imu = (0,1)  ! imaginary unit
 
         integer, parameter :: n = 135
         integer :: i
@@ -135,11 +135,11 @@ subroutine test_fftfreq_3(error)
 
         do  i = 1, n
             xvec(i) = cos(twopi*(i-1)/n)
-            xtrue(i) = -sin(twopi*(i-1)/n)  !> derivative in physical space
+            xtrue(i) = -sin(twopi*(i-1)/n)  ! derivative in physical space
         end do
 
         xfou = fft(xvec)/n
-        xfou = imu*fftfreq(n)*xfou  !> derivative in Fourier space
+        xfou = imu*fftfreq(n)*xfou  ! derivative in Fourier space
         xvec = ifft(xfou)
         call check(error, maxval(abs(xvec-xtrue)) < tol, &
                     "maxval(abs(xvec-xtrue)) < tol failed.")