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