From a5fdccfb974a62e3452e1f99aa7c27ac12d28c11 Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Wed, 17 Nov 2021 00:47:36 +0100 Subject: [PATCH] Portability --- src/ao_one_e_ints/pot_ao_pseudo_ints.irp.f | 4 ++-- src/utils/util.irp.f | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/ao_one_e_ints/pot_ao_pseudo_ints.irp.f b/src/ao_one_e_ints/pot_ao_pseudo_ints.irp.f index 24f43311..e75ca056 100644 --- a/src/ao_one_e_ints/pot_ao_pseudo_ints.irp.f +++ b/src/ao_one_e_ints/pot_ao_pseudo_ints.irp.f @@ -28,6 +28,7 @@ BEGIN_PROVIDER [ double precision, ao_pseudo_integrals, (ao_num,ao_num)] END_PROVIDER BEGIN_PROVIDER [ double precision, ao_pseudo_integrals_local, (ao_num,ao_num)] + use omp_lib implicit none BEGIN_DOC ! Local pseudo-potential @@ -42,7 +43,6 @@ BEGIN_PROVIDER [ double precision, ao_pseudo_integrals_local, (ao_num,ao_num)] double precision :: wall_1, wall_2, wall_0 integer :: thread_num - integer :: omp_get_thread_num double precision :: c double precision :: Z @@ -158,6 +158,7 @@ BEGIN_PROVIDER [ double precision, ao_pseudo_integrals_local, (ao_num,ao_num)] BEGIN_PROVIDER [ double precision, ao_pseudo_integrals_non_local, (ao_num,ao_num)] + use omp_lib implicit none BEGIN_DOC ! Non-local pseudo-potential @@ -169,7 +170,6 @@ BEGIN_PROVIDER [ double precision, ao_pseudo_integrals_local, (ao_num,ao_num)] integer :: power_A(3),power_B(3) integer :: i,j,k,l,m double precision :: Vloc, Vpseudo - integer :: omp_get_thread_num double precision :: wall_1, wall_2, wall_0 integer :: thread_num diff --git a/src/utils/util.irp.f b/src/utils/util.irp.f index cfb42fd1..ef846bdb 100644 --- a/src/utils/util.irp.f +++ b/src/utils/util.irp.f @@ -300,12 +300,12 @@ subroutine wall_time(t) end BEGIN_PROVIDER [ integer, nproc ] + use omp_lib implicit none BEGIN_DOC ! Number of current OpenMP threads END_DOC - integer :: omp_get_num_threads nproc = 1 !$OMP PARALLEL !$OMP MASTER