aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorlanfer <lanfer@57bc7290-fb3d-4efd-a9b1-28e84cce6043>1999-09-08 13:02:26 +0000
committerlanfer <lanfer@57bc7290-fb3d-4efd-a9b1-28e84cce6043>1999-09-08 13:02:26 +0000
commit1a2ac5865ee0c641d3c919d1979a0a7b7c5a8df2 (patch)
tree7516795a562868411e593f030507c69eff88eca7
parent634e2686cfe4d7b66ed5b24a862f6b08b3c29237 (diff)
removed file
git-svn-id: http://svn.cactuscode.org/arrangements/CactusElliptic/EllBase/trunk@5 57bc7290-fb3d-4efd-a9b1-28e84cce6043
-rw-r--r--src/EllBase_Register.c53
1 files changed, 0 insertions, 53 deletions
diff --git a/src/EllBase_Register.c b/src/EllBase_Register.c
deleted file mode 100644
index 5bbeeed..0000000
--- a/src/EllBase_Register.c
+++ /dev/null
@@ -1,53 +0,0 @@
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-
-#include "cctk.h"
-#include "cctk_parameters.h"
-
-#include "StoreNamedData.h"
-#include "cctk_FortranString.h"
-
-
-
-static pNamedData *EqTypeDB = NULL;
-static pNamedData *EllSolverDB = NULL;
-
-
-void Ell_RegisterEqType( void (*function),const char *eqname) {
- int res;
- char *message;
- message = (char *)malloc( (128+strlen(name))*sizeof(char) );
-
- res=StoreNamedData(&EquType, eqname, (void *)function);
-
- if (res==1) {
- sprintf(message,"Memory failure while registering equation type %s\n",equname);
- CCTK_WARN(0,message);
- if (message) free(message);
- }
- else {
- sprintf(message,"Equation type >%s< registered",name);
- CCTK_INFO(message);
- if (message) free(message);
- }
-}
-
-
-
-void Ell_RegisterSolver(void (*solver_func),
- const char *sname, const char *eqname) {
- int res;
- char *message;
- void (*function_C)(void *, const char *);
-
- message = (char *)malloc( (128+strlen(name))*sizeof(char) );
-
- function_C = (void (*)) GetNamedData(EquTypeDB, eqname);
- if (!function_C) CCTK_WARN(0,"Cannot get Equation Type");
-
- function(sname,solver_func);
-
-}
-
-