/*Copyright (C) 1993, 1996 by Thomas Glen Smith.  All Rights Reserved.*/
/* invertb.h APL2 V1.0.0 **********************************************
* Included in invert to make the leftmost nonzero element (which is   *
* on the diagonal) 1 by dividing the row by the diagonal element.     *
**********************************************************************/
		if (*(t=(m+n+i))!=1.0) {
			w=*t;
			for (j=i;j<rows;j++)
				/* cols to left already 0 */
				*(m+n+j)/=w; /* scale */
			for (j=0;j<rows;j++)
				*(z+n+j)/=w; /* scale */
		}