Skip to content
Snippets Groups Projects
Select Git revision
  • 0a789359ee0e0db7e3d6b287d95fefc4c533f73d
  • master default protected
  • patches-4.14
  • steplayer
  • bl
  • pluginMeshQuality
  • fixBugsAmaury
  • hierarchical-basis
  • alphashapes
  • relaying
  • new_export_boris
  • oras_vs_osm
  • reassign_partitions
  • distributed_fwi
  • rename-classes
  • fix/fortran-api-example-t4
  • robust_partitions
  • reducing_files
  • fix_overlaps
  • 3115-issue-fix
  • 3023-Fillet2D-Update
  • gmsh_4_14_0
  • gmsh_4_13_1
  • gmsh_4_13_0
  • gmsh_4_12_2
  • gmsh_4_12_1
  • gmsh_4_12_0
  • gmsh_4_11_1
  • gmsh_4_11_0
  • gmsh_4_10_5
  • gmsh_4_10_4
  • gmsh_4_10_3
  • gmsh_4_10_2
  • gmsh_4_10_1
  • gmsh_4_10_0
  • gmsh_4_9_5
  • gmsh_4_9_4
  • gmsh_4_9_3
  • gmsh_4_9_2
  • gmsh_4_9_1
  • gmsh_4_9_0
41 results

rgbtoycc.cpp

Blame
  • TC_Decomposition.pro 1.39 KiB
    Function{
      myD = {} ; // the domains that I (as a MPI process) am in charge of
    
      ListOfFields_g = {};
      ListOfConnectedFields_g = {};
    
    // myD~{idom} : list of neightbor domain
      For idom In {0:(NDom-1)}
        myD~{idom} = {};
        If (idom % MPI_Size == MPI_Rank)
          myD() += D(idom); // D(idom) = index of subdomain (indexing could be different than 0,1,2,...)
          myD~{idom} += D~{idom}();
        EndIf
      EndFor
    
    // Auxiliary functions
      For ii In {0:#myD()-1}
        i = myD(ii);
    
        For jj In {0:#myD~{i}()-1}
          j = myD~{i}(jj);
    
          For r In {0:(NDelta~{i}~{j}-1)}
            rj = NDelta~{i}~{j}-1-r;
    
            tag_g~{j}~{i}~{r} = 100 + j * 30 + r + i;
            tag_g~{i}~{j}~{rj} = 100 + i * 30 + rj + j;
            
            // Fields received / Needed
            ListOfFields_g() += tag_g~{i}~{j}~{rj};
            g~{i}~{j}~{rj}[ Delta~{j}~{i}~{rj} ] = ComplexScalarField[XYZ[]]{ tag_g~{i}~{j}~{rj} };
    
            // Fields sent
            ListOfConnectedFields_g() += 1;
            ListOfConnectedFields_g() += tag_g~{j}~{i}~{r};
    
            // Phi functions before jacobi
            tag_phiInit~{i}~{j}~{r} = 10000 + i * 30 + rj + j;
            phiInit~{i}~{j}~{r}[ Delta~{i}~{j}~{r} ] = ComplexScalarField[XYZ[]]{ tag_phiInit~{i}~{j}~{r} };
          EndFor
        EndFor
      EndFor
    
      //MPI_Printf["ListOfFields = ", ListOfFields_g(),ListOfFields_h()];
      //MPI_Printf["ListOfConnectedFields = ", ListOfConnectedFields_g(),ListOfConnectedFields_h()];
    }