Gap heat generation (fricheat.f)

This subroutine is used to define the gap heat generation across a contact pair (face-to-face penalty contact only), cf *GAP HEAT GENERATION. For the header and variable description the user is referred to the source code.