linter checked.

sissaschool · Sep 13, 2023 · f08b41a · f08b41a
1 parent 62ef5c5
commit f08b41a
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 8 deletions.
diff --git a/src/a_module_tests/test_upwinvp.f90 b/src/a_module_tests/test_upwinvp.f90
@@ -19,16 +19,16 @@ program test_upwinvp
     integer, parameter :: nel = 3, indt = 4
     real*8 :: psi(indt, nel, 2), ainv(nel), ainvn(nel), winv(nel, indt)
     integer :: i, j, k
-    real*8, parameter :: eps = 1.0e-10  ! A small value for numerical comparison
-    
+    real*8, parameter :: eps = 1.0e-10 ! A small value for numerical comparison
+
     yes_ontarget = .true.
-    
+
     ! Initialize test data
     winv = 0.0
     do i = 1, indt
         do j = 1, nel
             do k = 1, 2
-                psi(i, j, k) = i * j * k
+                psi(i, j, k) = i*j*k
             end do
         end do
     end do

diff --git a/src/a_module_tests/test_upwinvp_complex.f90 b/src/a_module_tests/test_upwinvp_complex.f90
@@ -19,16 +19,16 @@ program test_upwinvp_complex
     integer, parameter :: nel = 3, indt = 4
     complex*16 :: psi(indt, nel, 2), ainv(nel), ainvn(nel), winv(nel, indt), expected(nel, indt)
     integer :: i, j, k
-    real*8, parameter :: eps = 1.0e-10  ! A small value for numerical comparison
-    
+    real*8, parameter :: eps = 1.0e-10 ! A small value for numerical comparison
+
     yes_ontarget = .true.
-    
+
     ! Initialize test data
     winv = cmplx(0.0, 0.0)
     do i = 1, indt
         do j = 1, nel
             do k = 1, 2
-                psi(i, j, k) = cmplx(i * j * k, i * j * k)
+                psi(i, j, k) = cmplx(i*j*k, i*j*k)
             end do
         end do
     end do