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
|
! { dg-do compile }
! Tests the fix for PR28590, in which pointer components of sequence
! types would give the error that the component is itself not a
! sequence type (4.4.1) if the component was not already defined.
!
! Contributed by Chris Nelson <ccnelson@itacllc.com>
!
module data_types
Integer, Parameter :: kindAry = selected_int_kind(r=8)
Integer, Parameter :: kindInt = selected_int_kind(r=8)
Integer, Parameter :: kindQ = selected_real_kind(p=6,r=37)
Integer, Parameter :: kindXYZ = selected_real_kind(p=13,r=200)
Integer, Parameter :: kindDouble = selected_real_kind(p=13,r=200)
type GroupLoadInfo
sequence
Integer(kindAry) :: loadMode
Integer(kindAry) :: normalDir
Real(kindQ) :: refS, refL, refX, refY, refZ
Real(kindQ) :: forcex, forcey, forcez
Real(kindQ) :: forcexv, forceyv, forcezv
Real(kindQ) :: momx, momy, momz
Real(kindQ) :: momxv, momyv, momzv
Real(kindQ) :: flmassx, flmassy, flmassz
Real(kindQ) :: flmomtmx, flmomtmy, flmomtmz
Real(kindQ) :: flheatN
end type GroupLoadInfo
type GroupRigidMotion
sequence
Integer(kindInt) :: motiontyp
Real(kindXYZ), dimension(3) :: xref
Real(kindXYZ), dimension(3) :: angCurrent
Real(kindXYZ), dimension(3) :: xdot
Real(kindXYZ), dimension(3) :: angNew
Real(kindXYZ), dimension(3) :: angRate
Real(kindDouble) :: curTim
Real(kindXYZ) , pointer :: properties
Type(PrescribedMotionData) , pointer :: PrescribeDat
end type GroupRigidMotion
type PrescribedMotionData
sequence
Integer(kindInt) :: prescr_typ
Real(kindXYZ), dimension(3) :: xvel
Real(kindXYZ) :: amplitude
Real(kindXYZ) :: frequency
Real(kindXYZ) :: phase
Real(kindXYZ), dimension(3) :: thetadot
Real(kindXYZ), dimension(3) :: thetaddot
end type PrescribedMotionData
type GroupDeformingMotion
sequence
Integer(kindAry) :: nmodes
end type GroupDeformingMotion
type GroupLL
sequence
type(GroupLL) , pointer :: next
type(GroupLL) , pointer :: parent
character(32) :: name
type(GroupDefLL) , pointer :: entities
type(GroupLoadInfo) , pointer :: loadInfo
type(GroupRigidMotion) , pointer :: RigidMotion
type(GroupDeformingMotion), pointer :: DeformingMotion
end type GroupLL
type GroupDefLL
sequence
type ( GroupDefLL ), pointer :: next
Integer(kindInt) :: zone
Integer(kindInt) :: surface
type ( GroupLL ), pointer :: subGrp
Integer(kindInt) :: normalDir
Integer(kindInt), dimension(:), pointer :: subset
end type GroupDefLL
end module data_types
|
