Changes to how the adjustment to nodal positions is performed for lammpscac output
This commit is contained in:
parent
55fbe679e5
commit
849da1d24a
4 changed files with 69 additions and 54 deletions
11
src/main.f90
11
src/main.f90
|
@ -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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue