|
|
@ -13,8 +13,6 @@ module mode_convert
|
|
|
|
integer, intent(out) :: arg_pos
|
|
|
|
integer, intent(out) :: arg_pos
|
|
|
|
character(len=100) :: infile, outfile
|
|
|
|
character(len=100) :: infile, outfile
|
|
|
|
real(kind = dp) :: temp_box_bd(6)
|
|
|
|
real(kind = dp) :: temp_box_bd(6)
|
|
|
|
!We have to allocate the element and atom arrays with a size of 1 for the read in code to work
|
|
|
|
|
|
|
|
call alloc_ele_arrays(1,1)
|
|
|
|
|
|
|
|
!First read in the file
|
|
|
|
!First read in the file
|
|
|
|
call get_command_argument(2, infile)
|
|
|
|
call get_command_argument(2, infile)
|
|
|
|
call get_in_file(infile)
|
|
|
|
call get_in_file(infile)
|
|
|
|