PlasCom2  1.0
XPACC Multi-physics simluation application
CSTestKernelsFortran.f90
Go to the documentation of this file.
1 !
2 ! @file Kernels for testing
3 !
4 ! @ICE block=simpleReplaceFortran
5 SUBROUTINE testkernel(result)
6 
7  INTEGER :: result
8 
9  result = 0
10  WRITE(*,*) 'Hello PlasCom2 World.'
11 
12 END SUBROUTINE testkernel
13 ! @ICE endblock
14 
15 !
16 !
17 SUBROUTINE iceunrollfortrantestkernel(result)
18 
19  INTEGER :: result
20  INTEGER :: iBegin, iEnd, jBegin, jEnd, kBegin, kEnd
21 
22  ibegin = 0
23  iend = 20
24  jbegin = 0
25  jend = 10
26  kbegin = 0
27  kend = 5
28 
29  result = 0
30 
31  ! @ICE loop=unrollTestFortran
32  do i = ibegin, iend
33  do j = jbegin, jend
34  do k = kbegin, kend
35  result = result + 1
36  enddo
37  enddo
38  enddo
39  ! @ICE endloop
40 
41 END SUBROUTINE iceunrollfortrantestkernel
42 !
43 !
44 SUBROUTINE iceinterchangefortrantestkernel(result)
45 
46  INTEGER :: result
47  INTEGER :: iBegin, iEnd, jBegin, jEnd, kBegin, kEnd
48 
49  ibegin = 0
50  iend = 20
51  jbegin = 0
52  jend = 10
53  kbegin = 0
54  kend = 5
55 
56  result = 0
57 
58  ! @ICE loop=interchangeTestFortran
59  do i = ibegin, iend
60  do j = jbegin, jend
61  do k = kbegin, kend
62  result = result + 1
63  enddo
64  enddo
65  enddo
66  ! @ICE endloop
67 
68 END SUBROUTINE iceinterchangefortrantestkernel
69 !
70 !
71 SUBROUTINE icetilefortrantestkernel(result)
72 
73  INTEGER :: result
74  INTEGER :: iBegin, iEnd, jBegin, jEnd, kBegin, kEnd
75 
76  ibegin = 0
77  iend = 20
78  jbegin = 0
79  jend = 10
80  kbegin = 0
81  kend = 5
82 
83  result = 0
84 
85  ! @ICE loop=tileTestFortran
86  do i = ibegin, iend
87  do j = jbegin, jend
88  do k = kbegin, kend
89  result = result + 1
90  enddo
91  enddo
92  enddo
93  ! @ICE endloop
94 
95 END SUBROUTINE icetilefortrantestkernel
96 !
97 !
98 SUBROUTINE icestripminefortrantestkernel(result)
99 
100  INTEGER :: result
101  INTEGER :: iBegin, iEnd, jBegin, jEnd, kBegin, kEnd
102 
103  ibegin = 0
104  iend = 20
105  jbegin = 0
106  jend = 10
107  kbegin = 0
108  kend = 5
109 
110  result = 0
111 
112  ! @ICE loop=stripMineTestFortran
113  do i = ibegin, iend
114  do j = jbegin, jend
115  do k = kbegin, kend
116  result = result + 1
117  enddo
118  enddo
119  enddo
120  ! @ICE endloop
121 
122 END SUBROUTINE icestripminefortrantestkernel
iceunrollfortrantestkernel
subroutine iceunrollfortrantestkernel(result)
Definition: CSTestKernelsFortran.f90:18
testkernel
subroutine testkernel(result)
Definition: TestICEReplaceFortran.f90:2
iceinterchangefortrantestkernel
subroutine iceinterchangefortrantestkernel(result)
Definition: CSTestKernelsFortran.f90:45
icestripminefortrantestkernel
subroutine icestripminefortrantestkernel(result)
Definition: CSTestKernelsFortran.f90:99
icetilefortrantestkernel
subroutine icetilefortrantestkernel(result)
Definition: CSTestKernelsFortran.f90:72