anchor.diff:      rcode = fstr_ctrl_rewind( ctrl )
   
       c_istep    = 0
  +    c_heat     = 0
       c_material = 0
       c_output = 0
       c_contact  = 0
  
positive.code:             endif
            enddo
          endif
  
        else if( header_name == '!WELD_LINE'  ) then
          fstrHEAT%WL_tot = fstrHEAT%WL_tot+1
  
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 )
  