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

Added ability to have spaces in orient string if passed with quotes

Browse source
This commit is contained in:
Alex Selimov 2020-05-19 15:42:38 -04:00
parent 66670671b5
commit ffbe83f2f5
4 changed files with 11 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/opt_orient.f90
View file

@ -76,7 +76,7 @@ module opt_orient
integer :: i, arg_len
logical :: isortho, isrighthanded
character(len=8) :: ori_string
character(len=20) :: ori_string
!Pull out the new user orientation
do i = 1, 3
@ -139,7 +139,7 @@ module opt_orient
integer :: i, sbox_in, arg_len
real(kind = dp) :: new_orient(3,3)
character(len=100) :: textholder
character(len=8) :: ori_string
character(len=20) :: ori_string
arg_pos = arg_pos + 1
call get_command_argument(arg_pos, textholder,arg_len)
@ -158,4 +158,4 @@ module opt_orient
arg_pos = arg_pos + 1
end subroutine sbox_ori
end module opt_orient
end module opt_orient