Home
last modified time | relevance | path

Searched refs:NActiveNodes (Results 1 – 9 of 9) sorted by relevance

/dports/science/elmerfem/elmerfem-release-9.0/elmerice/Tests/InvMeth_AdjRobin/PROG/
H A DGradientValidation.f9066 save ActiveNodes,NActiveNodes
94 NActiveNodes=0
104 NActiveNodes=NActiveNodes+1
115 allocate(ActiveNodes(NActiveNodes),x(NActiveNodes),xp(NActiveNodes),g(NActiveNodes))
116 ActiveNodes(1:NActiveNodes)=NewNode(1:NActiveNodes)
176 x(1:NActiveNodes)=Values(Perm(ActiveNodes(1:NActiveNodes)))
177 g(1:NActiveNodes)=GradValues(GradPerm(ActiveNodes(1:NActiveNodes)))
178 xp(1:NActiveNodes)=PValues(PPerm(ActiveNodes(1:NActiveNodes)))
183 Do i=1,NActiveNodes
199 Do i=1,NActiveNodes
[all …]
/dports/science/elmerfem/elmerfem-release-9.0/elmerice/examples/InverseMethods_OLD/src/
H A DGradientValidation.F9066 save ActiveNodes,NActiveNodes
94 NActiveNodes=0
104 NActiveNodes=NActiveNodes+1
115 allocate(ActiveNodes(NActiveNodes),x(NActiveNodes),xp(NActiveNodes),g(NActiveNodes))
116 ActiveNodes(1:NActiveNodes)=NewNode(1:NActiveNodes)
193 x(1:NActiveNodes)=Values(Perm(ActiveNodes(1:NActiveNodes)))
194 g(1:NActiveNodes)=GradValues(GradPerm(ActiveNodes(1:NActiveNodes)))
195 xp(1:NActiveNodes)=PValues(PPerm(ActiveNodes(1:NActiveNodes)))
200 Do i=1,NActiveNodes
216 Do i=1,NActiveNodes
[all …]
/dports/science/elmerfem/elmerfem-release-9.0/elmerice/Solvers/
H A DOptimize_m1qn3Parallel.F90377 NActiveNodes=0
390 NActiveNodes=NActiveNodes+1
401 …allocate(ActiveNodes(NActiveNodes),LocalToGlobalPerm(NActiveNodes),x(VarDOFs*NActiveNodes),g(VarDO…
403 ActiveNodes(1:NActiveNodes)=NewNode(1:NActiveNodes)
432 LocalToGlobalPerm(1:NActiveNodes)=ActiveNodes(1:NActiveNodes)
440 NodePerm(1:NActiveNodes)=LocalToGlobalPerm(1:NActiveNodes)
441 ni=1+NActiveNodes
483 Do i=1,NActiveNodes
512 xtot(1:VarDOFs*NActiveNodes)=x(1:VarDOFs*NActiveNodes)
513 gtot(1:VarDOFs*NActiveNodes)=g(1:VarDOFs*NActiveNodes)
[all …]
H A DDJDBeta_Robin.F9067 integer :: i,j,t,n,NMAX,NActiveNodes,DIM local
H A DDJDmu_Robin.F9097 integer :: i,j,t,n,NMAX,NActiveNodes,DIM local
H A DDJDmu_Adjoint.F90103 integer :: i,j,t,n,NMAX,NpN,NActiveNodes,DIM,e,p,q local
H A DDJDBeta_Adjoint.F9084 integer :: i,j,k,e,t,n,NMAX,NActiveNodes,DIM local
/dports/science/elmerfem/elmerfem-release-9.0/elmerice/Solvers/Adjoint/
H A DAdjoint_GradientValidation.F90101 integer :: i,c,t,n,NMAX,NActiveNodes local
121 save ActiveNodes,NActiveNodes
175 NActiveNodes=0
185 NActiveNodes=NActiveNodes+1
186 NewNode(NActiveNodes)=NodeIndexes(i)
191 if (NActiveNodes.eq.0) THEN
196 …allocate(ActiveNodes(NActiveNodes),x(DOFS*NActiveNodes),xp(DOFs*NActiveNodes),g(DOFs*NActiveNodes))
197 ActiveNodes(1:NActiveNodes)=NewNode(1:NActiveNodes)
219 DO i=1,NActiveNodes
247 Do i=1,NActiveNodes
[all …]
/dports/science/elmerfem/elmerfem-release-9.0/elmerice/Solvers/AdjointStokes/
H A DAdjointStokes_GradientMu.F90103 integer :: i,j,t,n,NMAX,NpN,NActiveNodes,DIM,e,p,q local