/* Copyright (C) 1993 by Thomas Glen Smith.  All Rights Reserved. */
/* axisdft APL2 V1.0.0 *************************************************
* Called by aplcomex, eachdyad, execdyak, execmonj, reducef, and       *
* scanfrnt to obtain the default axis.                                 *
***********************************************************************/
#define INCLUDES APLDERIV+APLCB+FUNSTRUC+FUNCODES
#include "includes.h"
int axisdft(cp,rite)
Codes *cp; /* See funstrud.h */
Aplcb rite; /* argument to which axis applies */
{
     Imax;
     extern int indxorg;
     int axis;

     if (FIRST & cp->funky_flags)
          axis = indxorg;
     else axis = imax(1,rite->aplrank) - (indxorg == 0);
     return(axis);
}