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/mode_create.f90
View file

@ -165,7 +165,7 @@ module mode_create
integer, intent(out) :: arg_pos
integer :: ori_pos, i, j, arglen, stat
character(len=100) :: textholder
character(len=8) :: orient_string
character(len=20) :: orient_string
logical :: isortho, isrighthanded
@ -518,4 +518,4 @@ module mode_create
end subroutine error_message
end module mode_create
end module mode_create