FrontISTR 5.2.0
Large-scale structural analysis program with finit element method
Loading...
Searching...
No Matches
hecmw_vis_subimage_composite_sf.c
Go to the documentation of this file.
1/*****************************************************************************
2 * Copyright (c) 2019 FrontISTR Commons
3 * This software is released under the MIT License, see LICENSE.txt
4 *****************************************************************************/
5
7
8void composite_subimage_sf(int pesize, int pixn, double *n_subimage,
9 double *n_subopa, double *subimage, double *subopa) {
10 int i, j;
11
12 for (j = 0; j < pixn; j++) {
13 subimage[j * 3 + 0] = n_subimage[j * 3 + 0];
14 subimage[j * 3 + 1] = n_subimage[j * 3 + 1];
15 subimage[j * 3 + 2] = n_subimage[j * 3 + 2];
16 subopa[j] = n_subopa[j];
17 }
18 for (i = 1; i < pesize; i++) {
19 for (j = 0; j < pixn; j++) {
20 if (n_subopa[i * pixn + j] < subopa[j]) {
21 subopa[j] = n_subopa[i * pixn + j];
22 subimage[j * 3] = n_subimage[i * pixn * 3 + j * 3 + 0];
23 subimage[j * 3 + 1] = n_subimage[i * pixn * 3 + j * 3 + 1];
24 subimage[j * 3 + 2] = n_subimage[i * pixn * 3 + j * 3 + 2];
25 }
26 }
27 }
28 return;
29}
void composite_subimage_sf(int pesize, int pixn, double *n_subimage, double *n_subopa, double *subimage, double *subopa)