/* Copyright (C) 1993 by Thomas Glen Smith.	All Rights Reserved. */
/* ravelck APL2 V1.0.0 *************************************************
* Called by ravel2 to determine if a given axis is within the proper   *
* bounds, according to the rank passed as argument 2.  The axis is     *
* expected to be relative 0.  Aplerr will be set to 9, and 1 will be   *
* returned if the axis is improper.  Otherwise 0 is returned.          *
***********************************************************************/
#define INCLUDES 0
#include "includes.h"
int ravelck(int axis, int rank)
{
	extern int aplerr;

	if (!(axis < 0 || axis > rank)) return(0);
     aplerr = 9;
     return(1);
}