/beegfs/hackathon/users/eoseret/qaas_runs_test/178-661-4072/intel/CloverLeaf1.3-FC/build/build/CMakeFiles/clover_leaf.dir/CloverLeaf_ref/kernels/generate_chunk_kernel.f90-pp.f90: 85 - 172
--------------------------------------------------------------------------------

85: # 85 "/beegfs/hackathon/users/eoseret/qaas_runs_test/178-661-4072/intel/CloverLeaf1.3-FC/build/CloverLeaf1.3-FC/CloverLeaf_ref/kernels/generate_chunk_kernel.f90"
86:     !$OMP PARALLEL SHARED(x_cent,y_cent)
87:     !$OMP DO
88:     DO k=y_min-2,y_max+2
89:     !$OMP SIMD
90:       DO j=x_min-2,x_max+2
91:         energy0(j,k)=state_energy(1)
92:       ENDDO
93:     ENDDO
94:     !$OMP END DO
95:     !$OMP DO
96:     DO k=y_min-2,y_max+2
97:     !$OMP SIMD
98:       DO j=x_min-2,x_max+2
99:         density0(j,k)=state_density(1)
100:       ENDDO
101:     ENDDO
102:     !$OMP END DO
103:     !$OMP DO
104:     DO k=y_min-2,y_max+2
105:     !$OMP SIMD
106:       DO j=x_min-2,x_max+2
107:         xvel0(j,k)=state_xvel(1)
108:       ENDDO
109:     ENDDO
110:     !$OMP END DO
111:     !$OMP DO
112:     DO k=y_min-2,y_max+2
113:     !$OMP SIMD
114:       DO j=x_min-2,x_max+2
115:         yvel0(j,k)=state_yvel(1)
116:       ENDDO
117:     ENDDO
118:     !$OMP END DO
119: # 119 "/beegfs/hackathon/users/eoseret/qaas_runs_test/178-661-4072/intel/CloverLeaf1.3-FC/build/CloverLeaf1.3-FC/CloverLeaf_ref/kernels/generate_chunk_kernel.f90"
120:     DO state=2,number_of_states
121: # 121 "/beegfs/hackathon/users/eoseret/qaas_runs_test/178-661-4072/intel/CloverLeaf1.3-FC/build/CloverLeaf1.3-FC/CloverLeaf_ref/kernels/generate_chunk_kernel.f90"
122:       ! Could the velocity setting be thread unsafe?
123:       x_cent=state_xmin(state)
124:       y_cent=state_ymin(state)
125: # 125 "/beegfs/hackathon/users/eoseret/qaas_runs_test/178-661-4072/intel/CloverLeaf1.3-FC/build/CloverLeaf1.3-FC/CloverLeaf_ref/kernels/generate_chunk_kernel.f90"
126:       !$OMP DO PRIVATE(radius,jt,kt)
127:       DO k=y_min-2,y_max+2
128:       !$OMP SIMD
129:         DO j=x_min-2,x_max+2
130:           IF(state_geometry(state).EQ.g_rect ) THEN
131:             IF(vertexx(j+1).GE.state_xmin(state).AND.vertexx(j).LT.state_xmax(state)) THEN
132:               IF(vertexy(k+1).GE.state_ymin(state).AND.vertexy(k).LT.state_ymax(state)) THEN
133:                 energy0(j,k)=state_energy(state)
134:                 density0(j,k)=state_density(state)
135:                 DO kt=k,k+1
136:                   DO jt=j,j+1
137:                     xvel0(jt,kt)=state_xvel(state)
138:                     yvel0(jt,kt)=state_yvel(state)
139:                   ENDDO
140:                 ENDDO
141:               ENDIF
142:             ENDIF
143:           ELSEIF(state_geometry(state).EQ.g_circ ) THEN
144:             radius=SQRT((cellx(j)-x_cent)*(cellx(j)-x_cent)+(celly(k)-y_cent)*(celly(k)-y_cent))
145:             IF(radius.LE.state_radius(state))THEN
146:               energy0(j,k)=state_energy(state)
147:               density0(j,k)=state_density(state)
148:               DO kt=k,k+1
149:                 DO jt=j,j+1
150:                   xvel0(jt,kt)=state_xvel(state)
151:                   yvel0(jt,kt)=state_yvel(state)
152:                 ENDDO
153:               ENDDO
154:             ENDIF
155:           ELSEIF(state_geometry(state).EQ.g_point) THEN
156:             IF(vertexx(j).EQ.x_cent .AND. vertexy(k).EQ.y_cent) THEN
157:               energy0(j,k)=state_energy(state)
158:               density0(j,k)=state_density(state)
159:               DO kt=k,k+1
160:                 DO jt=j,j+1
161:                   xvel0(jt,kt)=state_xvel(state)
162:                   yvel0(jt,kt)=state_yvel(state)
163:                 ENDDO
164:               ENDDO
165:             ENDIF
166:           ENDIF
167:         ENDDO
168:       ENDDO
169:     !$OMP END DO
170: # 170 "/beegfs/hackathon/users/eoseret/qaas_runs_test/178-661-4072/intel/CloverLeaf1.3-FC/build/CloverLeaf1.3-FC/CloverLeaf_ref/kernels/generate_chunk_kernel.f90"
171:     ENDDO
172: # 172 "/beegfs/hackathon/users/eoseret/qaas_runs_test/178-661-4072/intel/CloverLeaf1.3-FC/build/CloverLeaf1.3-FC/CloverLeaf_ref/kernels/generate_chunk_kernel.f90"
