SFEMaNS
version 4.1 (work in progress)
Reference documentation for SFEMaNS
Home
Documentation
Data Types List
Files
File List
All
Classes
Files
Functions
Variables
Groups
Pages
associate_gauss.f90
Go to the documentation of this file.
1
!
2
!Authors: Jean-Luc Guermond, Copyright 2000
3
!
4
MODULE
gauss_points
5
6
USE
def_type_mesh
7
8
PUBLIC
9
INTEGER
,
PUBLIC
:: k_d, n_w, l_G , n_ws, l_Gs
10
REAL(KIND=8)
,
DIMENSION(:, :)
,
POINTER
:: ww
11
REAL(KIND=8)
,
DIMENSION(:, :)
,
POINTER
:: wws
12
REAL(KIND=8)
,
DIMENSION(:, :, :, :)
,
POINTER
:: dw
13
REAL(KIND=8)
,
DIMENSION(:, :, :)
,
POINTER
:: rnorms
14
REAL(KIND=8)
,
DIMENSION(:, :)
,
POINTER
:: rj
15
REAL(KIND=8)
,
DIMENSION(:, :)
,
POINTER
:: rjs
16
REAL(KIND=8)
,
DIMENSION(:, :, :, :)
,
POINTER
:: dw_s
17
REAL(KIND=8)
,
DIMENSION(:, :, :, :)
,
POINTER
:: dwps
!special!
18
REAL(KIND=8)
,
DIMENSION(:, :, :, :)
,
POINTER
:: dws
!SPECIAL!
19
20
21
CONTAINS
22
23
SUBROUTINE
gauss
(mesh)
24
25
IMPLICIT NONE
26
27
TYPE(
mesh_type
)
:: mesh
28
29
ww => mesh%gauss%ww
30
wws => mesh%gauss%wws
31
dw => mesh%gauss%dw
32
rnorms => mesh%gauss%rnorms
33
rj => mesh%gauss%rj
34
rjs => mesh%gauss%rjs
35
dw_s => mesh%gauss%dw_s
36
dwps => mesh%gauss%dwps
37
dws => mesh%gauss%dws
38
39
k_d =
SIZE
(dw,1)
40
n_w =
SIZE
(ww,1)
41
l_g =
SIZE
(ww,2)
42
n_ws =
SIZE
(wws,1)
43
l_gs =
SIZE
(wws,2)
44
45
END SUBROUTINE
gauss
46
47
END MODULE
gauss_points
48
gauss_points
Definition:
associate_gauss.f90:4
def_type_mesh::mesh_type
Definition:
def_type_mesh.f90:73
def_type_mesh
Definition:
def_type_mesh.f90:4
gauss_points::gauss
subroutine gauss(mesh)
Definition:
associate_gauss.f90:23
FEMSUB_OBJET
associate_gauss.f90
Generated on Mon Apr 3 2017 19:12:46 for SFEMaNS by
1.8.5