|
|
@ -23,6 +23,7 @@ program main
|
|
|
|
!Call initialization functions
|
|
|
|
!Call initialization functions
|
|
|
|
call lattice_init
|
|
|
|
call lattice_init
|
|
|
|
call box_init
|
|
|
|
call box_init
|
|
|
|
|
|
|
|
end_mode_arg = 0
|
|
|
|
|
|
|
|
|
|
|
|
! Command line parsing
|
|
|
|
! Command line parsing
|
|
|
|
arg_num = command_argument_count()
|
|
|
|
arg_num = command_argument_count()
|
|
|
@ -36,6 +37,10 @@ program main
|
|
|
|
call call_mode(end_mode_arg, argument)
|
|
|
|
call call_mode(end_mode_arg, argument)
|
|
|
|
end if
|
|
|
|
end if
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
!Check to make sure a mode was called
|
|
|
|
|
|
|
|
if (end_mode_arg=0) then
|
|
|
|
|
|
|
|
stop "Please run cacmb using an available mode"
|
|
|
|
|
|
|
|
end if
|
|
|
|
!Now we loop through all of the arguments and check for passed options or for a filename to be written out
|
|
|
|
!Now we loop through all of the arguments and check for passed options or for a filename to be written out
|
|
|
|
arg_pos = end_mode_arg
|
|
|
|
arg_pos = end_mode_arg
|
|
|
|
do while(.true.)
|
|
|
|
do while(.true.)
|
|
|
|