src/ape.c

   1 /* ape.c    2011-10-11 */
   2
   3 /* Copyright 2011 Emmanuel Paradis */
   4
   5 /* This file is part of the R-package `ape'. */
   6 /* See the file ../COPYING for licensing issues. */
   7
   8 #include "ape.h"
   9
  10 int give_index(int i, int j, int n)
  11 {
  12         if (i > j) return(DINDEX(j, i));
  13         else return(DINDEX(i, j));
  14 }