FKAP uses parameter TR_MAX to allocate arrays. If the number of input traces
in an ensemble exceeds this, the job will abort with a message such as:
+++++ Processing errors occurred +++++
Processing prematurely terminated.
Then the user must figure out what went wrong. So the subroutine
fkap_put_trace() needs an error message before setting FATAL_ERROR.
Something like this:
if( obj%ncount > obj%tr_max ) then
write(lu_print,*) '+++++ FKAP: traces per panel exceeds TR_MAX +++++'
ntr = FATAL_ERROR
call fkap_wrapup( obj )
return
endif
There are other error conditions which print no message, but they are
less likely to happen.