Fix for omp_lib (at least on perlmutter system)

2 years ago · c2dee7e151
1 changed files with 2 additions and 1 deletions
--- a/src/Need/mcfm_mpi.f
+++ b/src/Need/mcfm_mpi.f
@ -1,8 +1,9 @@
      program mcfm
+          use omp_lib
      implicit none
      include 'types.f'
      include 'mpif.h'
-      include "omp_lib.h"
+      !include "omp_lib.h"
      include 'mpicommon.f'
      integer ierr,mylen,support
      character (len=mpi_max_processor_name)::procname