1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
|
!
!-----------------------------------------------------------------------
!
!Purpose:
! Definition of parameter types used in Dragon.
!
!Copyright:
! Copyright (C) 2001 Ecole Polytechnique de Montreal.
! This library is free software; you can redistribute it and/or
! modify it under the terms of the GNU Lesser General Public
! License as published by the Free Software Foundation; either
! version 2.1 of the License, or (at your option) any later version.
!
!Author(s):
! G. Civario (CS-SI)
!
!-----------------------------------------------------------------------
!
module constType
implicit none
!type of geometry (ST(1))
integer,parameter :: G_Virtual=0
integer,parameter :: G_Homoge=1
integer,parameter :: G_Car1d=2
integer,parameter :: G_Tube=3
integer,parameter :: G_Car2d=5
integer,parameter :: G_Hex=8
integer,parameter :: G_Tri=13
integer,parameter :: G_Carcel=20
integer,parameter :: G_Hexcel=24
integer,parameter :: G_Group=30
!type of sectorisation (ST(14))
integer,parameter :: S_X_tot=-1
integer,parameter :: S_not=0
integer,parameter :: S_T_tot=1 !"T" = "+"
integer,parameter :: S_TX_tot=2
integer,parameter :: S_TXS_tot=3
integer,parameter :: S_WM_tot=4
!type of hexagonal symetry (IHEX)
integer,parameter :: H_S30=1
integer,parameter :: H_SA60=2
integer,parameter :: H_SB60=3
integer,parameter :: H_S90=4
integer,parameter :: H_R120=5
integer,parameter :: H_R180=6
integer,parameter :: H_SA180=7
integer,parameter :: H_SB180=8
integer,parameter :: H_Complete=9
!type of triangular symetry (ITRI)
integer,parameter :: T_S30=1
integer,parameter :: T_SA60=2
integer,parameter :: T_ST60=3
integer,parameter :: T_Complete=4
!type of boundary condition (NCODE)
integer,parameter :: B_NotUsed=0
integer,parameter :: B_Void=1
integer,parameter :: B_Refl=2
integer,parameter :: B_Diag=3
integer,parameter :: B_Tran=4
integer,parameter :: B_Syme=5
integer,parameter :: B_Albe=6
integer,parameter :: B_Zero=7
integer,parameter :: B_Pi_2=8
integer,parameter :: B_Pi=9
integer,parameter :: B_Ssym=10
!type of rotation (TURN)
integer,parameter :: R_A=1
integer,parameter :: R_B=2
integer,parameter :: R_C=3
integer,parameter :: R_D=4
integer,parameter :: R_E=5
integer,parameter :: R_F=6
integer,parameter :: R_G=7
integer,parameter :: R_H=8 !max for cartesian
integer,parameter :: R_I=9
integer,parameter :: R_J=10
integer,parameter :: R_K=11
integer,parameter :: R_L=12 !max for hex and tri
!
type t_point
double precision :: x
double precision :: y
end type t_point
end module constType
|
