crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-28 14:15:42 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

added more PETSC options

Browse source
This commit is contained in:
Bryan Herman 2012-04-04 07:41:16 -07:00
parent 36255699c1
commit f90cc38a37
1 changed files with 18 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

38
src/initialize.F90
View file

@ -217,10 +217,10 @@ contains
subroutine read_command_line()
integer :: i ! loop index
integer :: argc ! number of command line arguments
integer :: i ! loop index
integer :: argc ! number of command line arguments
integer :: last_flag ! index of last flag
character(MAX_FILE_LEN) :: pwd ! present working directory
character(MAX_FILE_LEN) :: pwd ! present working directory
character(MAX_WORD_LEN), allocatable :: argv(:) ! command line arguments
! Get working directory
@ -241,7 +241,7 @@ contains
do while (i <= argc)
! Check for flags
if (starts_with(argv(i), "-")) then
select case (argv(i))
select case (argv(i))
case ('-p', '-plot', '--plot')
plotting = .true.
case ('-?', '-help', '--help')
@ -250,7 +250,8 @@ contains
case ('-v', '-version', '--version')
call print_version()
stop
case ('-eps_tol', '-ksp_gmres_restart')
case ('-eps_tol', '-ksp_gmres_restart','-eps_monitor','-eps_type', &
& '-snes_monitor','-ksp_monitor')
! Handle options that would be based to PETSC
i = i + 1
case default
@ -261,33 +262,30 @@ contains
last_flag = i
end if
! Determine directory where XML input files are
if (i == argc .and. last_flag /= i) then
last_flag = last_flag + 1
path_input = argv(last_flag)
! Need to add working directory if the given path is a relative path
if (.not. starts_with(path_input, "/")) then
path_input = trim(pwd) // "/" // trim(path_input)
end if
else
last_flag = last_flag + 1
path_input = pwd
end if
! Increment counter
i = i + 1
end do
if (last_flag == 0) path_input = pwd
! Determine directory where XML input files are
if (argc > 0 .and. last_flag < argc) then
path_input = argv(last_flag + 1)
! Need to add working directory if the given path is a relative path
if (.not. starts_with(path_input, "/")) then
path_input = trim(pwd) // "/" // trim(path_input)
end if
else
path_input = pwd
end if
! Add slash at end of directory if it isn't there
if (.not. ends_with(path_input, "/")) then
path_input = trim(path_input) // "/"
path_input = trim(path_input) // "/"
end if
! Free memory from argv
deallocate(argv)
! TODO: Check that directory exists
! TODO: Check that directory exists
end subroutine read_command_line