/*Copyright (C) 1992, 1996 by Thomas Glen Smith.  All Rights Reserved.*/
/* ptrtoff APL2 V1.0.0 *************************************************
* Called by savfsfn to convert from ptr to offset.                     *
***********************************************************************/
#define INCLUDES 0
#include "includes.h"
int ptrtoff(array,element)
char *array; /* pointer to array containing element */
char *element; /* pointer to element within array */
{
	int offset;
	if (NULL == element)
		offset = -1;
	else offset = element - array;
	return(offset);
}