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.
52 lines
1.6 KiB
52 lines
1.6 KiB
5 years ago
|
program main
|
||
|
|
|
||
|
|
use precision_comm_module
|
||
|
|
use elements
|
||
|
|
use lattice
|
||
|
|
use region
|
||
|
|
|
||
|
|
integer :: iosline, iospara
|
||
|
|
logical :: flags(4)
|
||
|
|
character(len=100) :: line, command, errorloc
|
||
|
|
|
||
|
|
iosline = 0
|
||
|
|
iospara = 0
|
||
|
|
flags(:) = .false.
|
||
|
|
|
||
|
|
call lattice_init
|
||
|
|
|
||
|
|
!Main command loop
|
||
|
|
do while (iosline == 0)
|
||
|
|
|
||
|
|
read(*, '(a)', iostat=iosline) line
|
||
|
|
errorloc="read_input:line"
|
||
|
|
call read_error_check(iosline, errorloc)
|
||
|
|
|
||
|
|
!Check for comment character (#)
|
||
|
|
if ((scan(line, '#')/= 1).and.(line/='')) then
|
||
|
|
read(line, *, iostat = iospara) command
|
||
|
|
errorloc="read_input:command"
|
||
|
|
call read_error_check(iosline, errorloc)
|
||
|
|
|
||
|
|
select case(command)
|
||
|
|
case('atom_types')
|
||
|
|
call atom_type_parse(line)
|
||
|
|
flags(1) = .true.
|
||
|
|
case('lattice')
|
||
|
|
if(flags(1).eqv..false.) then
|
||
|
|
print *, "Please define atom types before defining lattice types"
|
||
|
|
stop 3
|
||
|
|
end if
|
||
|
|
call lattice_parse(line)
|
||
|
|
flags(2) =.true.
|
||
|
|
! case('region')
|
||
|
|
! call build_region(line)
|
||
|
|
! case('write')
|
||
|
|
! call write_parse(line)
|
||
|
|
case default
|
||
|
|
print *, "The command ", trim(command), " is not currently accepted",&
|
||
|
|
" please check input script and try again."
|
||
|
|
end select
|
||
|
|
end if
|
||
|
|
end do
|
||
|
|
end program main
|