You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
39 lines
1.4 KiB
39 lines
1.4 KiB
program main
|
|
!**************************** CACmb *******************************
|
|
!* CAC model building toolkit *
|
|
! ____________ *
|
|
! / / *
|
|
! / / *
|
|
! /___________/ *
|
|
! _|_ _|_ _|____________ *
|
|
! / / *
|
|
! / / *
|
|
! /___________/ *
|
|
! *
|
|
!*******************************************************************
|
|
|
|
use parameters
|
|
use elements
|
|
use io
|
|
|
|
|
|
integer :: arg_num
|
|
character(len=100) :: mode
|
|
|
|
call lattice_init
|
|
|
|
! Command line parsing
|
|
arg_num = command_argument_count()
|
|
|
|
!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, mode)
|
|
|
|
mode = trim(adjustl(mode))
|
|
if (mode(1:2) == '--') then
|
|
call call_mode(arg_num, mode)
|
|
end if
|
|
|
|
!Finish by writing the files
|
|
call write_out
|
|
end program main |