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

merge changes

Browse Source
development
Alex Selimov 4 years ago
parent f63335708b 51079148cc
commit fa38875296
2 changed files with 68 additions and 58 deletions
Show Stats Download Patch File Download Diff File

6
src/Makefile
Unescape View File

@ -1,12 +1,12 @@
FC=gfortran FC=ifort
#Ifort flags #Ifort flags
#FFLAGS=-mcmodel=large -g -O0 -stand f08 -fpe0 -traceback -check bounds,uninit -warn all -implicitnone -no-wrap-margin -heap-arrays #FFLAGS=-mcmodel=large -g -O0 -stand f08 -fpe0 -traceback -check bounds,uninit -warn all -implicitnone -no-wrap-margin -heap-arrays
#FFLAGS=-mcmodel=large -Ofast -no-wrap-margin -heap-arrays FFLAGS=-mcmodel=large -Ofast -no-wrap-margin -heap-arrays
#gfortran flags #gfortran flags
#FFLAGS=-mcmodel=large -O3 -g #FFLAGS=-mcmodel=large -O3 -g
FFLAGS=-mcmodel=large -O0 -g -fbacktrace -fcheck=all #FFLAGS=-mcmodel=large -O0 -g -fbacktrace -fcheck=all
MODES=mode_create.o mode_merge.o mode_convert.o MODES=mode_create.o mode_merge.o mode_convert.o
OPTIONS=opt_disl.o opt_group.o opt_orient.o opt_delete.o opt_deform.o opt_redef_box.o opt_slip_plane.o OPTIONS=opt_disl.o opt_group.o opt_orient.o opt_delete.o opt_deform.o opt_redef_box.o opt_slip_plane.o

120
src/elements.f90
Unescape View File

@ -198,64 +198,74 @@ module elements
!The default size we grow the !The default size we grow the
buffer_size = 1024 buffer_size = 1024
!Figure out the size of the atom and element arrays
ele_size = size(size_ele) !First check to make sure if it is allocated
atom_size = size(type_atom) if (allocated(size_ele)) then
!Figure out the size of the atom and element arrays
!Check if we need to grow the ele_size, if so grow all the variables ele_size = size(size_ele)
if ( n+ele_num > size(size_ele)) then
!Check if we need to grow the ele_size, if so grow all the variables
allocate(temp_int(n+ele_num+buffer_size)) if ( n+ele_size > size(size_ele)) then
temp_int(1:ele_size) = lat_ele
temp_int(ele_size+1:) = 0 allocate(temp_int(n+ele_size+buffer_size))
call move_alloc(temp_int, lat_ele) temp_int(1:ele_size) = lat_ele
temp_int(ele_size+1:) = 0
allocate(temp_int(n+ele_num+buffer_size)) call move_alloc(temp_int, lat_ele)
temp_int(1:ele_size) = tag_ele(1:ele_size)
temp_int(ele_size+1:) = 0 allocate(temp_int(n+ele_size+buffer_size))
call move_alloc(temp_int, tag_ele) temp_int(1:ele_size) = tag_ele
temp_int(ele_size+1:) = 0
allocate(temp_int(n+ele_num+buffer_size)) call move_alloc(temp_int, tag_ele)
temp_int(1:ele_size) = size_ele(1:ele_size)
temp_int(ele_size+1:) = 0 allocate(temp_int(n+ele_size+buffer_size))
call move_alloc(temp_int, size_ele) temp_int(1:ele_size) = size_ele
temp_int(ele_size+1:) = 0
allocate(temp_int(n+ele_num+buffer_size)) call move_alloc(temp_int, size_ele)
temp_int(1:ele_size) = lat_ele(1:ele_size)
temp_int(ele_size+1:) = 0 allocate(temp_int(n+ele_size+buffer_size))
call move_alloc(temp_int, sbox_ele) temp_int(1:ele_size) = sbox_ele(1:ele_size)
temp_int(ele_size+1:) = 0
allocate(char_temp(n+ele_num+buffer_size)) call move_alloc(temp_int, sbox_ele)
char_temp(1:ele_size) = type_ele
call move_alloc(char_temp, type_ele) allocate(char_temp(n+ele_size+buffer_size))
char_temp(1:ele_size) = type_ele(1:ele_size)
allocate(temp_ele_real(3, max_basisnum, max_ng_node, n+ele_num+buffer_size)) call move_alloc(char_temp, type_ele)
temp_ele_real(:,:,:,1:ele_size) = r_node
temp_ele_real(:,:,:,ele_size+1:) = 0.0_dp allocate(temp_ele_real(3, max_basisnum, max_ng_node, n+ele_size+buffer_size))
call move_alloc(temp_ele_real, r_node) temp_ele_real(:,:,:,1:ele_size) = r_node(:,:,:,1:ele_size)
temp_ele_real(:,:,:,ele_size+1:) = 0.0_dp
call move_alloc(temp_ele_real, r_node)
end if
else
call alloc_ele_arrays(n,0)
end if end if
!Now grow atom arrays if needed !Now grow atom arrays if needed
if (m+atom_num > atom_size) then if (allocated(type_atom)) then
allocate(temp_int(m+atom_num+buffer_size)) atom_size = size(type_atom)
temp_int(1:atom_size) = type_atom if (m+atom_num > atom_size) then
temp_int(atom_size+1:) = 0 allocate(temp_int(m+atom_size+buffer_size))
call move_alloc(temp_int, type_atom) temp_int(1:atom_size) = type_atom
temp_int(atom_size+1:) = 0
allocate(temp_int(m+atom_num+buffer_size)) call move_alloc(temp_int, type_atom)
temp_int(1:atom_size) = tag_atom
temp_int(atom_size+1:) = 0 allocate(temp_int(m+atom_size+buffer_size))
call move_alloc(temp_int, tag_atom) temp_int(1:atom_size) = tag_atom
temp_int(atom_size+1:) = 0
allocate(temp_int(m+atom_num+buffer_size)) call move_alloc(temp_int, tag_atom)
temp_int(1:atom_size) = sbox_atom
temp_int(atom_size+1:) = 0 allocate(temp_int(m+atom_size+buffer_size))
call move_alloc(temp_int, sbox_atom) temp_int(1:atom_size) = sbox_atom
temp_int(atom_size+1:) = 0
allocate(temp_real(3,m+atom_num+buffer_size)) call move_alloc(temp_int, sbox_atom)
temp_real(:,1:atom_size) = r_atom
temp_real(:, atom_size+1:) = 0.0_dp allocate(temp_real(3,m+atom_size+buffer_size))
call move_alloc(temp_real, r_atom) temp_real(:,1:atom_size) = r_atom
temp_real(:, atom_size+1:) = 0.0_dp
call move_alloc(temp_real, r_atom)
end if
else
call alloc_ele_arrays(0,m)
end if end if
end subroutine end subroutine

Write Preview
Loading…
Cancel
Save