aselimov/CACmb
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix to disloop code

Browse Source
This commit is contained in:
Alex 2020-02-21 17:18:39 -05:00
parent 1b82d98a4f
commit 6a0d441bd0
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
src/opt_disl.f90
View File

@ -285,18 +285,18 @@ module opt_disl
if(loop_radius < 0.0_dp) then
ALLOCATE(xLoop(4,3))
xLoop(:,:) = 0.d0
xLoop(1,a1) = centroid(1) - loop_radius
xLoop(1,a2) = centroid(2) - loop_radius
xLoop(1,a3) = centroid(3)
xLoop(2,a1) = centroid(1) + loop_radius
xLoop(2,a2) = centroid(2) - loop_radius
xLoop(2,a3) = centroid(3)
xLoop(3,a1) = centroid(1) + loop_radius
xLoop(3,a2) = centroid(2) + loop_radius
xLoop(3,a3) = centroid(3)
xLoop(4,a1) = centroid(1) - loop_radius
xLoop(4,a2) = centroid(2) + loop_radius
xLoop(4,a3) = centroid(3)
xLoop(1,a1) = centroid(a1) + loop_radius
xLoop(1,a2) = centroid(a2) + loop_radius
xLoop(1,a3) = centroid(a3)
xLoop(2,a1) = centroid(a1) - loop_radius
xLoop(2,a2) = centroid(a2) + loop_radius
xLoop(2,a3) = centroid(a3)
xLoop(3,a1) = centroid(a1) - loop_radius
xLoop(3,a2) = centroid(a2) - loop_radius
xLoop(3,a3) = centroid(a3)
xLoop(4,a1) = centroid(a1) + loop_radius
xLoop(4,a2) = centroid(a2) - loop_radius
xLoop(4,a3) = centroid(a3)
else
!Calculate loop perimeter
perimeter = 2.0_dp*pi*loop_radius