	cerr << "nn_points = " << nn_points << '\n';
	cerr << "nn_lines = " << nn_lines << '\n';
	cerr << "nn_triangles = " << nn_triangles << '\n';

	*aDB_Pt_Ind = nn_points + nn_lines * 2 + nn_triangles * 3 - 1;
	*aDB_Stat_Ind = nn_points + nn_lines + nn_triangles - 1;
	*aDB_Attr_Ind = nn_points * 3 + nn_lines * 4 + nn_triangles * 5;

	for (it=0; it< nn_triangles ; it++)
		{
		nn = it * 5;
		db_set_status	(Typ_TRI,nn,&DB_Stat[it]);
		}

	for (it=0; it< nn_lines ; it++)
		{
		nn = nn_triangles * 5 + it * 4;
		db_set_status	(Typ_LN,nn,&DB_Stat[it]);
		}

	for (it=0; it< nn_points ; it++)
		{
		nn = nn_triangles * 5 + nn_lines * 4 + it * 3;
		db_set_status	(Typ_PT,nn,&DB_Stat[it + nn_lines]);
		}
