summaryrefslogtreecommitdiff
path: root/src/main/Groups.c
diff options
context:
space:
mode:
authorallen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac>1999-02-13 19:56:55 +0000
committerallen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac>1999-02-13 19:56:55 +0000
commit083fb94835e7a910961e4787c4e5fb3f5b0b22e7 (patch)
tree675e468e93a5afc65ef86e2dff346ec66a25d523 /src/main/Groups.c
parent45751045e2f779d0e7534d97abcde3b1d0f0bce8 (diff)
Quick fixes and fixed problem with CCTK_Equals and string compare
(Tom) git-svn-id: http://svn.cactuscode.org/flesh/trunk@250 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'src/main/Groups.c')
-rw-r--r--src/main/Groups.c33
1 files changed, 28 insertions, 5 deletions
diff --git a/src/main/Groups.c b/src/main/Groups.c
index 7f2f092d..6ff6c73b 100644
--- a/src/main/Groups.c
+++ b/src/main/Groups.c
@@ -248,8 +248,8 @@ int CCTK_GetGroupNum(const char *implementation,
for(group_num = 0; group_num < n_groups; group_num++)
{
- if(!strcmp(implementation, groups[group_num].implementation) &&
- !strcmp(name, groups[group_num].name)) break;
+ if(CCTK_Equals(implementation, groups[group_num].implementation) &&
+ CCTK_Equals(name, groups[group_num].name)) break;
}
if (group_num < n_groups)
@@ -293,7 +293,7 @@ int CCTK_GetVarNum(const char *implementation,
{
for(variable=0; variable<groups[group_num].n_variables;variable++)
{
- if(!strcmp(variable_name, groups[group_num].variables[variable].name))
+ if(CCTK_Equals(variable_name, groups[group_num].variables[variable].name))
{
retval = groups[group_num].variables[variable].number;
break;
@@ -382,12 +382,35 @@ int CCTK_GetNumGroups(void)
@endhistory
@@*/
-int CCTK_ArrayGroupSize(cGH *GH, const char *group, int dim)
+int *CCTK_ArrayGroupSize(cGH *GH, const char *group, int dim)
{
- return 0;
+ /* Quick fudge */
+ return &(GH->local_shape[dim]);
}
/*@@
+ @routine CCTK_
+ @date
+ @author Tom Goodale
+ @desc
+
+ @enddesc
+ @calls
+ @calledby
+ @history
+
+ @endhistory
+
+@@*/
+int CCTK_QueryGroupStorage(cGH *GH, const char *group)
+{
+ /* Quick fudge */
+ return 1;
+}
+
+
+
+ /*@@
@routine CCTK_GTypeNumber
@date Mon Feb 8 14:44:45 1999
@author Tom Goodale