al_cb_dbl.c
c99f2e455a51BayesImplementation

al_cb_dbl.c
View Options

			/**********************************************************/
			/* */
			/* FUNCTION: alloc_cubic_double */
			/* */
			/* PURPOSE: Allocates a cube of double in memory */
			/* */
			/* INPUT: nbr_lin = number of lines */
			/* nbr_col = number of columns */
			/* nbr_slice = number of slices */
			/* */
			/* RETURN: cube = pointer to matrix of pointers */
			/* of matix of pointers */
			/* (NULL if memory allocation failure) */
			/* */
			/* VERSION: 1.0 June 2012 */
			/* */
			/* AUTHOR: Vincent BINET */
			/* */
			/**********************************************************/
			#include <stdlib.h>
			#include "lt.h"

			/**********************************************************/
			/* Allocate an array of double values of size[nbr_lin][nbr_col][nbr_slices]
			*/
			double ***alloc_cubic_double(int nbr_lin,int nbr_col,int nbr_slice)
			{
			register int i, j, k;

			double *cube = (double ) malloc((unsigned) nbr_linsizeof(double **));
			if (cube != 0)
			{
			for (i=0; i<nbr_lin; i++)
			{
			cube[i] = (double *) malloc((unsigned) nbr_colsizeof(double *));
			if (cube !=0)
			{
			for (j=0;j<nbr_col;j++)
			{
			cube[i][j] = (double ) malloc((unsigned) nbr_slicesizeof(double));
			if (cube[i][j] ==0) cube=0;
			}
			}
			}
			}

			for (i=0; i<nbr_lin; i++)
			for (j=0; j<nbr_col; j++)
			for(k=0;k<nbr_slice;k++)
			cube[i][j][k]=0.0;

			return((double ***)cube);
			}