anchor.diff:  
       pairs: do iPair = 1,nPairs
         if (oldnames) then
  -        write(ofnameBuffer,'(a,i0)') "fort.",91-iPair
  +        write(ofnameBuffer,'(a,i0)')     "fort.",91-iPair
         else
           write(ofnameBuffer,'(a,a,i0.6)') ifname,'.',iPair
         end if
  -      !write(*,*)ofnameBuffer
  +
         call convertSTFpair(iPair, ifname, ofnameBuffer)
  +
       end do pairs
  +
     end subroutine convertSTFfile
   
   end module mod_splitSingletrack
  
positive.code:                ia,ifipa,b,c,d,e,f,g,h,p
          end if
        end do data1
      else if (ntwin.eq.2) then
        data2: do
          read(inUnit,end=530,err=531, iostat=iostat) &
               ia,ifipa,b,c,d,e,f,g,h,p, ilapa,b,c1,d1,e1,f1,g1,h1,p1
  
negative.code:     write(myOutUnit,'(a)') "Control reached an unreachable point?!?"
      stop 1
  
      !Error handling
  410 continue
      write(myOutUnit,'(a,i6)') "ERR while opening input file; iostat=",iostat
      stop 1
  
  411 continue
      write(myOutUnit,'(a,i6)') "ERR while opening output file; iostat=",iostat
      stop 1
  