Manual merge of control box code
This commit is contained in:
Alex Selimov
commit
4dcaddb2cb
16 changed files with 773 additions and 101 deletions
179
src/io.f90
179
src/io.f90
|
|
@ -106,7 +106,7 @@ module io
|
|||
call write_lmpcac(outfiles(i))
|
||||
case default
|
||||
print *, "The extension ", trim(adjustl(outfiles(i)(scan(outfiles(i),'.',.true.)+1:))), &
|
||||
" is not accepted for writing. Please select from: xyz and try again"
|
||||
" is not accepted for writing. Please select from: xyz, lmp, vtk, mb, restart, cac and try again"
|
||||
stop
|
||||
|
||||
end select
|
||||
|
|
@ -583,34 +583,41 @@ module io
|
|||
temp_infile = filename
|
||||
end if
|
||||
|
||||
!Infinite loop which only exists if user provides valid filetype
|
||||
do while(.true.)
|
||||
!Check to see if file exists, if it does then ask user if they would like to overwrite the file
|
||||
inquire(file=trim(temp_infile), exist=file_exists)
|
||||
if (.not.file_exists) then
|
||||
print *, "The file ", trim(adjustl(filename)), " does not exist. Please input an existing file to read."
|
||||
stop 3
|
||||
end if
|
||||
|
||||
!Check to see if file exists, if it does then ask user if they would like to overwrite the file
|
||||
inquire(file=trim(temp_infile), exist=file_exists)
|
||||
if (.not.file_exists) then
|
||||
print *, "The file ", trim(adjustl(filename)), " does not exist. Please input a filename that exists"
|
||||
read(*,*) temp_infile
|
||||
cycle
|
||||
select case(temp_infile(scan(temp_infile,'.',.true.)+1:))
|
||||
case('restart', 'mb', 'cac')
|
||||
infilenum=infilenum+1
|
||||
infiles(infilenum) = temp_infile
|
||||
case('out')
|
||||
if(atom_types == 0) then
|
||||
print *, "Please run -set_types command prior to running code requiring reading in pycac_*.out files"
|
||||
stop 3
|
||||
end if
|
||||
|
||||
select case(temp_infile(scan(temp_infile,'.',.true.)+1:))
|
||||
case('restart', 'mb', 'cac')
|
||||
infilenum=infilenum+1
|
||||
infiles(infilenum) = temp_infile
|
||||
exit
|
||||
case default
|
||||
print *, "File type: ", trim(temp_infile(scan(temp_infile,'.',.true.):)), "not currently accepted. ", &
|
||||
"please input a filename with extension from following list: mb, restart."
|
||||
read(*,*) temp_infile
|
||||
|
||||
select case(trim(adjustl(mode)))
|
||||
case('--convert','--metric')
|
||||
infilenum = infilenum+1
|
||||
infiles(infilenum) = temp_infile
|
||||
case default
|
||||
print *, "Files of type .out cannot be used with mode ", trim(adjustl(mode))
|
||||
stop 3
|
||||
end select
|
||||
end do
|
||||
|
||||
case default
|
||||
print *, "File type: ", trim(temp_infile(scan(temp_infile,'.',.true.):)), "not currently accepted. ", &
|
||||
"please input a filename with extension from following list: mb, restart, cac, or out."
|
||||
stop 3
|
||||
end select
|
||||
|
||||
end subroutine get_in_file
|
||||
|
||||
subroutine read_in(i, displace, temp_box_bd)
|
||||
!This subroutine loops over alll of the outfile types defined and calls the correct writing subroutine
|
||||
!This subroutine reads in file i
|
||||
|
||||
integer, intent(in) :: i
|
||||
real(kind=dp), dimension(3), intent(in) :: displace
|
||||
|
|
@ -624,9 +631,11 @@ module io
|
|||
call read_pycac(infiles(i), displace, temp_box_bd)
|
||||
case('cac')
|
||||
call read_lmpcac(infiles(i), displace, temp_box_bd)
|
||||
case('out')
|
||||
call read_pycac_out(infiles(i), displace, temp_box_bd)
|
||||
case default
|
||||
print *, "The extension ", trim(adjustl(outfiles(i)(scan(outfiles(i),'.',.true.)+1:))), &
|
||||
" is not accepted for writing. Please select from: mb and try again"
|
||||
" is not accepted for reading. Please select from: mb,restart,cac,out and try again"
|
||||
stop
|
||||
|
||||
end select
|
||||
|
|
@ -781,7 +790,7 @@ module io
|
|||
|
||||
integer :: i, inod, ibasis, j, k, l, in_eles, in_atoms, ele_types, in_lat_num, in_atom_types, &
|
||||
atom_type_map(100), etype_map(100), etype, lat_type, new_lattice_map(100), &
|
||||
atom_type, stat
|
||||
atom_type, stat
|
||||
real(kind=dp) :: newdisplace(3), r_in(3,1,8), r_in_atom(3)
|
||||
character(len=100) :: textholder, in_lattype_map(10)
|
||||
character(len=2) :: atomic_element
|
||||
|
|
@ -960,6 +969,105 @@ module io
|
|||
end if
|
||||
end subroutine read_pycac
|
||||
|
||||
subroutine read_pycac_out(file, displace, temp_box_bd)
|
||||
!This subroutine reads in the pyCAC dump file
|
||||
|
||||
|
||||
!Arguments
|
||||
character(len=100), intent(in) :: file
|
||||
real(kind=dp), dimension(3), intent(in) :: displace
|
||||
real(kind=dp), dimension(6), intent(out) :: temp_box_bd
|
||||
|
||||
!Internal Variables
|
||||
integer :: i, in_eles, in_atoms, inbtypes(10), lat_type, ia, ie, inod, &
|
||||
id, type_node, ilat, esize, tag, type
|
||||
real(kind=dp) :: newdisplace(3), ra(3), in_lapa, ea, fa(3), va(6), &
|
||||
ee(1,8), fe(3,1,8), ve(3,1,8), re(3,1,8)
|
||||
character(len=100) :: textholder, fcc
|
||||
character(len=1000) :: line
|
||||
|
||||
|
||||
open(unit=11, file=trim(adjustl(file)), action='read',position='rewind')
|
||||
|
||||
!Now initialize some important variables if they aren't defined
|
||||
if (max_basisnum==0) max_basisnum = 1
|
||||
if (max_ng_node==0) max_ng_node=8
|
||||
fcc="fcc"
|
||||
|
||||
!Skip header comment lines
|
||||
read(11, *) textholder
|
||||
read(11, *) textholder
|
||||
|
||||
!Read atom number and element number and grow element arrays by needed amount
|
||||
read(11,*) textholder, in_atoms, textholder, in_eles
|
||||
call grow_ele_arrays(in_eles, in_atoms)
|
||||
call alloc_dat_arrays(in_eles, in_atoms)
|
||||
|
||||
!Read boundary information
|
||||
read(11,*) textholder, box_bc(1:1), box_bc(2:2), box_bc(3:3), temp_box_bd(:)
|
||||
do i = 1, 3
|
||||
if (abs(displace(i)) > lim_zero) then
|
||||
newdisplace(i) = displace(i) - temp_box_bd(2*i-1)
|
||||
else
|
||||
newdisplace(i)=displace(i)
|
||||
end if
|
||||
temp_box_bd(2*i-1) = temp_box_bd(2*i-1) + newdisplace(i)
|
||||
temp_box_bd(2*i) = temp_box_bd(2*i) + newdisplace(i)
|
||||
end do
|
||||
|
||||
call grow_box(temp_box_bd)
|
||||
|
||||
!Allocate sub_box boundaries
|
||||
if (sub_box_num == 0) then
|
||||
call alloc_sub_box(1)
|
||||
else
|
||||
call grow_sub_box(1)
|
||||
end if
|
||||
|
||||
!Because orientations and other needed sub_box information isn't really
|
||||
!present within the .cac file we just default a lot of it.
|
||||
sub_box_ori(:,:,sub_box_num+1) = identity_mat(3)
|
||||
sub_box_bd(:, sub_box_num+1) = temp_box_bd
|
||||
sub_box_num = sub_box_num + 1
|
||||
|
||||
if(in_atoms > 0 ) then
|
||||
!Read atom header
|
||||
read(11,*) textholder
|
||||
do ia = 1, in_atoms
|
||||
read(11,'(a)') line(:)
|
||||
read(line,*) tag, type, ra(:), ea, fa(:), va(:)
|
||||
call add_atom(tag, type, sub_box_num, ra)
|
||||
call add_atom_data(atom_num, ea, fa, va)
|
||||
end do
|
||||
|
||||
end if
|
||||
|
||||
if(in_eles > 0) then
|
||||
!Add the lattice_types based on the atom types
|
||||
inbtypes=0
|
||||
do i = 1, maxval(type_atom)
|
||||
inbtypes(1) = i
|
||||
call lattice_map(1, inbtypes, 8 , 1.0_dp, ilat) !Please check documentation on pycac.out formats
|
||||
end do
|
||||
!Read element and node headers
|
||||
read(11,*) textholder
|
||||
read(11,*) textholder
|
||||
|
||||
!read element information, currently only 8 node elements with 1 basis
|
||||
do ie =1, in_eles
|
||||
read(11,*) tag, lat_type, textholder, textholder, esize
|
||||
do inod =1, 8
|
||||
read(11,*) textholder, textholder, textholder, re(:,1,inod), ee(1,inod), fe(:,1,inod), ve(:,1,inod)
|
||||
end do
|
||||
call add_element(tag, fcc, esize+1, lat_type, sub_box_num, re)
|
||||
call add_element_data(ele_num, ee, fe, ve)
|
||||
node_num = node_num + 8
|
||||
end do
|
||||
end if
|
||||
call set_max_esize
|
||||
return
|
||||
end subroutine
|
||||
|
||||
subroutine read_lmpcac(file, displace, temp_box_bd)
|
||||
!This subroutine is used to read .cac files which are used with the lammpsCAC format
|
||||
character(len=100), intent(in) :: file
|
||||
|
|
@ -980,7 +1088,7 @@ module io
|
|||
!Open the file
|
||||
open(unit=11, file=trim(adjustl(file)), action='read',position='rewind')
|
||||
|
||||
!Now initialiaze some important variables if they aren't defined
|
||||
!Now initialize some important variables if they aren't defined
|
||||
if (max_basisnum==0) max_basisnum = 10
|
||||
if (max_ng_node==0) max_ng_node=8
|
||||
|
||||
|
|
@ -1109,4 +1217,25 @@ module io
|
|||
print *, in_lattice_type
|
||||
|
||||
end subroutine set_cac
|
||||
|
||||
subroutine set_types(apos)
|
||||
!This code
|
||||
integer, intent(in) :: apos
|
||||
integer :: i, j,arglen, arg_pos, ntypes
|
||||
|
||||
character(len=100) :: textholder
|
||||
|
||||
arg_pos = apos + 1
|
||||
call get_command_argument(arg_pos, textholder, arglen)
|
||||
if (arglen==0) stop "Missing numtypes in io"
|
||||
read(textholder,*) ntypes
|
||||
|
||||
do i=1,ntypes
|
||||
arg_pos = arg_pos + 1
|
||||
call get_command_argument(arg_pos, textholder, arglen)
|
||||
call add_atom_type(textholder, j)
|
||||
end do
|
||||
|
||||
return
|
||||
end subroutine set_types
|
||||
end module io
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue