diff --git a/src/fortran/simple_shear.F90 b/src/fortran/simple_shear.F90
index d7cdd3d..f00607e 100644
--- a/src/fortran/simple_shear.F90
+++ b/src/fortran/simple_shear.F90
@@ -111,8 +111,8 @@ PROGRAM SIMPLESHEAREXAMPLE
   CALL cmfe_OutputSetOn("SimpleShear",Err)
   
   !Get the number of computational nodes and this computational node number
-  CALL cmfe_ComputationalNumberOfNodesGet(NumberOfComputationalNodes,Err)
-  CALL cmfe_ComputationalNodeNumberGet(ComputationalNodeNumber,Err)
+  CALL cmfe_ComputationalNumberOfNodesGet(numberOfComputationalNodes,err)
+  CALL cmfe_ComputationalNodeNumberGet(computationalNodeNumber,err)
 
   NumberGlobalXElements=2
   NumberGlobalYElements=2