aselimov/cacmb
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Merge branch 'development' into ft--random-position-selector

Browse source
This commit is contained in:
Alex Selimov 2020-01-28 11:40:22 -05:00
commit 72dc7b089f
8 changed files with 91 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

55
src/main.f90
View file

@ -1,35 +1,60 @@
program main
!**************************** CACmb *******************************
!* CAC model building toolkit *
! ____________ *
! / / *
! / / *
! /___________/ *
! _|_ _|_ _|____________ *
! / / *
! / / *
! /___________/ *
! *
!*******************************************************************
!**************************** CACmb ********************
!* CAC model building toolkit *
!* ____________ *
!* / / *
!* / / *
!* /___________/ *
!* _|_ _|_ _|____________ *
!* / / *
!* / / *
!* /___________/ *
!* *
!********************************************************
use parameters
use elements
use io
integer :: i, end_mode_arg, arg_num, arg_pos
character(len=100) :: argument
!Print introduction text
print *, '*********************** CACmb *********************'
print *, '* CAC model building toolkit *'
print *, '* _______ *'
print *, '* / / *'
print *, '* / / *'
print *, '* /______ / *'
print *, '* _|_ _|_ _|_______ *'
print *, '* / / *'
print *, '* / / *'
print *, '* /______ / *'
print *, '* *'
print *, '****************************************************'
!Call initialization functions
call lattice_init
call box_init
call random_seed
force_overwrite=.false.
end_mode_arg = 0
! Command line parsing
arg_num = command_argument_count()
!Check to see if overwrite flag is passed
do i = 1, arg_num
call get_command_argument(i,argument)
select case(trim(adjustl(argument)))
case('-ow')
force_overwrite = .true.
print *, "Overwrite flag passed, output files will be overwritten"
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)
@ -74,4 +99,4 @@ program main
end if
call write_out
end program main
end program main