From 1a2ac5865ee0c641d3c919d1979a0a7b7c5a8df2 Mon Sep 17 00:00:00 2001 From: lanfer Date: Wed, 8 Sep 1999 13:02:26 +0000 Subject: removed file git-svn-id: http://svn.cactuscode.org/arrangements/CactusElliptic/EllBase/trunk@5 57bc7290-fb3d-4efd-a9b1-28e84cce6043 --- src/EllBase_Register.c | 53 -------------------------------------------------- 1 file changed, 53 deletions(-) delete mode 100644 src/EllBase_Register.c (limited to 'src') 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 -#include -#include - -#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); - -} - - -- cgit v1.2.3