/* Copyright (C) 1993 by Thomas Glen Smith.  All Rights Reserved. */
/* scanfrnt APL2 V1.0.0 ************************************************
* Called by slashtrc. Derived function routine to handle scan.         *
***********************************************************************/
#define INCLUDES APLCB+APLCHDEF+APLDERIV+FUNCODES+FUNSTRUC+STDIO
#include "includes.h"
Aplcb scanfrnt(dp,left,rite)
Aplderiv dp; /* function describing derived function */
Aplcb left,rite; /* arguments */
{
     Axisdft; Cscan; Errstop; Nscan; Redscan;
     int axis;

     if (left) return(errstop(76,left,rite,NULL));
     axis = dp->deriv_axis_int;
     if (axis == -1) /* take default? */
          axis = axisdft((Codes *)(dp->deriv_op),rite);
     return(redscan(0,dp,rite,axis,cscan,nscan));
}