diff options
| author | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-01-26 16:59:54 +0000 |
|---|---|---|
| committer | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-01-26 16:59:54 +0000 |
| commit | 89e4b0ab66fb696a4d16848a8cd6cb3d2ea05c79 (patch) | |
| tree | 1843c513fbd35839ff8502505580ada7618ebc31 /lib/sbin/GridFuncStuff.pl | |
| parent | d1976d7d6d533fa02ef42b4d4c9e8564c6531535 (diff) | |
Some lower->upper case changes, etc.
Tom
git-svn-id: http://svn.cactuscode.org/flesh/trunk@123 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/GridFuncStuff.pl')
| -rw-r--r-- | lib/sbin/GridFuncStuff.pl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lib/sbin/GridFuncStuff.pl b/lib/sbin/GridFuncStuff.pl index 62f97562..d37e1a6c 100644 --- a/lib/sbin/GridFuncStuff.pl +++ b/lib/sbin/GridFuncStuff.pl @@ -582,7 +582,7 @@ sub CreateThornArgumentHeaderFile $sep = ""; - push(@returndata, "#define \U$thorn"."_FARGUMENTS CCTKARGS\\"); + push(@returndata, "#define \U$thorn"."_FARGUMENTS CCTK_FARGS\\"); foreach $block ("PRIVATE", "PROTECTED", "PUBLIC") { @@ -596,7 +596,7 @@ sub CreateThornArgumentHeaderFile push(@returndata, ("","")); # Do the fortran declarations - push(@returndata, "#define \UDECLARE_$thorn"."_FARGUMENTS DECLARE_CCTKARGS\\"); + push(@returndata, "#define \UDECLARE_$thorn"."_FARGUMENTS DECLARE_CCTK_FARGS\\"); foreach $block ("PRIVATE", "PROTECTED", "PUBLIC") { @@ -621,7 +621,7 @@ sub CreateThornArgumentHeaderFile $sep = ""; # Argument prototypes - push(@returndata, "#define \U$thorn"."_C2F_PROTO CCTKARGS_C2FPROTO\\"); + push(@returndata, "#define \U$thorn"."_C2F_PROTO CCTK_C2F_PROTO\\"); foreach $block ("PRIVATE", "PROTECTED", "PUBLIC") { @@ -637,7 +637,7 @@ sub CreateThornArgumentHeaderFile # Argument lists $sep = ""; - push(@returndata, "#define PASS_\U$thorn"."_C2F(xGH) PASS_CCTKARGS_C2F(xGH)\\"); + push(@returndata, "#define PASS_\U$thorn"."_C2F(xGH) PASS_CCTK_C2F(xGH)\\"); foreach $block ("PRIVATE", "PROTECTED", "PUBLIC") { @@ -652,7 +652,7 @@ sub CreateThornArgumentHeaderFile # Declare statics - push(@returndata, "#define DECLARE_\U$thorn"."_C2F DECLARE_CCTKARGS_C2F \\"); + push(@returndata, "#define DECLARE_\U$thorn"."_C2F DECLARE_CCTK_C2F \\"); foreach $block ("PRIVATE", "PROTECTED", "PUBLIC") { @@ -667,7 +667,7 @@ sub CreateThornArgumentHeaderFile # Initialise statics - push(@returndata, "#define INITIALISE_\U$thorn"."_C2F INITIALISE_CCTKARGS_C2F \\"); + push(@returndata, "#define INITIALISE_\U$thorn"."_C2F INITIALISE_CCTK_C2F \\"); foreach $block ("PRIVATE", "PROTECTED", "PUBLIC") { |