Gap heat generation (fricheat.f)

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