/* Copyright (C) 1995 by Thomas Glen Smith.  All Rights Reserved. */
/* execqtzs APL2 V1.0.0 ************************************************
* Called from execqts and execqtz.                                     *
* System function quad_tz, time zone, returns double.                  *
***********************************************************************/
#define INCLUDES APLCB+TREE
#include "includes.h"
double execqtzs()
{
#include "quadext.h"
	Treenode; Value;
	Avlnode pav;
	Aplcb leaf;
	double zone=0e0;

	for(;;) {
		pav = treenode(quadtz);
		if (pav == NULL) break;
		leaf = pav->avlleaf;
		if (leaf == NULL) break;
		zone = value(leaf);
		break; /* Final break from for(;;) */
	}
	return(zone);
}