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,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 |