anchor.diff:              endif
             enddo
           endif
  +
  +      else if( header_name == '!HEAT'  ) then
  +        c_heat = c_heat + 1
  +        call fstr_setup_HEAT( ctrl, c_heat, P )
   
         else if( header_name == '!WELD_LINE'  ) then
           fstrHEAT%WL_tot = fstrHEAT%WL_tot+1
  
positive.code:     rcode = fstr_ctrl_rewind( ctrl )
  
      c_istep    = 0
      c_material = 0
      c_output = 0
      c_contact  = 0
  
negative.code: 
        else if( header_name == '!HEAT' ) then
          c_heat = c_heat + 1
        else if( header_name == '!FIXTEMP' ) then
          c_fixtemp = c_fixtemp + 1
          call fstr_setup_FIXTEMP( ctrl, c_fixtemp, P )
  