Changes to how the adjustment to nodal positions is performed for lammpscac output

This commit is contained in:
Alex Selimov 2020-01-15 09:39:30 -05:00
parent 55fbe679e5
commit 849da1d24a
4 changed files with 69 additions and 54 deletions

View file

@ -28,17 +28,6 @@ program main
! Command line parsing
arg_num = command_argument_count()
!First check if we are writing out to lammpscac format by looping over all arguments
do i = 1, arg_num
call get_command_argument(i, argument)
select case(argument(scan(argument,'.',.true.)+1:))
case('cac')
lmpcac = .true.
case default
continue
end select
end do
!Determine if a mode is being used and what it is. The first argument has to be the mode
!if a mode is being used
call get_command_argument(1, argument)