Address Sanitizer found issues with egyro_test

Signed-off-by: Steven Hahn <hahnse@ornl.gov>

CMakeLists.txt

@@ -102,7 +102,7 @@ target_link_libraries (korc_depends
                        INTERFACE
 
                        sanitizer
-                       $<$<BOOL:${OpenMP_Fortran_FOUND}>:OpenMP::OpenMP_Fortran>
+		       $<$<BOOL:${OpenMP_Fortran_FOUND}>:OpenMP::OpenMP_Fortran>
                        $<$<BOOL:${MPI_Fortran_FOUND}>:MPI::MPI_Fortran>
                        $<$<BOOL:${HDF5_FOUND}>:hdf5::hdf5_fortran>
                        $<$<BOOL:${USE_FIO}>:${FIO_LIBRARIES}>

build.sh

@@ -15,7 +15,7 @@ cmake -DCMAKE_BUILD_TYPE:String=$BUILD_TYPE \
       -DCMAKE_Fortran_FLAGS="-DHDF5_DOUBLE_PRESICION -malign-double -fconvert='big-endian'" \
       -DCMAKE_C_FLAGS="-malign-double"  \
       -DCMAKE_CXX_FLAGS="-malign-double" \
-      -DCMAKE_Fortran_FLAGS_DEBUG="-ffpe-trap=zero,overflow -fbacktrace -Werror" \
+      -DCMAKE_Fortran_FLAGS_DEBUG="-g3 -ffpe-trap=zero,overflow -fbacktrace" \
       -DCMAKE_C_FLAGS_DEBUG="-g3" \
       -DCMAKE_CXX_FLAGS_DEBUG="-g3" ../
 

src/korc_hpc.f90

@@ -366,7 +366,7 @@ function get_max_threads()
 
       integer :: get_max_threads
 #if defined(_OPENMP)
-      get_max_threads = OMP_GET_NUM_THREADS()
+      get_max_threads = OMP_GET_MAX_THREADS()
 #else
       get_max_threads = 1
 #endif
@@ -382,7 +382,7 @@ function get_thread_number()
      integer :: get_thread_number
 
 #if defined(_OPENMP)
-     get_thread_number = OMP_GET_NUM_PROCS()
+     get_thread_number = OMP_GET_THREAD_NUM()
 #else
      get_thread_number = 0
 #endif

src/korc_input.f90

@@ -718,8 +718,7 @@ subroutine read_namelist(params,infile,echo_in,outdir)
     !write(6,*) TRIM(magnetic_field_filename),len(TRIM(magnetic_field_filename))
 
     tmp=len(TRIM(magnetic_field_filename))
-    if (magnetic_field_filename(tmp-2:tmp).ne.'.h5'.and. &
-         magnetic_field_filename(tmp-5:tmp-5).ne.'.') then
+    if (magnetic_field_filename(tmp-2:tmp).ne.'.h5') then
        if(params%mpi_params%rank.eq.0) then
           write(6,*) &
                'Check that enough characters are allocated for&