// ############################## START FUNC ############################################
// This is a help function which creates a 2D matrix in a simple fashion
  // Integers:                  n, m, first_dim, second_dim
  // X matrix:                  app_matrix


     function def_matrix(first_dim,second_dim, third_dim, set_all_to)
{
     var app_matrix = new Array(first_dim);
     var n=0;
     var m=0;
     var q=0;

  // ************ loop ***************
      if(second_dim>0){    // else, the call is better replaced with new Array...
        for(n=0;n<first_dim;n++){
        app_matrix[n]=new Array(second_dim);
         if(third_dim>0){
           for(m=0;m<second_dim;m++) app_matrix[n][m]=new Array(third_dim);
         }
        }
      }
  // ************ End loop ***********

// START IF
      if(set_all_to!="undefined"){
// ************ START LOOP (n) BELOW *********************
       for(n=0;n<first_dim;n++){
  // ************ One row loop ***************
         for(m=0;m<second_dim;m++){
           if(third_dim>0){
           for(q=0;q<third_dim;q++) app_matrix[n][m][q]=set_all_to;
           }
           else{
           app_matrix[n][m]=set_all_to;
           }
         }
  // ************ End one row loop ***********
       }
// ************ END OF LOOP (n) ABOVE ********************
      }
// END IF

     return app_matrix;

}
// ############################### end func ############################################