Commit 18f94e489015297e531b5bb0a0686facc765d4b2

Authored by Chris Smartt
1 parent 43143546
Exists in proximity_effects

trap error if write_FH_input_file executable is not found

Showing 1 changed file with 3 additions and 3 deletions   Show diff stats
SRC/PUL_PARAMETER_CALCULATION/PUL_RL_FastHenry2.F90
@@ -79,7 +79,7 @@ IMPLICIT NONE @@ -79,7 +79,7 @@ IMPLICIT NONE
79 integer :: first_conductor,last_conductor,conductor 79 integer :: first_conductor,last_conductor,conductor
80 80
81 character(LEN=filename_length) :: command ! string used for running external commands 81 character(LEN=filename_length) :: command ! string used for running external commands
82 - integer :: exit_stat 82 + integer :: exit_stat,cmd_stat
83 83
84 ! Process_Zc variables: 84 ! Process_Zc variables:
85 85
@@ -299,7 +299,7 @@ integer :: ierr @@ -299,7 +299,7 @@ integer :: ierr
299 write(*,*)'COMMAND:' 299 write(*,*)'COMMAND:'
300 write(*,'(A)')command 300 write(*,'(A)')command
301 301
302 - CALL execute_command_line(command,EXITSTAT=exit_stat) 302 + CALL execute_command_line(command,EXITSTAT=exit_stat,CMDSTAT=cmd_stat)
303 303
304 ! Check that the FastHenry2 input file generated correctly 304 ! Check that the FastHenry2 input file generated correctly
305 if (exit_stat.NE.0) then 305 if (exit_stat.NE.0) then
@@ -322,7 +322,7 @@ integer :: ierr @@ -322,7 +322,7 @@ integer :: ierr
322 write(*,*)'COMMAND:' 322 write(*,*)'COMMAND:'
323 write(*,'(A)')command 323 write(*,'(A)')command
324 324
325 - CALL execute_command_line(command,EXITSTAT=exit_stat) 325 + CALL execute_command_line(command,EXITSTAT=exit_stat,CMDSTAT=cmd_stat)
326 326
327 ! Check that the fasthenry ran correctly 327 ! Check that the fasthenry ran correctly
328 if (exit_stat.NE.0) then 328 if (exit_stat.NE.0) then