diff options
author | shusa <shusa> | 2004-10-28 12:41:11 +0000 |
---|---|---|
committer | shusa <shusa> | 2004-10-28 12:41:11 +0000 |
commit | 4b51e27107d6f0c06643c98dcafd5e28f81cf2f5 (patch) | |
tree | 76f77ee9750d83666b22868e47f729ed94d649b0 /Tools/CodeGen/Thorn.m | |
parent | 2b3f7d0dcd656b77926b9e30488699065de9b92e (diff) |
corresponds to last checkin of KrancThorns, fixed the problem
of not being able to handle the case when not all evolved GFs
belong to kranc's base thorn.
Diffstat (limited to 'Tools/CodeGen/Thorn.m')
-rw-r--r-- | Tools/CodeGen/Thorn.m | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/Tools/CodeGen/Thorn.m b/Tools/CodeGen/Thorn.m index 840e2cc..1cad59a 100644 --- a/Tools/CodeGen/Thorn.m +++ b/Tools/CodeGen/Thorn.m @@ -542,9 +542,8 @@ CreateMoLRegistrationSource[spec_, debug_] := CommentedBlock["Register all the evolved grid functions with MoL", - Map[{"ierr += MoLRegisterEvolved(CCTK_VarIndex(\"", - lookup[spec,BaseImplementation], "::", #, "\"), CCTK_VarIndex(\"", - lookup[spec,BaseImplementation], "::", #, "rhs\"));\n"} &, + Map[{"ierr += MoLRegisterEvolved(CCTK_VarIndex(\"", #, "\"), CCTK_VarIndex(\"", + lookup[spec,BaseImplementation], "::", unqualifiedGroupName[#], "rhs\"));\n"} &, lookup[spec, EvolvedGFs]]], CommentedBlock["Register all the primitive grid functions with MoL", |