#include "global.h"
int allocate()
{
 int i,y,test=GOOD;    /* allocate 2d-pointers */
   if(!(f=(double ***)calloc(9,sizeof(double **)))) 
     test=BAD;
     for(i=0;i<9;i++)
       {/* allocate row-pointers */
       if(!(f[i]=(double **)calloc(max_y,sizeof(double *))))
          test=BAD;/* allocate rows */
for(y=0;y<max_y;y++)

   }
}	
if(!(wall=(char **)calloc(max_y,sizeof(char *)))) 
test=BAD;	
for(y=0;y<max_y;y++)	
{		
i
return(GOOD);
}