Commit 18f94e489015297e531b5bb0a0686facc765d4b2
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 | 79 | integer :: first_conductor,last_conductor,conductor |
80 | 80 | |
81 | 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 | 84 | ! Process_Zc variables: |
85 | 85 | |
... | ... | @@ -299,7 +299,7 @@ integer :: ierr |
299 | 299 | write(*,*)'COMMAND:' |
300 | 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 | 304 | ! Check that the FastHenry2 input file generated correctly |
305 | 305 | if (exit_stat.NE.0) then |
... | ... | @@ -322,7 +322,7 @@ integer :: ierr |
322 | 322 | write(*,*)'COMMAND:' |
323 | 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 | 327 | ! Check that the fasthenry ran correctly |
328 | 328 | if (exit_stat.NE.0) then | ... | ... |