diff options
| author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2001-05-10 17:09:31 +0000 |
|---|---|---|
| committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2001-05-10 17:09:31 +0000 |
| commit | effe2fa5fdc833c571cbafcefd01872e7b298224 (patch) | |
| tree | db0137806abea727e2356815ec615fc644e7418a /lib/sbin/GridFuncStuff.pl | |
| parent | 8c4401f9b48391152f2c392f6f6f9cc6c9eaca42 (diff) | |
Index timelevels in the opposite way, now the current timelevel to work with is always timelevel 0, and the oldest timelevel is indexed
CCTK_NumTimeLevelsFromVarI(index) - 1
git-svn-id: http://svn.cactuscode.org/flesh/trunk@2164 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/GridFuncStuff.pl')
| -rw-r--r-- | lib/sbin/GridFuncStuff.pl | 36 |
1 files changed, 10 insertions, 26 deletions
diff --git a/lib/sbin/GridFuncStuff.pl b/lib/sbin/GridFuncStuff.pl index 60769120..68baa38d 100644 --- a/lib/sbin/GridFuncStuff.pl +++ b/lib/sbin/GridFuncStuff.pl @@ -330,14 +330,10 @@ sub CreateFortranArgumentDeclarations $ntimelevels = $4; - for($level = $ntimelevels; $level > 0; $level--) + for($level = 1; $level <= $ntimelevels; $level++) { # Modify the name for the time level - if($ntimelevels == 1) - { - $suffix = ""; - } - elsif($level == $ntimelevels) + if($level == 1) { $suffix = ""; } @@ -441,14 +437,10 @@ sub CreateCArgumentDeclarations $ntimelevels = $5; - for($level = $ntimelevels; $level > 0; $level--) + for($level = 1; $level <= $ntimelevels; $level++) { # Modify the name for the time level - if($ntimelevels == 1) - { - $suffix = ""; - } - elsif($level == $ntimelevels) + if($level == 1) { $suffix = ""; } @@ -552,14 +544,10 @@ sub CreateCArgumentUses $ntimelevels = $5; - for($level = $ntimelevels; $level > 0; $level--) + for($level = 1; $level <= $ntimelevels; $level++) { # Modify the name for the time level - if($ntimelevels == 1) - { - $suffix = ""; - } - elsif($level == $ntimelevels) + if($level == 1) { $suffix = ""; } @@ -625,14 +613,10 @@ sub CreateFortranArgumentList $ntimelevels = $4; - for($level = $ntimelevels; $level > 0; $level--) + for($level = 1; $level <= $ntimelevels; $level++) { # Modify the name for the time level - if($ntimelevels == 1) - { - $suffix = ""; - } - elsif($level == $ntimelevels) + if($level == 1) { $suffix = ""; } @@ -786,7 +770,7 @@ sub CreateCArgumentPrototype $ntimelevels = $4; - for($level = $ntimelevels; $level > 0; $level--) + for($level = 1; $level <= $ntimelevels; $level++) { if($1 eq "CHAR") { @@ -900,7 +884,7 @@ sub CreateCArgumentList $ntimelevels = $4; - for($level = $ntimelevels; $level > 0; $level--) + for($level = 1; $level <= $ntimelevels; $level++) { if($1 eq "BYTE") { |