Change mod_fluka error handling, fix DA version #1028
Conversation
source/mod_fluka.f90
Outdated
| write(lerr,'(A)')'FLUKA> ERROR -1 in Fluka communication returned by fluka_send_receive...' | ||
| write(fluka_log_unit,'(A)')'# Error -1 in Fluka communication returned by fluka_send_receive...' | ||
| if (ret.lt.0) then | ||
| write(lerr,'(A,i4,A)')'FLUKA> ERROR ', ret, ' in Fluka communication returned by fluka_send_receive...' |
There was a problem hiding this comment.
Why not use format i0 so there is no chance of ****?
There was a problem hiding this comment.
I agree with you. @vkbo - even though I don't think we will have many error codes, but it is better to set it once correctly forever.
| #include "include/dalin3.f90" | ||
| #include "include/dalin4.f90" | ||
| #include "include/dalin5.f90" | ||
| else |
There was a problem hiding this comment.
"Thanks, God, it's Christmas!" (the Queen)
source/mod_fluka.f90
Outdated
| write(lerr,'(A)')'FLUKA> ERROR -1 in Fluka communication returned by fluka_send_receive...' | ||
| write(fluka_log_unit,'(A)')'# Error -1 in Fluka communication returned by fluka_send_receive...' | ||
| if (ret.lt.0) then | ||
| write(lerr,'(A,i4,A)')'FLUKA> ERROR ', ret, ' in Fluka communication returned by fluka_send_receive...' |
There was a problem hiding this comment.
I agree with you. @vkbo - even though I don't think we will have many error codes, but it is better to set it once correctly forever.
source/mod_fluka.f90
Outdated
| n = ntsendeoc(fluka_cid) | ||
| if(n.lt.0) then | ||
| write(fluka_log_unit,*) "# FlukaIO error: Error sending End of Computation" | ||
| write(fluka_log_unit,*) "# FlukaIO error: ", n, " - Error sending End of Computation" |
There was a problem hiding this comment.
write(fluka_log_unit,'(A,i0,A)')
source/mod_fluka.f90
Outdated
| if(n.eq.-1) then | ||
| write(fluka_log_unit,*) "# FlukaIO error: Server timed out while waiting End of Computation" | ||
| if(n.lt.0) then | ||
| write(fluka_log_unit,*) "# FlukaIO error: ", n, " - Server timed out while waiting End of Computation" |
There was a problem hiding this comment.
write(fluka_log_unit,'(A,i0,A)')
source/mod_fluka.f90
Outdated
| if(n.eq.-1) then | ||
| write(fluka_log_unit,*) "# FlukaIO error: Error sending Insertion Point" | ||
| if(n.lt.0) then | ||
| write(fluka_log_unit,*) "# FlukaIO error: ", n, " - Error sending Insertion Point" |
There was a problem hiding this comment.
write(fluka_log_unit,'(A,i0,A)')
source/mod_fluka.f90
Outdated
|
|
||
| if(n.lt.0) then | ||
| write(fluka_log_unit,*) "# FlukaIO error: Error sending End of Batch" | ||
| write(fluka_log_unit,*) "# FlukaIO error: ", n, " - Error sending End of Batch" |
There was a problem hiding this comment.
write(fluka_log_unit,'(A,i0,A)')
source/mod_fluka.f90
Outdated
| if(n.eq.-1) then | ||
| write(fluka_log_unit,*) "# FlukaIO error: Server timed out while waiting for message" | ||
| if(n.lt.0) then | ||
| write(fluka_log_unit,*) "# FlukaIO error: ", n ," - Server timed out while waiting for message" |
There was a problem hiding this comment.
write(fluka_log_unit,'(A,i0,A)')
source/mod_fluka.f90
Outdated
| write(fluka_log_unit,'(A)')'# Error -1 in Fluka communication returned by fluka_send_receive...' | ||
| if (ret.lt.0) then | ||
| write(lerr,'(A,i4,A)')'FLUKA> ERROR ', ret, ' in Fluka communication returned by fluka_send_receive...' | ||
| write(fluka_log_unit,'(A,i4,A)')'# Error ', ret, ' in Fluka communication returned by fluka_send_receive...' |
There was a problem hiding this comment.
write(fluka_log_unit,'(A,i0,A)')
source/mod_fluka.f90
Outdated
| write(fluka_log_unit,'(A)')'# Error -1 in Fluka communication returned by fluka_send...' | ||
| if (ret.lt.0) then | ||
| write(lerr,'(A,i4,A)')'FLUKA> ERROR ', ret,' in Fluka communication returned by fluka_send...' | ||
| write(fluka_log_unit,'(A,i4,A)')'# Error ', ret, ' in Fluka communication returned by fluka_send...' |
There was a problem hiding this comment.
write(fluka_log_unit,'(A,i0,A)')
source/mod_fluka.f90
Outdated
| write(fluka_log_unit,'(A)')'# Error -1 in Fluka communication returned by fluka_receive...' | ||
| if (ret.lt.0) then | ||
| write(lerr,'(A,i4,A)')'FLUKA> ERROR ', ret, ' in Fluka communication returned by fluka_receive...' | ||
| write(fluka_log_unit,'(A,i4,A)')'# Error ',ret, ' in Fluka communication returned by fluka_receive...' |
There was a problem hiding this comment.
write(fluka_log_unit,'(A,i0,A)')
No description provided.