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