aselimov/cacmb
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Working changes to boundary command

Browse source
This commit is contained in:
Alex Selimov 2020-03-05 16:19:30 -05:00
parent 80c931d77a
commit 0ad06a2d6b
6 changed files with 19 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/elements.f90
View file

@ -479,15 +479,16 @@ module elements
do j = 1, 3
if (r_node(j,ibasis,inod,i) > max_bd(j)) max_bd(j) = r_node(j,ibasis,inod,i) + lim_zero
if (r_node(j,ibasis,inod,i) < min_bd(j)) min_bd(j) = r_node(j,ibasis,inod,i) -lim_zero
end do
end do
end do
end do
do j = 1, 3
box_bd(2*j) = max_bd(j)
box_bd(2*j-1) = min_bd(j)
if(box_bc(j:j) == 's') then
box_bd(2*j) = max_bd(j)
box_bd(2*j-1) = min_bd(j)
end if
end do
end subroutine