Home
last modified time | relevance | path

Searched refs:GotIt (Results 1 – 25 of 192) sorted by relevance

12345678

/dports/science/elmerfem/elmerfem-release-9.0/elmerice/UserFunctions/
H A DUSF_Sliding.F90117 IF (.NOT.GotIt) THEN
127 IF (.NOT.GotIt) THEN
132 IF (.NOT.GotIt) THEN
247 IF (.NOT.GotIt) THEN
257 IF (.NOT.GotIt) THEN
270 IF (.NOT.GotIt) THEN
282 IF (.NOT.GotIt) THEN
288 IF (.NOT.GotIt) THEN
497 IF (GotIt) THEN
540 IF (.NOT. GotIt) THEN
[all …]
H A DUSF_ShapeFactor.F9099 LOGICAL :: FirstTime = .TRUE., NewTime, GotIt local
149 IF (.Not.GotIt) Parabola = .FALSE.
151 IF (.Not.GotIt) Rectangle = .FALSE.
159 'Shape Factor', GotIt )
177 Surface = GetLogical( BC, 'Shape Surface', GotIt)
178 Bedrock = GetLogical( BC, 'Shape Bedrock', GotIt)
212 Surface = GetLogical( BC, 'Shape Surface', GotIt)
213 Bedrock = GetLogical( BC, 'Shape Bedrock', GotIt)
311 Surface = GetLogical( BC, 'Shape Surface', GotIt)
312 Bedrock = GetLogical( BC, 'Shape Bedrock', GotIt)
[all …]
H A DBuoyancy.F90103 IF (.NOT.GotIt) THEN
117 IF (.NOT.GotIt) THEN
133 IF (.NOT.GotIt) THEN
204 IF (.Not.GotIt) ComputeS = .FALSE.
261 Zsl = GetCReal( ParentMaterial, 'Sea level', GotIt )
262 IF (.NOT.GotIt) THEN
282 IF (.Not.GotIt) ComputeS = .FALSE.
312 IF (.Not.GotIt) ComputeS = .FALSE.
429 IF (.NOT.GotIt) THEN
477 IF (.Not.GotIt) ComputeS = .FALSE.
[all …]
H A DUSF_LateralFriction.F9095 LOGICAL :: FirstTime = .TRUE., GotIt local
114 g(1) = GetConstReal( BodyForce, 'Lateral Friction Gravity 1', GotIt )
115 g(2) = GetConstReal( BodyForce, 'Lateral Friction Gravity 2', GotIt )
116 IF (.Not.GotIt ) CALL FATAL('LateralFriction', &
120 mm = GetConstReal( BodyForce, 'Lateral Friction Exponent', GotIt )
121 IF (.Not.GotIt ) CALL FATAL('LateralFriction', &
124 FlowSolverName = GetString( BodyForce, 'Flow Solver Name', GotIt )
151 'Lateral Friction Coefficient', GotIt )
H A DUSF_Damage.F9040 LOGICAL :: FirstTime=.TRUE., GotIt local
48 n = GetConstReal( Material, 'Glen Exponent', GotIt )
49 IF (.NOT.GotIt) THEN
98 LOGICAL :: GotIt, FirstTime = .TRUE., Cauchy, UnFoundFatal=.TRUE. local
123 B = GetConstReal( Material, 'Damage Enhancement Factor', GotIt )
124 IF (.NOT.GotIt) THEN
131 sigmath = GetConstReal( Material, 'Damage Parameter sigmath', GotIt )
132 IF (.NOT.GotIt) THEN
223 s = GetConstReal( Constants, 'Dev Tensile Strength Modifier', GotIt)
224 IF (.NOT.GotIt) THEN
/dports/science/elmerfem/elmerfem-release-9.0/fem/src/modules/
H A DReloadData.F9057 LOGICAL :: GotIt, ContReading local
67 FirstStep = GetInteger( Solver % Values, 'Reload Range Minimum', GotIt )
68 IF ( .NOT. GotIt ) FirstStep = 1
70 LastStep = GetInteger( Solver % Values, 'Reload Range Maximum', GotIt )
71 IF ( .NOT. GotIt ) LastStep = 100000
74 IF ( GotIt ) Round = Round + StartingStep - FirstStep
77 IF ( .NOT. GotIt ) StepsBetween = 1
79 ContReading = GetLogical( Solver % Values, 'Continuous Reading', GotIt )
80 IF ( .NOT. GotIt ) ContReading = .TRUE.
95 RestartFile = GetString( Solver % Values, 'Reload Solution File', GotIt )
[all …]
H A DSaveGridData.F9087 LOGICAL :: GotIt, Structured, Visited = .FALSE. local
301 IF( GotIt ) THEN
363 dx(1) = GetCReal( Params,'Grid dx',GotIt)
364 IF(.NOT. GotIt ) THEN
365 nx = GetInteger( Params,'Grid nx',GotIt)
366 IF( GotIt) THEN
374 dx(2) = GetCReal( Params,'Grid dy',GotIt)
375 IF(.NOT. GotIt ) THEN
377 IF( GotIt) THEN
387 IF(.NOT. GotIt ) THEN
[all …]
H A DFindOptimum.F90135 IF( GotIt ) MinParam(i) = minv
139 IF( GotIt .AND. GotIt2 ) THEN
141 ELSE IF( GotIt ) THEN
184 IF(.NOT. GotIt) Cost = GetCReal(OptList,'Cost Function',GotIt)
186 IF(.NOT. GotIt) THEN
221 IF( GotIt ) THEN
242 IF( GotIt ) THEN
363 IF(.NOT. GotIt) popcoeff = 0.7
365 IF(.NOT. GotIt) popcross = 0.1
583 IF(.NOT. GotIt) Relax = 1.0_dp
[all …]
H A DElectrokinetics.F90263 IF (.NOT. GotIt) THEN
330 IF (.NOT. GotIt) THEN
337 IF (.NOT. GotIt) THEN
352 IF (.NOT.GotIt) THEN
367 IF ( .NOT.GotIt ) THEN
381 IF( GotIt ) THEN
455 LOGICAL :: GotIt, ElectricFieldExists local
489 IF (.NOT. GotIt) THEN
499 IF (.NOT. GotIt) THEN
514 IF ( .NOT.GotIt ) THEN
[all …]
H A DFlowSolve.F90399 IF ( GotIt ) THEN
418 IF ( .NOT. GotIt ) THEN
616 IF ( .NOT. GotIt ) THEN
624 IF ( GotIt ) THEN
816 IF( .NOT. GotIt ) THEN
1129 IF (.NOT.GotIt) THEN
1419 LOGICAL :: GotIt local
1672 IF ( GotIt ) Dir(1) = 0
1675 IF ( GotIt ) Dir(2) = 0
1678 IF ( GotIt ) Dir(3) = 0
[all …]
H A DV2FSolver.F90207 IF ( .NOT. GotIt ) THEN
213 IF ( .NOT. GotIt ) THEN
219 IF ( .NOT. GotIt ) THEN
225 IF ( .NOT. GotIt ) THEN
231 IF ( .NOT. GotIt ) THEN
237 IF ( .NOT. GotIt ) THEN
243 IF ( .NOT. GotIt ) THEN
249 IF ( .NOT. GotIt ) THEN
757 IF ( .NOT. GotIt ) THEN
763 IF ( .NOT. GotIt ) THEN
[all …]
H A DFluxSolver.F9091 CalculateGrad = GetLogical(SolverParams,'Calculate Grad',GotIt)
94 CalculateFlux = GetLogical(SolverParams,'Calculate Flux',GotIt)
112 VarName = GetString(SolverParams,'Flux Variable',GotIt )
114 IF(.NOT. GotIt) VarName = GetString(SolverParams,'Target Variable',GotIt )
126 CondName = ListGetString(SolverParams,'Flux Coefficient',GotIt )
586 CalculateGrad = GetLogical(SolverParams,'Calculate Grad',GotIt)
593 IF(.NOT. GotIt ) THEN
604 VarName = GetString(SolverParams,'Flux Variable',GotIt )
605 IF(.NOT. GotIt) VarName = GetString(SolverParams,'Target Variable',GotIt )
607 IF( .NOT. GotIt ) THEN
[all …]
/dports/science/elmerfem/elmerfem-release-9.0/misc/netcdf/src/GridDataMapper/
H A DMapperUtils.f90147 IF ( .NOT. GotIt ) THEN
186 IF (GotIt) THEN
188 GotIt = .FALSE.
269 IF ( .NOT. GotIt ) THEN
299 LOGICAL :: GotIt local
310 GotIt = .TRUE.
311 DO WHILE (GotIt)
316 ptr => ListFind( List,tmpStr,GotIt )
321 IF (GotIt) THEN
323 GotIt = .FALSE.
[all …]
/dports/science/elmerfem/elmerfem-release-9.0/fem/src/
H A DResultToResult.F90281 'Timestep Intervals', GotIt )
283 IF ( .NOT.GotIt ) THEN
291 IF ( .NOT.GotIt ) THEN
346 'Restart File', GotIt )
348 IF ( GotIt ) THEN
460 'Timestep Intervals', GotIt )
462 IF ( .NOT.GotIt ) THEN
470 IF ( .NOT.GotIt ) THEN
565 IF ( .NOT.GotIt ) BinaryOutput = .FALSE.
569 IF ( .NOT.GotIt ) SaveAll = .TRUE.
[all …]
H A DRadiationFactors.F90121 IF (GotIt) THEN
200 IF(.NOT. GotIt) THEN
202 IF( GotIt ) THEN
285 IF(.NOT. GotIt) THEN
297 GotIt = .FALSE.
318 IF(.NOT. GotIt) THEN
326 IF(.NOT. GotIt) x = 1.0d-8
353 IF ( .NOT.GotIt ) THEN
521 IF ( .NOT.GotIt ) THEN
537 IF(.NOT. GotIt) THEN
[all …]
H A DSaveUtils.F90351 IF(.NOT. GotIt) MaskName = ListGetString( Params,'Mask Name',GotIt)
352 GotMaskName = GotIt
460 IF( GotIt ) THEN
465 IF( GotIt ) THEN
486 IF( GotIt ) THEN
488 n, Indexes, GotIt)
491 IF( .NOT. GotIt ) THEN
493 IF( GotIt ) THEN
495 n, Indexes, GotIt)
499 GotIt = .FALSE.
[all …]
H A DElmerSolver.F90399 IF( GotIt ) THEN
532 IF ( GotIt ) THEN
632 IF( GotIt ) THEN
692 IF( GotIt ) THEN
753 IF ( GotIt ) THEN
1932 IF ( GotIt ) THEN
2044 IF( GotIt ) THEN
2173 IF(GotIt) THEN
2202 IF(GotIt) THEN
2674 IF ( GotIt ) THEN
[all …]
H A DIterSolve.F90324 'Linear System GMRES Restart', GotIt )
333 GotIt,minv=0.0_dp,maxv=2.0_dp)
334 IF(.NOT. GotIt) HUTI_SGSPARAM = 1.8
344 'Linear System GCR Restart', GotIt )
352 GotIt,minv=2)
353 IF(.NOT. GotIt) HUTI_BICGSTABL_L = 2
359 IF(.NOT. GotIt) HUTI_IDRS_S = 4
394 'Linear System Residual Output', GotIt )
403 'Linear System Min Iterations', GotIt )
436 'Linear System Divergence Limit', GotIt)
[all …]
H A DMaterialModels.F90302 IF (.NOT.GotIt) THEN
307 IF (.NOT.GotIt) THEN
312 IF (.NOT.GotIt) THEN
317 IF (.NOT.GotIt) THEN
354 IF (GotIt) &
362 IF (GotIt) THEN
387 IF (GotIt) THEN
397 IF (GotIt) THEN
599 IF( GotIt ) THEN
637 LOGICAL :: stat,GotIt local
[all …]
H A DViewFactors.F90277 IF(.NOT. GotIt) MinFactor = 1.0d-20
296 RadiationFlag = GetString( BC, 'Radiation',GotIt )
332 RadiationFlag = GetString( BC, 'Radiation', GotIt )
438 IF ( .NOT. GotIt ) RadBody = GetInteger( BC, 'Normal Target Body',GotIt )
511 IF ( .NOT. GotIt ) Combine = .TRUE.
520 IF ( .NOT. GotIt ) Divide = 1
524 IF ( .NOT. GotIt ) AreaEPS = 1.0d-1
526 IF ( .NOT. GotIt ) FactEPS = 1.0d-2
528 IF ( .NOT. GotIt ) RayEPS = 1.0d-5
530 IF ( .NOT. GotIt ) Nrays = 1
[all …]
/dports/science/elmerfem/elmerfem-release-9.0/fem/tests/ParticleAdvectorZalesak/
H A DZalesak.f9011 LOGICAL :: Visited = .FALSE., GotIt local
18 Lx = ListGetConstReal(Model % Simulation,'Zalesak Lx',GotIt)
19 IF(.NOT. GotIt) Lx = MAXVAL( Model % Nodes % x )
20 Ly = ListGetConstReal(Model % Simulation,'Zalesak Ly',GotIt)
21 IF(.NOT. GotIt) Ly = MAXVAL( Model % Nodes % y )
98 LOGICAL :: Visited = .FALSE., GotIt local
106 IF(.NOT. GotIt) Lx = MAXVAL( Model % Nodes % x )
108 IF(.NOT. GotIt) Ly = MAXVAL( Model % Nodes % y )
129 LOGICAL :: Visited = .FALSE., GotIt local
137 IF(.NOT. GotIt) Lx = MAXVAL( Model % Nodes % x )
[all …]
/dports/science/elmerfem/elmerfem-release-9.0/elmerice/Solvers/
H A DGroundedSolver.F90124 toler = GetConstReal(SolverParams, 'Toler', GotIt)
125 IF (.NOT.GotIt) THEN
132 AllGrounded = GetLogical(SolverParams, 'All Grounded', GotIt)
133 IF(.NOT. GotIt) AllGrounded = .FALSE.
139 IF (GotIt) THEN
146 bedrockName = GetString(SolverParams, 'Bedrock Variable', GotIt)
147 IF (GotIt) THEN
151 bedrockName = GetString(SolverParams, 'Bedrock Material', GotIt)
152 IF (GotIt) THEN
164 FrontVarName = GetString(SolverParams, 'Front Variable', GotIt)
[all …]
/dports/science/elmerfem/elmerfem-release-9.0/elmerice/Tests/DGsolver/PROG/
H A DDGtoNodalVariable.f9018 LOGICAL :: GotIt,UnFoundFatal local
30 InName = GetString(SolverParams,'Input Variable Name', GotIt)
31 IF (.NOT.GotIt) THEN
36 OutName = GetString(SolverParams,'Output Variable Name', GotIt)
37 IF (.NOT.GotIt) THEN
71 LOGICAL :: GotIt,UnFoundFatal local
85 InName = GetString(SolverParams,'Input Variable Name', GotIt)
86 IF (.NOT.GotIt) THEN
91 OutName = GetString(SolverParams,'Output Variable Name', GotIt)
92 IF (.NOT.GotIt) THEN
/dports/science/elmerfem/elmerfem-release-9.0/fem/src/modules/SaveData/
H A DSaveScalars.F9080 IF(.NOT. GotIt) THEN
227 IF(.NOT. GotIt) SaveCVS = ListGetLogical(Params,'CVS Format',GotIt)
280 GotIt = .FALSE.
304 GotIt = .FALSE.
513 GotIt = .FALSE.
830 IF(.NOT. GotIt) &
834 IF(.NOT. GotIt) &
839 IF(.NOT. GotIt) &
1207 IF( GotIt ) THEN
1212 IF( GotIt ) THEN
[all …]
/dports/science/elmerfem/elmerfem-release-9.0/fem/src/modules/ResultOutputSolve/
H A DElmerPostOutputSolver.F9067 IF( GotIt ) THEN
76 'Timestep Intervals', GotIt )
77 IF( GotIt ) THEN
84 IF ( .NOT.GotIt ) FilePrefix = "Output"
125 CurrentModel % BCs(i) % Values,'Free Surface', GotIt )
130 IF ( .NOT. GotIt ) MoveBoundary = .TRUE.
155 IF(.NOT. GotIt) Str = GetString( Solver % Values,'Mask Name',GotIt)
156 IF( GotIt ) THEN
306 IF ( .NOT. GotIt ) &
564 IF( GotIt ) THEN
[all …]

12345678