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 D | GradientValidation.f90 | 66 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 D | GradientValidation.F90 | 66 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 D | Optimize_m1qn3Parallel.F90 | 377 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 D | DJDBeta_Robin.F90 | 67 integer :: i,j,t,n,NMAX,NActiveNodes,DIM local
|
H A D | DJDmu_Robin.F90 | 97 integer :: i,j,t,n,NMAX,NActiveNodes,DIM local
|
H A D | DJDmu_Adjoint.F90 | 103 integer :: i,j,t,n,NMAX,NpN,NActiveNodes,DIM,e,p,q local
|
H A D | DJDBeta_Adjoint.F90 | 84 integer :: i,j,k,e,t,n,NMAX,NActiveNodes,DIM local
|
/dports/science/elmerfem/elmerfem-release-9.0/elmerice/Solvers/Adjoint/ |
H A D | Adjoint_GradientValidation.F90 | 101 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 D | AdjointStokes_GradientMu.F90 | 103 integer :: i,j,t,n,NMAX,NpN,NActiveNodes,DIM,e,p,q local
|