/dports/science/elmerfem/elmerfem-release-9.0/elmerice/UserFunctions/ |
H A D | USF_Sliding.F90 | 117 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 D | USF_ShapeFactor.F90 | 99 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 D | Buoyancy.F90 | 103 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 D | USF_LateralFriction.F90 | 95 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 D | USF_Damage.F90 | 40 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 D | ReloadData.F90 | 57 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 D | SaveGridData.F90 | 87 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 D | FindOptimum.F90 | 135 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 D | Electrokinetics.F90 | 263 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 D | FlowSolve.F90 | 399 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 D | V2FSolver.F90 | 207 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 D | FluxSolver.F90 | 91 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 D | MapperUtils.f90 | 147 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 D | ResultToResult.F90 | 281 '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 D | RadiationFactors.F90 | 121 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 D | SaveUtils.F90 | 351 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 D | ElmerSolver.F90 | 399 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 D | IterSolve.F90 | 324 '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 D | MaterialModels.F90 | 302 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 D | ViewFactors.F90 | 277 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 D | Zalesak.f90 | 11 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 D | GroundedSolver.F90 | 124 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 D | DGtoNodalVariable.f90 | 18 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 D | SaveScalars.F90 | 80 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 D | ElmerPostOutputSolver.F90 | 67 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 …]
|