diff --git a/src/fortran/burgers_generalised.F90 b/src/fortran/burgers_generalised.F90
index a983032..990485e 100644
--- a/src/fortran/burgers_generalised.F90
+++ b/src/fortran/burgers_generalised.F90
@@ -69,8 +69,8 @@ PROGRAM burgers_generalised
   CALL cmfe_ErrorHandlingModeSet(CMFE_ERRORS_TRAP_ERROR,Err)
 
   !Get the computational nodes information
-  CALL cmfe_ComputationalNumberOfNodesGet(NumberOfComputationalNodes,Err)
-  CALL cmfe_ComputationalNodeNumberGet(ComputationalNodeNumber,Err)
+  CALL cmfe_ComputationalNumberOfNodesGet(numberOfComputationalNodes,err)
+  CALL cmfe_ComputationalNodeNumberGet(computationalNodeNumber,err)
 
   !-----------------------------------------------------------------------------------------------------------
   ! PROBLEM CONTROL PANEL