From 537cee5f88a8cff51d90271806c3458bd8b93de9 Mon Sep 17 00:00:00 2001
From: ankar <ankar@ida.liu.se>
Date: Tue, 5 Feb 2002 08:48:25 +0000
Subject: [PATCH] Changed calc_index_va to one-based indexing.

git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@709 f25d12d1-65f4-0310-ae8a-bbce733d8d8e
---
 c_runtime/real_array.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/c_runtime/real_array.c b/c_runtime/real_array.c
index 93cf30f5927..8b2f86308ba 100644
--- a/c_runtime/real_array.c
+++ b/c_runtime/real_array.c
@@ -225,13 +225,13 @@ real* calc_index_va(real_array_t* source,int ndims,va_list ap)
 {
   int i;
   int index;
-  int dim_s;
+  int dim_i;
 
   index = 0;
   for (i = 0; i < ndims; ++i)
     {
-      dim_s = va_arg(ap,int);
-      index = index*source->dim_size[i]+dim_s;
+      dim_i = va_arg(ap,int)-1;
+      index = index*source->dim_size[i]+dim_i;
     }
 
   return source->data+index;