diff --git a/SRC/PUL_PARAMETER_CALCULATION/PUL_RL_FastHenry2.F90 b/SRC/PUL_PARAMETER_CALCULATION/PUL_RL_FastHenry2.F90
index 65f7c8c..a29ffdd 100644
--- a/SRC/PUL_PARAMETER_CALCULATION/PUL_RL_FastHenry2.F90
+++ b/SRC/PUL_PARAMETER_CALCULATION/PUL_RL_FastHenry2.F90
@@ -79,7 +79,7 @@ IMPLICIT NONE
   integer :: first_conductor,last_conductor,conductor
   
   character(LEN=filename_length) :: command                  ! string used for running external commands 
-  integer :: exit_stat
+  integer :: exit_stat,cmd_stat
   
 ! Process_Zc variables:
 
@@ -299,7 +299,7 @@ integer :: ierr
   write(*,*)'COMMAND:'
   write(*,'(A)')command
   
-  CALL execute_command_line(command,EXITSTAT=exit_stat)
+  CALL execute_command_line(command,EXITSTAT=exit_stat,CMDSTAT=cmd_stat)
     
 ! Check that the FastHenry2 input file generated correctly
   if (exit_stat.NE.0) then  
@@ -322,7 +322,7 @@ integer :: ierr
   write(*,*)'COMMAND:'
   write(*,'(A)')command
   
-  CALL execute_command_line(command,EXITSTAT=exit_stat)
+  CALL execute_command_line(command,EXITSTAT=exit_stat,CMDSTAT=cmd_stat)
     
 ! Check that the fasthenry ran correctly
   if (exit_stat.NE.0) then  
--
libgit2 0.21.2