From 459ff94855b2659de14ac2ac902b9658d28e19d5 Mon Sep 17 00:00:00 2001
From: Samo Penic <samo@CAE-linux.(none)>
Date: Mon, 21 Apr 2014 11:11:37 +0000
Subject: [PATCH] Added complex spherical harmonics.
---
src/vertex.c | 41 ++++++++---------------------------------
1 files changed, 8 insertions(+), 33 deletions(-)
diff --git a/src/vertex.c b/src/vertex.c
index 1993856..f733d49 100644
--- a/src/vertex.c
+++ b/src/vertex.c
@@ -6,6 +6,14 @@
#include "bond.h"
#include<stdio.h>
+ts_bool vertex_list_assign_id(ts_vertex_list *vlist, ts_uint id){
+ ts_uint i;
+ for(i=0;i<vlist->n;i++){
+ vlist->vtx[i]->id = id;
+ }
+ return TS_SUCCESS;
+}
+
ts_vertex_list *init_vertex_list(ts_uint N){
ts_int i;
ts_vertex_list *vlist=(ts_vertex_list *)malloc(sizeof(ts_vertex_list));
@@ -310,37 +318,4 @@
}
return vlist;
-}
-
-
-
-ts_bool vertex_taint(ts_vertex *vtx, ts_uint level){
- if(level==0){
- vtx->locked++;
- return TS_SUCCESS;
- }
- ts_uint i;
- for(i=0; i<vtx->neigh_no; i++){
- vertex_taint(vtx->neigh[i], level-1);
- }
- vtx->locked++;
- return TS_SUCCESS;
-}
-
-ts_bool vertex_untaint(ts_vertex *vtx, ts_uint level){
- if(level==0){
- vtx->locked--;
- return TS_SUCCESS;
- }
- ts_uint i;
- for(i=0; i<vtx->neigh_no; i++){
- vertex_untaint(vtx->neigh[i], level-1);
- }
- vtx->locked--;
- return TS_SUCCESS;
-}
-
-inline ts_bool vertex_tainted(ts_vertex *vtx, ts_uint level, ts_uint amount){
- if(vtx->locked>amount) return 1;
- else return 0;
}
--
Gitblit v1.9.3