This routine has been contained in a subroutine.
It has been moved to a module and and renamed to
"single_hh_trafo_real" to make it's intention more clear