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

Missing allocation in disloop code

Browse Source
This commit is contained in:
Alex Selimov 2020-01-27 11:56:31 -05:00
parent 071e8169b9
commit 94e1c9fd7b
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/opt_disl.f90
View File

@ -292,6 +292,7 @@ module opt_disl
end select end select
if(loop_radius < 0.0_dp) then if(loop_radius < 0.0_dp) then
ALLOCATE(xLoop(4,3))
xLoop(:,:) = 0.d0 xLoop(:,:) = 0.d0
xLoop(1,a1) = centroid(1) - loop_radius xLoop(1,a1) = centroid(1) - loop_radius
xLoop(1,a2) = centroid(2) - loop_radius xLoop(1,a2) = centroid(2) - loop_radius