/home/eoseret/qaas_runs_CPU_9468/171-152-3172/intel/CloverLeafFC/build/CloverLeafFC/CloverLeaf_ref/kernels/generate_chunk_kernel.f90: 87 - 163
--------------------------------------------------------------------------------

87:     DO k=y_min-2,y_max+2
[...]
128:         DO j=x_min-2,x_max+2
129:           IF(state_geometry(state).EQ.g_rect ) THEN
130:             IF(vertexx(j+1).GE.state_xmin(state).AND.vertexx(j).LT.state_xmax(state)) THEN
131:               IF(vertexy(k+1).GE.state_ymin(state).AND.vertexy(k).LT.state_ymax(state)) THEN
132:                 energy0(j,k)=state_energy(state)
133:                 density0(j,k)=state_density(state)
134:                 DO kt=k,k+1
135:                   DO jt=j,j+1
136:                     xvel0(jt,kt)=state_xvel(state)
137:                     yvel0(jt,kt)=state_yvel(state)
138:                   ENDDO
139:                 ENDDO
140:               ENDIF
141:             ENDIF
142:           ELSEIF(state_geometry(state).EQ.g_circ ) THEN
143:             radius=SQRT((cellx(j)-x_cent)*(cellx(j)-x_cent)+(celly(k)-y_cent)*(celly(k)-y_cent))
144:             IF(radius.LE.state_radius(state))THEN
145:               energy0(j,k)=state_energy(state)
146:               density0(j,k)=state_density(state)
147:               DO kt=k,k+1
148:                 DO jt=j,j+1
149:                   xvel0(jt,kt)=state_xvel(state)
150:                   yvel0(jt,kt)=state_yvel(state)
151:                 ENDDO
152:               ENDDO
153:             ENDIF
154:           ELSEIF(state_geometry(state).EQ.g_point) THEN
155:             IF(vertexx(j).EQ.x_cent .AND. vertexy(k).EQ.y_cent) THEN
156:               energy0(j,k)=state_energy(state)
157:               density0(j,k)=state_density(state)
158:               DO kt=k,k+1
159:                 DO jt=j,j+1
160:                   xvel0(jt,kt)=state_xvel(state)
161:                   yvel0(jt,kt)=state_yvel(state)
162:                 ENDDO
163:               ENDDO
