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

Added efill option

Browse source
This commit is contained in:
Alex Selimov 2020-05-20 15:09:12 -04:00
parent 8693d7aaa9
commit 5dda0e3b81
2 changed files with 11 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/mode_create.f90
View file

@ -151,11 +151,11 @@ module mode_create
curr_esize=esize
do ei = 1, esize_nums
if(i < esize_index(ei)) then
if(i <= esize_index(ei)) then
call add_element(element_type, curr_esize, 1, 1, r_node_temp)
exit
end if
curr_esize=curr_esize/2 + 1
curr_esize=esize/(2**ei) - 1
end do
end do
end if
@ -257,7 +257,6 @@ module mode_create
end do
case('efill')
arg_pos=arg_pos+1
efill = .true.
case default
!If it isn't an option then you have to exit
@ -340,7 +339,7 @@ module mode_create
esize_nums=0
do while (curr_esize >= 7)
esize_nums=esize_nums+1
curr_esize = curr_esize/2 + 1
curr_esize = esize/(2**esize_nums) -1
end do
else
esize_nums=1
@ -497,7 +496,7 @@ module mode_create
end do
end do
esize_index(ei) = lat_ele_num
curr_esize=curr_esize/2 + 1
curr_esize=esize/(2**ei) - 1
end do
!Now figure out how many lattice points could not be contained in elements
allocate(r_atom_lat(3,count(lat_points)))