| /dports/science/elmerfem/elmerfem-release-9.0/fem/src/modules/ |
| H A D | NonphysicalMeshSolve.F90 | 69 GotForceBC, Found, MovingMesh, Cumulative,GotTargetField, & local
291 GotForceBC = Found
293 GotForceBC = GotForceBC .OR. Found
295 GotForceBC = GotForceBC .OR. Found
298 GotForceBC = GotForceBC .OR. Found
300 GotForceBC = GotForceBC .OR. Found
302 GotForceBC = GotForceBC .OR. Found
305 GotForceBC = GotForceBC .OR. Found
308 GotForceBC = GotForceBC .OR. Found
314 IF ( .NOT. GotForceBC ) CYCLE
|
| H A D | MeshSolve.F90 | 112 GotForceBC, Found, ComputeMeshVelocity, DisplaceFirst, & local
315 GotForceBC = .FALSE.
317 GotForceBC = GotForceBC.OR.Found
319 GotForceBC = GotForceBC.OR.Found
321 GotForceBC = GotForceBC.OR.Found
324 GotForceBC = GotForceBC.OR.Found
326 IF ( .NOT.GotForceBC ) CYCLE
|
| H A D | FacetShellSolve.F90 | 126 LOGICAL :: GotIt, GotForceBC local
522 GotForceBC = GotIt
525 GotForceBC = GotForceBC .OR. GotIt
528 GotForceBC = GotForceBC .OR. GotIt
531 GotForceBC = GotForceBC .OR. GotIt
534 GotForceBC = GotForceBC .OR. GotIt
537 GotForceBC = GotForceBC .OR. GotIt
539 IF( .NOT.GotForceBC ) CYCLE
|
| H A D | ParStokes.F90 | 126 LOGICAL :: AllocationsDone = .FALSE., Found, Convect, GotForceBC, NormalTangential, & local
483 GotForceBC = GetLogical( BC, 'Flow Force BC', Found )
484 IF ( .NOT. Found ) GotForceBC = .TRUE.
486 IF ( GotForceBC ) THEN
491 ExtPressure(1:n) = GetReal( BC, 'Normal Surface Traction', GotForceBC )
492 IF (.NOT. GotForceBC) ExtPressure(1:n) = GetReal( BC, 'External Pressure', GotForceBC )
|
| H A D | MagneticSolve.F90 | 79 LOGICAL :: Stabilize,NewtonLinearization = .FALSE.,GotForceBC,GotIt local
380 GotForceBC = GetLogical( BC, 'Magnetic Force BC',gotIt )
381 IF ( GotForceBC ) THEN
|
| H A D | FlowSolve.F90 | 112 LOGICAL :: Stabilize,NewtonLinearization = .FALSE., GotForceBC, GotIt, & local
1063 GotForceBC = GetLogical( BC, 'Flow Force BC',gotIt )
1064 IF ( .NOT. gotIt ) GotForceBC = .TRUE.
1066 IF ( GotForceBC ) THEN
1086 ExtPressure(1:n) = GetReal( BC, 'External Pressure', GotForceBC )
1087 IF(.NOT. GotForceBC) ExtPressure(1:n) = GetReal( BC, 'Normal Pressure', GotForceBC )
|
| H A D | ElasticSolve.F90 | 286 LOGICAL :: GotForceBC, GotFSIBC, GotSpring, GotIt, NewtonLinearization = .FALSE., & local
972 GotForceBC = .FALSE.
974 GotForceBC = .TRUE.
979 GotForceBC = .TRUE.
987 GotForceBC = GotForceBC .OR. GotIt
1007 IF ( .NOT. ( GotForceBC .OR. GotFSIBC .OR. GotSpring ) ) CYCLE
|
| H A D | StressSolve.F90 | 234 LOGICAL :: GotForceBC,Found,RayleighDamping, NormalSpring local
1373 GotForceBC = .FALSE.
|
| /dports/science/elmerfem/elmerfem-release-9.0/elmerice/Solvers/ |
| H A D | FrontDisplacement.F90 | 124 GotForceBC, Found, ComputeMeshVelocity, FirstTime = .TRUE. local
308 GotForceBC = .FALSE.
310 GotForceBC = GotForceBC.OR.Found
312 GotForceBC = GotForceBC.OR.Found
314 GotForceBC = GotForceBC.OR.Found
317 GotForceBC = GotForceBC.OR.Found
319 IF ( .NOT.GotForceBC ) CYCLE
|
| H A D | PorousSolve.F90 | 132 LOGICAL :: GotForceBC, GotIt, & local
425 GotForceBC = .FALSE.
429 GotForceBC = GotForceBC .OR. gotIt
433 GotForceBC = GotForceBC .OR. gotIt
437 GotForceBC = GotForceBC .OR. gotIt
441 GotForceBC = GotForceBC .OR. gotIt
450 GotForceBC = GotForceBC .OR. gotIt
454 GotForceBC = GotForceBC .OR. gotIt
458 GotForceBC = GotForceBC .OR. gotIt
460 IF ( .NOT.GotForceBC ) CYCLE
|
| H A D | AIFlowSolve_nlD2.F90 | 123 LOGICAL :: GotForceBC, GotIt, NewtonLinearization = .FALSE., & local
464 GotForceBC = .FALSE.
468 GotForceBC = GotForceBC .OR. gotIt
472 GotForceBC = GotForceBC .OR. gotIt
476 GotForceBC = GotForceBC .OR. gotIt
480 GotForceBC = GotForceBC .OR. gotIt
489 GotForceBC = GotForceBC .OR. gotIt
493 GotForceBC = GotForceBC .OR. gotIt
497 GotForceBC = GotForceBC .OR. gotIt
502 IF ( .NOT.GotForceBC ) CYCLE
|
| H A D | AIFlowSolve_nlS2.F90 | 123 LOGICAL :: GotForceBC, GotIt, NewtonLinearization = .FALSE., & local
465 GotForceBC = .FALSE.
469 GotForceBC = GotForceBC .OR. gotIt
473 GotForceBC = GotForceBC .OR. gotIt
477 GotForceBC = GotForceBC .OR. gotIt
481 GotForceBC = GotForceBC .OR. gotIt
490 GotForceBC = GotForceBC .OR. gotIt
494 GotForceBC = GotForceBC .OR. gotIt
498 GotForceBC = GotForceBC .OR. gotIt
503 IF ( .NOT.GotForceBC ) CYCLE
|
| H A D | AdjointSolver.F90 | 80 Logical :: Gotit,GotForceBC,NormalTangential,Firsttime=.true.,UnFoundFatal=.TRUE. local
200 GotForceBC = GetLogical( BC, 'Adjoint Force BC',gotIt )
202 IF (GotForceBC) Then
|
| H A D | FabricSolve.F90 | 103 LOGICAL :: GotForceBC,GotIt,NewtonLinearization = .FALSE.,UnFoundFatal=.TRUE. local
|
| /dports/science/elmerfem/elmerfem-release-9.0/fem/src/modules/contrib/ShellMultiSolver/ |
| H A D | ShellMultiSolver.F90 | 147 LOGICAL :: GotIt, GotForceBC local
668 GotForceBC = .FALSE.
672 GotForceBC = GotForceBC.OR.GotIt
675 GotForceBC = GotForceBC.OR.GotIt
678 GotForceBC = GotForceBC.OR.GotIt
681 GotForceBC = GotForceBC.OR.GotIt
684 GotForceBC = GotForceBC.OR.GotIt
687 GotForceBC = GotForceBC.OR.GotIt
689 IF( .NOT.GotForceBC ) CYCLE
|