Check parallel+openmp

.gitlab-ci.yml

@@ -56,3 +56,16 @@ build:intel:
     - make run-tests-pw-serial
     - make run-tests-cp-serial
     - rm -r /tmp/save
+
+build:intel-omp:
+  tags: [galileo]
+  script:
+    - module load intel/pe-xe-2017--binary intelmpi/2017--binary mkl/2017--binary
+    - ./configure --enable-openmp
+    - make pw cp
+    - export OMP_NUM_THREADS=2
+    - cd test-suite
+    - mkdir -p /tmp/save
+    - make run-tests-pw-parallel
+    - make run-tests-cp-parallel
+    - rm -r /tmp/save

UtilXlib/mp.f90

@@ -2313,9 +2313,10 @@ SUBROUTINE mp_count_nodes(num_nodes, color, key, group)
   ! node_found is a list of numtask logicals set to false.
   ! Starting from the first entry in all_node_names,
   ! we loop on the following elements and check if the same
-  ! value is found. During the outermost iteration, if the node name
-  ! has already been found the value is already set to .true. and nothing is done,
-  ! otherwise the corresponding value in  node_counter is set to .true.
+  ! value is found. In the outer loop, if the node name
+  ! has already been found, node_found is set to .true. and nothing is done,
+  ! otherwise all the entries in all_node_names will be checked and keys
+  ! and colors incremented accordingly.
   !
   ALLOCATE(character(len=max_nodename_len) :: current_name)
   ALLOCATE(node_found(numtask),color_list(numtask),key_list(numtask))