ftp.nice.ch/pub/next/unix/audio/cmusic.bs.N.tar.gz#/src/cmusic/Testscores/tfp3.c

This is tfp3.c in view mode; [Download] [Up]

(pretty simple eh?)
next the test routine:

# include <stdio.h>

# define X	128
# define Y	64
# define Z	32

main() {
	extern float ***fp3alloc();
	float ***fp3;
	float val;
	register int i, j, k;

	if ((fp3 = fp3alloc(X, Y, Z)) == NULL) {
		printf("fp3alloc failed\n");
		exit(1);
	}

	for (i = 0; i < X; i++) {
		for (j = 0; j < Y; j++) {
			for (k = 0; k < Z; k++)
				fp3[i][j][k] = i*j*k;
		}
	}

	for (i = 0; i < X; i++) {
		for (j = 0; j < Y; j++) {
			for (k = 0; k < Z; k++)
				printf("%g\n", fp3[i][j][k]);
		}
	}

	exit(0);
}

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.