diff options
| author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2000-05-10 10:58:40 +0000 |
|---|---|---|
| committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2000-05-10 10:58:40 +0000 |
| commit | af34af0671429d53e0b70e0b7d154a20f3b86fe6 (patch) | |
| tree | aa03756d3f9b4326fe090e578ee1c0848a735437 /lib/sbin/CreateScheduleBindings.pl | |
| parent | b417ca179c512e3bc077eb10ce6f4297cf937229 (diff) | |
FORTRAN_NAME -> CCTK_FNAME
FMODIFIER -> CCTK_FCALL
Old names will work until beta 9
git-svn-id: http://svn.cactuscode.org/flesh/trunk@1633 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/CreateScheduleBindings.pl')
| -rw-r--r-- | lib/sbin/CreateScheduleBindings.pl | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lib/sbin/CreateScheduleBindings.pl b/lib/sbin/CreateScheduleBindings.pl index fa86e0de..af1b0829 100644 --- a/lib/sbin/CreateScheduleBindings.pl +++ b/lib/sbin/CreateScheduleBindings.pl @@ -180,7 +180,7 @@ sub ScheduleCreateFile $outbuf .= "{\n"; $outbuf .= " DECLARE_CCTK_PARAMETERS\n"; $outbuf .= "$buffer\n"; - $outbuf .= " USE_CCTK_PARAMETERS\n"; + $outbuf .= "return;\n"; $outbuf .= "}\n"; $outbuf .= "\n"; @@ -236,7 +236,7 @@ sub ParameterRecoveryCreateFile } elsif($rhschedule_db->{"\U$thorn\E BLOCK_$block LANG"} =~ m:^\s*(F|F77|FORTRAN|F90)\s*$:i ) { - $block_buffer = "FORTRAN_NAME(".$rhschedule_db->{"\U$thorn\E BLOCK_$block NAME"} .")"; + $block_buffer = "CCTK_FNAME(".$rhschedule_db->{"\U$thorn\E BLOCK_$block NAME"} .")"; } $buffer =~ s:\@BLOCK\@$block:result = $block_buffer();:; @@ -289,7 +289,6 @@ sub ParameterRecoveryCreateFile $outbuf .= " int result = 0;\n\n"; $outbuf .= "$buffer\n"; $outbuf .= " return (result);\n"; - $outbuf .= " USE_CCTK_PARAMETERS\n"; $outbuf .= "}\n"; $outbuf .= "\n"; @@ -523,7 +522,7 @@ sub ScheduleBlock elsif($rhschedule_db->{"\U$thorn\E BLOCK_$block LANG"} =~ m:^\s*(F|F77|FORTRAN|F90)\s*$:i ) { $language = "Fortran"; - $function = "FORTRAN_NAME(".$rhschedule_db->{"\U$thorn\E BLOCK_$block NAME"} .")"; + $function = "CCTK_FNAME(".$rhschedule_db->{"\U$thorn\E BLOCK_$block NAME"} .")"; } else { |