From 55d9f439db5a1a00dd13dcd0598f7a43b384d370 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Markus=20M=C3=BCtzel?= <markus.muetzel@gmx.de>
Date: Sun, 26 Jan 2025 11:46:44 +0100
Subject: [PATCH] Fix typos in `!$omp` directive

---
 fem/src/NavierStokes.F90   | 8 ++++----
 fem/src/SParIterSolver.F90 | 2 +-
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/fem/src/NavierStokes.F90 b/fem/src/NavierStokes.F90
index 7e7103c510..4f7a457a9e 100644
--- a/fem/src/NavierStokes.F90
+++ b/fem/src/NavierStokes.F90
@@ -1086,7 +1086,7 @@ SUBROUTINE NavierStokesCompose  (                                            &
     ELSE IF ( Vms ) THEN
       DO i=1,dim
         DO p=1,NBasis
-          !omp simd
+          !$omp simd
           DO q=1,NBasis
             !M => MassMatrixTrabsp ( p:NBasis*c: NBasis, q:NBasis*c: NBasis )
             !M(dim+1,i) = M(dim+1,i) &
@@ -1096,7 +1096,7 @@ SUBROUTINE NavierStokesCompose  (                                            &
         END DO ! Q nbasis
         DO k=1,dim+1
           DO q=1,NBasis
-            !omp simd
+            !$omp simd
             DO p=1,NBasis
               !A => StiffMatrixTrabsp( p:NBasis*c: NBasis, q:NBasis*c: NBasis )
               !A(dim+1,k) = A(dim+1,k) &
@@ -1107,7 +1107,7 @@ SUBROUTINE NavierStokesCompose  (                                            &
         END DO ! k dim+1
         DO j=1,dim
           DO q=1,NBasis
-            !omp simd
+            !$omp simd
             DO p=1,NBasis
               !M => MassMatrixTrabsp ( p:NBasis*c: NBasis, q:NBasis*c: NBasis )
               !A => StiffMatrixTrabsp( p:NBasis*c: NBasis, q:NBasis*c: NBasis )
@@ -1157,7 +1157,7 @@ SUBROUTINE NavierStokesCompose  (                                            &
           END DO ! Q nbasis
           DO k=1,dim+1
             DO q=1,NBasis
-              !omp simd
+              !$omp simd
               DO p=1,NBasis
                 !A => StiffMatrixTrabsp( p:NBasis*c: NBasis, q:NBasis*c: NBasis )
                 !A(i,k) = A(i,k) &
diff --git a/fem/src/SParIterSolver.F90 b/fem/src/SParIterSolver.F90
index a17b8e69cc..b8de4d523a 100644
--- a/fem/src/SParIterSolver.F90
+++ b/fem/src/SParIterSolver.F90
@@ -2895,7 +2895,7 @@ SUBROUTINE SParABSMatrixVector( u,v,ipar )
       END DO
       v(i)=v(i)+rsum
     END DO
-!omp end parallel do
+!$omp end parallel do
   END IF