add rpath variables to cmake build

Author: jedwards4b

CMakeLists.txt

@@ -468,12 +468,16 @@ FILE(READ "${CMAKE_CURRENT_BINARY_DIR}/libpio.settings"
   LIBPIO_SETTINGS)
 MESSAGE(STATUS ${LIBPIO_SETTINGS})
 
+# Set RPATH for shared libraries
+set(CMAKE_MACOSX_RPATH 1)
+set(CMAKE_INSTALL_RPATH "${CMAKE_INSTALL_PREFIX}/lib")
+
 # Install libpio.settings file into same location
 # as the libraries.
 INSTALL(FILES "${PIO_BINARY_DIR}/libpio.settings"
   DESTINATION lib
   COMPONENT libraries)
-
+  
 #####
 # Create pio_meta.h include file.
 #####

src/clib/pio_internal.h

@@ -17,11 +17,13 @@
 #include <limits.h>
 #include <math.h>
 #include <netcdf.h>
-#ifdef _NETCDF4
-#include <netcdf_par.h>
+#ifdef PIO_HAS_PAR_FILTERS
 #include <netcdf_filter.h>
 #include <netcdf_meta.h>
 #endif
+#ifdef _NETCDF4
+#include <netcdf_par.h>
+#endif
 #ifdef _PNETCDF
 #include <pnetcdf.h>
 #endif

tests/performance/pioperformance.F90

@@ -149,7 +149,7 @@ subroutine pioperformancetest(filename, piotypes, mype, npe_base, &
     integer(kind=PIO_Offset_kind) :: maplen, gmaplen
     integer :: ndims
     integer, pointer :: gdims(:)
-    character(len=20) :: fname
+    character(len=24) :: fname
     type(var_desc_t) :: vari(nvars), varr(nvars), vard(nvars)
     type(iosystem_desc_t) :: iosystem
     integer :: stride, n
@@ -260,7 +260,7 @@ subroutine pioperformancetest(filename, piotypes, mype, npe_base, &
 
                 call pio_init(mype, comm, ntasks, 0, stride, PIO_REARR_SUBSET, iosystem)
 
-                write(fname, '(a,i1,a,i4.4,a,i1,a)') 'pioperf.',rearr,'-',ntasks,'-',iotype,'.nc'
+                write(fname, '(a,i1,a,i6.6,a,i1,a)') 'pioperf.',rearr,'-',ntasks,'-',iotype,'.nc'
 
                 ierr =  PIO_CreateFile(iosystem, File, iotype, trim(fname), mode)
 
@@ -357,7 +357,7 @@ subroutine pioperformancetest(filename, piotypes, mype, npe_base, &
                 end if
 ! Now the Read
 
-                write(fname, '(a,i1,a,i4.4,a,i1,a)') 'pioperf.',rearr,'-',ntasks,'-',iotype,'.nc'
+                write(fname, '(a,i1,a,i6.6,a,i1,a)') 'pioperf.',rearr,'-',ntasks,'-',iotype,'.nc'
 
                 ierr = PIO_OpenFile(iosystem, File, iotype, trim(fname), mode=PIO_NOWRITE);
                 do nv=1,nvars
@@ -396,7 +396,7 @@ subroutine pioperformancetest(filename, piotypes, mype, npe_base, &
 #ifdef VARINT
                       call PIO_setframe(File, vari(nv), frame)
                       call pio_read_darray(File, vari(nv), iodesc_i4, ifld_in(:,nv,frame), ierr)
-                      print *,__FILE__,__LINE__,size(ifld_in),ifld_in(1,1,1)
+!                      print *,__FILE__,__LINE__,size(ifld_in),ifld_in(1,1,1)
 #endif
 #ifdef VARREAL
                       call PIO_setframe(File, varr(nv), frame)