forrtl callbacks

forrtl: severe (59): list-directed I/O syntax error, unit -5, file Internal List-Directed Read

My question is, is there a way to optionally provide a callback to the forrtl library than will call a function that I provide?  Perhaps for each 'severity' level. For example, the severe error above,  I'd like it to call one of my functions and then carry on after my function returns.

Thanks in advance.

--ernie