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

4
src/opt_disl.f90
View file

@ -51,7 +51,7 @@ module opt_disl
integer :: i,arglen
character(len=100) :: textholder
character(len=8) :: ori_string
character(len=20) :: ori_string
!Parse all of the commands
arg_pos = arg_pos + 1
@ -601,4 +601,4 @@ module opt_disl
return
end subroutine vacancy_disloop
end module opt_disl
end module opt_disl