Commit f9cbfd20 authored by Wenzhe Yu's avatar Wenzhe Yu 😎
Browse files

Add a missing deallocation

parent 677f7820
......@@ -2139,7 +2139,13 @@
stop 1
endif
deallocate(result_recv_request, stat=istat, errmsg=errorMessage)
if (istat .ne. 0) then
print *,"trans_ev_tridi_to_band_&
&MATH_DATATYPE&
&: error when deallocating result_recv_request "//errorMessage
stop 1
endif
deallocate(result_buffer, stat=istat, errmsg=errorMessage)
if (istat .ne. 0) then
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment