CAD in Civil Engineering - Baustatik-Info-Server

Page iv Computer Languages for Engineering - SS 132.8.1 Explicit Loops with Counter in 66, 77 and 90+ . . . . . . . . . . . . . . . . . . 292.8.2 Simple Nested Loop Example . . . . . . . . . . . . . . . . . . . . . . . . . . . 302.8.3 Quit a Cycle or a Loop . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 312.8.4 Implicit, General Loop without a Control Structure in 90+ . . . . . . . . . . . . 322.8.5 Factorial in FORTRAN 90++ . . . . . . . . . . . . . . . . . . . . . . . . . . . 332.9 Branching . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 342.9.1 if Statement, Fortran 66 like . . . . . . . . . . . . . . . . . . . . . . . . . . . . 342.9.2 Implementation of a Quadratic Equation Solver . . . . . . . . . . . . . . . . . . 352.9.2.1 Some Theory . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 352.9.2.2 A Flow-Chart of the QuadSolver . . . . . . . . . . . . . . . . . . . . 362.9.2.3 Quadratic Equation, Solver Implementation Fortran 66 like . . . . . . 362.9.2.4 Quadratic Equation, Solver Implementation Fortran 90 like . . . . . . 382.10 Subroutines and Functions . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 402.10.1 Functions . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 402.10.2 Subroutines . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 412.10.3 Functions as Parameters . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 422.11 Arrays . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 422.11.1 Static Array . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 422.11.2 Dynamical Array . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 432.11.3 Automatic Array . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 432.11.4 A little Array Example . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 432.11.5 Pseudo Dynamic Arrays in Fortran 77 . . . . . . . . . . . . . . . . . . . . . . . 472.12 Global Data . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 492.12.1 Classical Fortran and Common . . . . . . . . . . . . . . . . . . . . . . . . . . . 492.12.2 Some Aspects of the Module Concept of Fortran 90 . . . . . . . . . . . . . . . . 492.12.3 Using global Data . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 503 Some Examples 533.1 Hello World . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 533.2 Simple Sum . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 533.3 Calculation of real*4/8 Precision . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 543.4 Relative Precision with Functions . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 553.5 Newton’s Algorithm to calculate a Root . . . . . . . . . . . . . . . . . . . . . . . . . . 573.6 Matrix Product with 77-Main and 90-Library . . . . . . . . . . . . . . . . . . . . . . . 654 Linear Algebra, Vectors and Matrices 694.1 Helper Functions . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 694.1.1 Outlines . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 694.1.2 Reset and List . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 694.1.3 LU-Extract, MatMult and DiffMat . . . . . . . . . . . . . . . . . . . . . . . . . 734.1.4 Text Files . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 764.1.5 Memory Manager . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 784.1.6 Multi Matrix Allocation . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 814.1.7 Tracing . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 854.2 Gauss-LU-Algorithm . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 894.2.1 Gauss Decomposition . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 89E. Baeck