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
19 #include "NSSTools.h" // for max_part
max_part(double * x,double * sol,int n)20 void max_part(double* x, double *sol, int n)
21
22 {
23 int i;
24 double max;
25 max = x[0];
26
27 for(i = 1 ; i < n ; i++)
28 {
29
30 if(max < x[i]) max = x[i] ;
31
32 }
33
34
35 *sol = max;
36
37 }
38