/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: 129 - 167
--------------------------------------------------------------------------------

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
