Added simple_index_alloc_real_array1.

git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@706 f25d12d1-65f4-0310-ae8a-bbce733d8d8e

c_runtime/real_array.c

@@ -406,12 +406,19 @@ void index_real_array(real_array_t* source,
 			       real_array_t* dest)
 {
 
+}
+/* Returns dest := source[i1,:,:...]*/
+void simple_index_alloc_real_array1(real_array_t* source,int i1,real_array_t* dest)
+{
+
 }
 
 void simple_index_real_array1(real_array_t* source, 
 				       int i1, 
 				       real_array_t* dest)
 {
+
+
 }
 
 void simple_index_real_array2(real_array_t* source, 
@@ -437,6 +444,25 @@ void modelica_builtin_cat_real_array(int k, real_array_t* A, real_array_t* B)
 
 }
 
+void range_alloc_real_array(real start, real stop, real inc, real_array_t* dest)
+{
+  int n;
+
+  n = floor((stop-start)/inc)+1;
+  simple_alloc_1d_real_array(dest,n);
+  range_real_array(start,stop,inc,dest);
+}
+
+void range_real_array(real start, real stop, real inc, real_array_t* dest)
+{
+  int i;
+  /* Assert that dest has correct size */
+  for (i = 0; i < dest->dim_size[0]; ++i)
+    {
+      dest->data[i] = start + i*inc; 
+    } 
+}
+
 void add_real_array(real_array_t* a, real_array_t* b, real_array_t* dest)
 {
   size_t nr_of_elements;

c_runtime/real_array.h

@@ -5,6 +5,8 @@
 #include "index_spec.h"
 #include "memory_pool.h"
 #include <stdio.h>
+#include <stdarg.h>
+#include <math.h>
 
 typedef double modelica_real;
 
@@ -38,6 +40,9 @@ void clone_real_array_spec(real_array_t* source, real_array_t* dest);
 /* Copy real data*/
 void copy_real_array_data(real_array_t* source, real_array_t* dest);
 
+real* calc_index(int ndims,size_t* idx_vec,real_array_t* arr);
+real* calc_index_va(real_array_t* source,int ndims,va_list ap);
+
 void put_real_element(real value,int i1,real_array_t* dest);
 void put_matrix_element(real value, int r, int c, real_array_t* dest);
 
@@ -67,6 +72,8 @@ void simple_indexed_assign_real_array2(real_array_t* source,
 void index_real_array(real_array_t* source, 
 			       index_spec_t* spec, 
 			       real_array_t*);
+void simple_index_alloc_real_array1(real_array_t* source,int i1,real_array_t* dest);
+
 void simple_index_real_array1(real_array_t* source, 
 				       int, 
 				       real_array_t* dest);