Changeset 26652 for issm/trunk-jpl/src/jl/solve/nodes.jl

Timestamp:

11/22/21 07:03:07 (3 years ago)

Author:

Mathieu Morlighem

Message:

CHG: more work on julia solver

File:

• issm/trunk-jpl/src/jl/solve/nodes.jl (modified) (1 diff)

issm/trunk-jpl/src/jl/solve/nodes.jl

@@ -114 +114 @@
 
 end# }}}
+function VecReduce(node::Node,ug::Vector{Float64},uf::Vector{Float64}) #{{{
+
+        for i=1:node.gsize
+                if node.fdoflist[i]!=-1
+                        uf[node.fdoflist[i]] = ug[node.gdoflist[i]]
+                end
+        end
+
+end# }}}
 
 #Nodes functions