diff options
| author | LKedward <laurence.kedward@bristol.ac.uk> | 2020-11-28 16:32:10 +0000 |
|---|---|---|
| committer | LKedward <laurence.kedward@bristol.ac.uk> | 2020-11-28 16:32:10 +0000 |
| commit | d57c59128ebea30ba29febdf98e739ce12880865 (patch) | |
| tree | f29bf20956f6ef4cb782eadb8e34bd1ed5f45d11 | |
| parent | 96095dd912365b41662f59149a9d49044b38b09d (diff) | |
| download | fpm-d57c59128ebea30ba29febdf98e739ce12880865.tar.gz fpm-d57c59128ebea30ba29febdf98e739ce12880865.zip | |
Changes for review
Lowercase openmp pragmas
| -rw-r--r-- | fpm/src/fpm_backend.f90 | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/fpm/src/fpm_backend.f90 b/fpm/src/fpm_backend.f90 index ab8a27c..d0843a3 100644 --- a/fpm/src/fpm_backend.f90 +++ b/fpm/src/fpm_backend.f90 @@ -42,13 +42,12 @@ subroutine build_package(model) do i=1,size(schedule_ptr)-1 ! Build targets in schedule region i - !$OMP PARALLEL DO DEFAULT(SHARED) + !$omp parallel do default(shared) do j=schedule_ptr(i),(schedule_ptr(i+1)-1) call build_target(model,queue(j)%ptr) end do - !$OMP END PARALLEL DO end do @@ -56,7 +55,7 @@ end subroutine build_package !> Topologically sort a target for scheduling by -!> recursing over it's dependencies. +!> recursing over its dependencies. !> !> Checks disk-cached source hashes to determine if objects are !> up-to-date. Up-to-date sources are tagged as skipped. |