1 /* Siconos is a program dedicated to modeling, simulation and control
2 * of non smooth dynamical systems.
3 *
4 * Copyright 2021 INRIA.
5 *
6 * Licensed under the Apache License, Version 2.0 (the "License");
7 * you may not use this file except in compliance with the License.
8 * You may obtain a copy of the License at
9 *
10 * http://www.apache.org/licenses/LICENSE-2.0
11 *
12 * Unless required by applicable law or agreed to in writing, software
13 * distributed under the License is distributed on an "AS IS" BASIS,
14 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
15 * See the License for the specific language governing permissions and
16 * limitations under the License.
17 */
18 #include "NSSTools.h" // for min_part
19
min_part(double * x,double * sol,int n)20 void min_part(double* x, double* sol, int n)
21
22 {
23
24 int i;
25 double minx;
26
27
28
29 minx = x[0];
30
31 for(i = 1 ; i < n ; i++)
32 {
33
34 if(minx > x[i]) minx = x[i] ;
35
36 }
37
38
39 *sol = minx;
40
41 }
42