FrontISTR  5.7.0
Large-scale structural analysis program with finit element method
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 
8 void 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 }
composite_subimage_sf
void composite_subimage_sf(int pesize, int pixn, double *n_subimage, double *n_subopa, double *subimage, double *subopa)
Definition: hecmw_vis_subimage_composite_sf.c:8
hecmw_vis_subimage_composite_sf.h