X-Git-Url: https://hackdaworld.org/gitweb/?a=blobdiff_plain;f=moldyn.c;h=41e022a7dfebb561d06bd6c1f64955d10cbf2112;hb=97f4b6d802dc13e511f30adbaa25a7892289b0ff;hp=415581c475fef1e8bb85b4fb8a1595135de3a88f;hpb=5680e09a2c7c8761d4c3eac199ee58ce20655b92;p=physik%2Fposic.git

diff --git a/moldyn.c b/moldyn.c
index 415581c..41e022a 100644
--- a/moldyn.c
+++ b/moldyn.c
@@ -558,6 +558,35 @@ int add_atom(t_moldyn *moldyn,int element,double mass,u8 brand,u8 attr,
 	return 0;
 }
 
+int del_atom(t_moldyn *moldyn,int tag) {
+
+	t_atom *new,*old;
+	int cnt;
+
+	old=moldyn->atom;
+
+	new=(t_atom *)malloc((moldyn->count-1)*sizeof(t_atom));
+	if(!new) {
+		perror("[moldyn]malloc (del atom)");
+		return -1;
+	}
+
+	for(cnt=0;cnt<tag;cnt++)
+		new[cnt]=old[cnt];
+	
+	for(cnt=tag+1;cnt<moldyn->count;cnt++) {
+		new[cnt-1]=old[cnt];
+		new[cnt-1].tag=cnt-1;
+	}
+
+	moldyn->count-=1;
+	moldyn->atom=new;
+
+	free(old);
+
+	return 0;
+}
+
 /* cubic init */
 int cubic_init(int a,int b,int c,double lc,t_atom *atom,t_3dvec *origin) {