diff options
author | lanfer <lanfer@57bc7290-fb3d-4efd-a9b1-28e84cce6043> | 1999-09-08 13:02:26 +0000 |
---|---|---|
committer | lanfer <lanfer@57bc7290-fb3d-4efd-a9b1-28e84cce6043> | 1999-09-08 13:02:26 +0000 |
commit | 1a2ac5865ee0c641d3c919d1979a0a7b7c5a8df2 (patch) | |
tree | 7516795a562868411e593f030507c69eff88eca7 | |
parent | 634e2686cfe4d7b66ed5b24a862f6b08b3c29237 (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.c | 53 |
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); - -} - - |