diff options
author | tradke <tradke@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2000-03-28 16:42:56 +0000 |
---|---|---|
committer | tradke <tradke@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2000-03-28 16:42:56 +0000 |
commit | 28f7c6aa37c3fe854264310aa877960204f85fa4 (patch) | |
tree | 650001552ca91d458e961d4be769e229501dac69 | |
parent | 697712cdce26910584ac37841bab5fcf01e950ad (diff) |
Declare the Fortran wrapper prototype arguments for the dimensions to be
'const int *'.
Thanks Tom.
git-svn-id: http://svn.cactuscode.org/flesh/trunk@1501 17b73243-c579-4c4c-a9d2-2d5706c11dac
-rw-r--r-- | lib/sbin/GridFuncStuff.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/sbin/GridFuncStuff.pl b/lib/sbin/GridFuncStuff.pl index 6ebcca56..97d3e9a2 100644 --- a/lib/sbin/GridFuncStuff.pl +++ b/lib/sbin/GridFuncStuff.pl @@ -782,7 +782,7 @@ sub CreateCArgumentPrototype { if($arguments{$argument} =~ m:STORAGESIZE:) { - $prototype .= "$sep"."int *"; + $prototype .= "$sep"."const int *"; $sep = ","; } } |