Merge pull request #636 from mmuetzel/openmp

Fix typos in `!$omp` directive
ElmerCSC · Jan 27, 2025 · e619fd3 · e619fd3
2 parents 3a9e607 + 55d9f43
commit e619fd3
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git 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
@@ -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
-Original file line number
+Diff line change
@@ Expand Up / @@ -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
@@ Expand Down @@