anchor.diff:      write(myOutUnit,'(a)') "Control reached an unreachable point?!?"
       stop 1
   
  -    !close (inUnit)
  -    !close (outUnit)
  -    return
       !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
  
positive.code: 
      integer nPairs
      integer iPair
      character(len=100) ofnameBuffer !TODO: More inteligent scaling, or at least a check
  
      nPairs = numSTFpairs(ifname)
  
  
negative.code: 
      pairs: do iPair = 1,nPairs
        if (oldnames) then
          write(ofnameBuffer,'(a,i0)')     "fort.",91-iPair
        else
          write(ofnameBuffer,'(a,a,i0.6)') ifname,'.',iPair
        end if
  
        call convertSTFpair(iPair, ifname, ofnameBuffer)
  
      end do pairs
  
    end subroutine convertSTFfile
  
  end module mod_splitSingletrack
  